Help for this page

Select Code to Download


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

...
outputs
=======
main::_x(a, b)
  3. or download this
    package M;

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