#!/bin/perl

use strict;
use warnings;

use Proposal_class;

my $gf_name = "Rebecca";
my $proposal = $Proposal_class->new();

$proposal->purchase_ring(-max => 2500, -options => [ 'gold band', 'medium rock' ] );
$proposal->hide_ring(-where => 'box of chocolates');
$proposal->dinner(-where => 'future inlaws place', -what => 'sloppy joes');
$proposal->bending_of_knee(-who => 'girlfriend with flu', -where => 'living room');
$proposal->ask($gf_name . ", will you marry me?");
$prososal->end;