[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[FWP] All your base are belong to us



require base; sub base::import { unshift @{caller().'::ISA'}, __PACKAGE__ }

@ISA = map { s/\.pm$//; s|/|::|g; @{$_.'::ISA'} } keys %INC;

$All =~ y our base are belong to; $us;


(That's three different ones, BTW)


-- 

Michael G. Schwern   <schwern@pobox.com>    http://www.pobox.com/~schwern/
Perl6 Quality Assurance     <perl-qa@perl.org>	     Kwalitee Is Job One
BOFH excuse #106:

The electrician didn't know what the yellow cable was so he yanked the ethernet
out.

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe