Help for this page

Select Code to Download


  1. or download this
    sub SourcePackage { my($funcname, $package) = @_;

...
{ no strict 'refs'; $coderef = \&{"$package\:\:$funcname"}; }
return B::svref_2object($coderef)->GV->STASH->NAME;
} # SourcePackage()
  2. or download this
    my $srcPkg = SourcePackage($funcname, __PACKAGE__);
  3. or download this
    my $srcPkg = SourcePackage($funcname);