#!/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: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |