Select Code to Download

use NEXT;

no strict 'refs';
...
  # do something
  $this->NEXT::function(@_);
};

sub printcaller {
  my $caller = (caller(1))[3];
  print "$caller\n";
...
};

testpackage::function();

sub printcaller {
  my $caller = (caller(1))[3];
  print "$caller\n";
...
};

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