Help for this page
package SUPERB; use Carp; ... } 1;
use SUPERB; ... B::bar C::baz Base::baz
package bfs_dispatch; use Carp; ... } 1;
## replace this: ... use bfs_dispatch qw/A B/; ## methods deleted, lets see if the method dispatcher finds the correc +t one!
__OUTPUT__ A::foo B::bar Base::baz
package C; @ISA = qw/A B/; sub foo { $_[0]->SUPERB::foo(@_[1..$#_]); } sub bar { $_[0]->SUPERB::bar(@_[1..$#_]); } sub baz { $_[0]->SUPERB::baz(@_[1..$#_]); }
www.com | www.net | www.org
No recent polls found