Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

$work and $starbucks

by sock (Monk)
on Nov 21, 2003 at 02:01 UTC ( [id://308780]=poem: print w/replies, xml ) Need Help??

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(); }

~ 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');

      *chuckles* Almost curious as to know if you work for *$ or not. Either way i think that its bloody funny.
        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 :)
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."); }

    :-)

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://308780]
Approved by Roger
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2024-03-28 20:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found