Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Going shopping

by buetow (Beadle)
on Mar 25, 2007 at 13:11 UTC ( #606469=poem: print w/replies, xml ) Need Help??

Hello! I hope you do like this yet another poem. It does also use some OOP calls. Can you find the places there the constructor is called? (It does not really return a blessed reference but the constructor itself does bless something)
#!/usr/bin/perl BEGIN{} goto mall for $shopping; m/y/; mall: seek$s, cool products(), { to => $sell }; for $their (@business) { to:; earn:; a:; lot:; of:; money: } do not goto home and exit mall if exists $new{product}; foreach $of (q(uality rich products)){} package products; our $news; do tell cool products() and do{ sub#tract cool{ $products and shift @the, @bad, @ones; do bless [q(uality)], $products and return not undef $stuff if not (local $available) }}; do { study and study and study for cool products() } and do { seek $all, cool products(), { to => $buy } }; do { write $them, $down } and do { order: foreach (@case) { package s +} }; goto home if not exists $more{money} or die q(uerying) ;for( @money){} +; at:;home: do { END{} and:; rest:; a:; bit: exit $shopping } and sleep until unpack$ing, cool products(); __END__ This compiles using: perl, v5.8.8 built for i386-freebsd-64int
Paul C. Buetow (2007) - http://paul.buetow.org

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2022-06-27 20:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My most frequent journeys are powered by:









    Results (88 votes). Check out past polls.

    Notices?