Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Time to buy some pills

by smitz (Chaplain)
on Jun 25, 2002 at 10:55 UTC ( #177059=poem: print w/ replies, xml ) Need Help??

#!perl # package SMiTZ; BEGIN { until ($age > 19) { $self->freeload && $self->annoy_parents; } } sub new { my ($class, $self) = @_; unless (&work($self) || &sleep($self)) { $self->smoke; $self->cancer_probablity += rand(0.001); } bless ($self, undef); } END { $self->regret($self); $die; }


Dont worry, Im not suicidal or depressed, just wanted to do my Auto-Biography in perl golf.

SMiTZ
this is the first poem I ever wrote - thanks Perl

Comment on Time to buy some pills
Download Code
Re: Time to buy some pills
by jarich (Curate) on Jun 26, 2002 at 06:56 UTC
    sub new { my ($class, $self) = @_; unless (&work($self) || &sleep($self)) { $self->smoke; $self->cancer_probablity += rand(0.001); } bless ($self, undef); }
    Surely you meant:
    sub new { my ($class, $self) = @_; unless ($self->work() || $self->sleep()) { $self->smoke; $self->cancer_probablity += rand(0.001); } bless ($self, undef); }
    This reads better to me:
    unless I go to work, or I got to sleep....

    My auto-biography in perl poetry would be a lot longer:

    But that's because I'm a pedant, and insist on code that does stuff. :) (My own version has moved all the arrays out of the functions and into the object but that doesn't look as nice.)

    jarich

      Um the $self->work() won't work as the object hasn't been blessed.

      --

      Brother Frankus.

      ¤

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (8)
As of 2015-05-27 03:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    In my home, the TV remote control is ...









    Results (521 votes), past polls