Help for this page

Select Code to Download


  1. or download this
    use NEXT;

no strict 'refs';
...
  # do something
  $this->NEXT::function(@_);
};
  2. or download this
    sub printcaller {
  my $caller = (caller(1))[3];
  print "$caller\n";
...
};

testpackage::function();
  3. or download this
    sub printcaller {
  my $caller = (caller(1))[3];
  print "$caller\n";
...
};

testpackage::function(); # Output: testpackage::function