Re: $work and $starbucks

Just having a little fun. Work is fun, isn't it? :)

my $sock = Starbucks::Employee->new;
my $coru = Starbucks::Customer->new;

$coru->order('venti mocha coconut frap, blended coffee');
$sock->say('We don\'t serve that anymore.');

$coru->swear('under breath');
$coru->smile('politely');
$coru->order('grande hot chocolate');

my $cup = Starbucks::Beverage->new;
$cup->fill('hot chocolate');

$sock->serve($cup, $coru);
$coru->accept($cup);
$coru->smile;

$coru->give_tip(
  convert_funds('0.02', 'CDN', 'USD')
);

$coru->leave;
$sock->swear('out loud');
[download]

Comment on Re: $work and $starbucks Download Code

Replies are listed 'Best First'.
Re: Re: $work and $starbucks by sock (Monk) on Nov 21, 2003 at 10:29 UTC
chuckles Almost curious as to know if you work for *$ or not. Either way i think that its bloody funny.	[reply]
Re^3: $work and $starbucks by Coruscate (Sexton) on Nov 21, 2003 at 10:36 UTC
Nope, but until recently I was a swing manager at mcd's. I know what the day goes by like working a restaurant-type place. It isn't the most pleasureable experience every day. You have to make it fun, which apparently the people who worked under me really liked. They miss me there so much :)	[reply]