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