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