If you mean the package/stash were it was originally defined in: Yes.

It's kept as special field inside the internal data.

There is a way to inspect this w/o dependencies using B

Otherwise there are various modules on CPAN doing that°.

edit

°) see stash_name in

• Sub::Util (in core since Perl v5.21.4)
• Sub::Identify

Thank you for the quick reply! I'll check out your suggestions.

As side note to the main ansewer given by LanX++, and in the case you are the author of the subroutine, they obviously already know the package they belong to:

package XX; 
sub inxx{return __PACKAGE__} 
package main; 
my $ref = \&XX::inxx;  
print $ref->();

__END__
XX
[download]

L*

Hi,

Yes, it is a subroutine I generate through an eval, in a custom package

I was toying with the idea that I could track the package with only the ref to the generated subroutine. However, I need to do package housekeeping when the sub is no longer required.

So now have an object which contains the package name and the generated subroutine. The package name obtained using the __PACKAGE__ like you mentioned.

Thanks for the welcome!

But beware!

#!/usr/bin/perl
use warnings;
use strict;

{   package Local;

    sub My::frob {
        print __PACKAGE__
    }
}

My::frob();  # Local
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

> So now have an object which contains the package name and the generated subroutine

If you want to go that way you can also choose to bless the code ref directly.

Objects don't need to be hashes in Perl.

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery}