Select Code to Download

package Parent {
   sub legacy_method {
...
}

Child->legacy_method;  # returns 2

sub legacy_method {
  my $next = $_[0]->can('current_method');
  goto $next;
}