Help for this page

Select Code to Download


  1. or download this
    package Slave;
use Master;
  2. or download this
    package Master;
use strict; use warnings;
...
    no strict 'refs';
    *{"$target\::nx"} = sub { do_something() }
}
  3. or download this
    package Slave;
use strict; use warnings;
use Master;
sub do_something { my $pkg=caller(); print "$pkg\n"; }
  4. or download this
    eval "package $caller; sub nx { do_something() }";