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

Object lesson

by tye (Cardinal)
on Nov 01, 2006 at 21:30 UTC ( #581766=poem: print w/ replies, xml ) Need Help??

#!/usr/bin/perl -l #line 2 "philosophy. fine" BEGIN { warn "your Perl is too naive" and exit if intelligence->isa("UNIVERSAL")} use less trucking; sub to'ship {package} package intelligence; ship to WalMart; die "you can't package intelligence" unless intelligence->isa("UNIVERSAL"); print "now we can all be smart"

The lesson is that, unlike people, only young Perls are not naive.1

- tye        

Comment on Object lesson
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://581766]
Approved by Arunbear
Front-paged by Arunbear
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2015-07-04 22:11 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (60 votes), past polls