This turns a Foo::BarMod::whiz into a Foo::BarMod->whiz -- specifically, it turns it into Wherever::whiz(Foo::BarMod, ...).use Carp; use vars '$AUTOLOAD'; # in case strict is on AUTOLOAD { my ($pkg, $func) = $AUTOLOAD =~ /(.*)::(.*)/; my $cref = $pkg->can($func) or carp "no such method $func in $pkg"; unshift @_, $pkg; goto &$cref; }
In reply to Re: @ISA, Inheritance, and Class Methods
by japhy
in thread @ISA, Inheritance, and Class Methods
by clwolfe
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |