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

In the BEGINning

by liz (Monsignor)
on Dec 06, 2003 at 17:59 UTC ( #312789=obfuscated: print w/ replies, xml ) Need Help??

sub BEGIN{@_{qw{BEGIN CHECK INIT END}}=qw{hacker Perl another Just};for my$a(keys%_){*{$a}=sub{ "$_{$a} $_[0]"}}sub CHECK{sub INIT{sub END {chop ($_=END(INIT(CHECK(BEGIN()))));print;print$/}}}}
Just goes to show that subs are not always what they seem. ;-)

Liz

Comment on In the BEGINning
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://312789]
Approved by gmax
Front-paged by Itatsumaki
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2014-11-27 06:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (180 votes), past polls