Help for this page
package Parent { sub legacy_method { ... } Child->legacy_method; # returns 2
sub legacy_method { my $next = $_[0]->can('current_method'); goto $next; }
www.com | www.net | www.org
No recent polls found