Select Code to Download

sub x {
   my $func = do { no strict 'refs'; *{caller() . '::_x'}{CODE} };
...
   &$func;
   # or &$func(...);
}

package M;

...
outputs
=======
main::_x(a, b)

package M;

...
outputs
=======
main::_x(a, b)