Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

my $deity;

by Sir mXe (Acolyte)
on Jun 21, 2011 at 23:10 UTC ( #910829=poem: print w/ replies, xml ) Need Help??

On the first day of Creation, my $deity gave to me BEGIN { reality(); } On the second day of Creation, $deity gave to me do { print; } while ( <> ) #presuming you read ) as close parenthesis On the third day of Creation, $deity gave to me foreach my $key ( keys %hash ) { $hash->{$key} = "breathe"; } On the fourth day of Creation, $deity gave to me my $obj = Earth::Humanity->new(will => "free"); On the fifth day of Creation, $deity gave to me tie %myself, $obj->get(target => "me"); On the sixth day of Creation, $deity gave to me $myself{"name"} = "Sir mXe"; On the seventh day of Creation, $deity took a rest, $deity->sleep() && bless; ... On the final day of Revelations, $deity gave to me, END { close_reality(); }

Comment on my $deity;
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (15)
As of 2014-11-26 15:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (171 votes), past polls