This is not only my first code poem but my first attempt at perl. It compiles and runs but returns nothing. 
while(@work) {
 Starbucks::brew("coffee");
 Starbucks::blend("fraps");
 my $customers = 'bad tippers';
 $customers eq 'snooby' && 'self-absorbed';
 if ($happy_customers and $tips = 'good') {
  $work = 'not that bad';
 }
  get($car);
  $drive = 'home';
  sleep();
}

[download]

~ Sock

Replies are listed 'Best First'.
Re: $work and $starbucks
by Coruscate (Sexton) on Nov 21, 2003 at 02:25 UTC

    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]

[reply]
[d/l]
      *chuckles* Almost curious as to know if you work for *$ or not. Either way i think that its bloody funny.
[reply]
        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]
Re: $work and $starbucks
by webfiend (Vicar) on Dec 03, 2003 at 17:41 UTC

    Oh, and don't forget the following lines that applied to me when I was working at a coffee place:

    if ($coffee_pot->low()) {
  $self->drink($coffee_pot->bottom);
  $coffee_pot->brew_fresh();
}

if ($shift eq "slow") {
  $self->read("Programming Perl");
  $self->swear("I'm getting out of this hole someday.");
}

    [download]

    :-)

[reply]
[d/l]
Re: $work and $starbucks
by Roy Johnson (Monsignor) on Nov 25, 2003 at 17:45 UTC
    I think you mean ...and $tips eq 'good' or even ...$tips > $crap. :-)
    The PerlMonk tr/// Advocate
[reply]
[d/l]
[select]

Back to Perl Poetry