#!/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
In reply to Object lesson by tye
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |