http://qs321.pair.com?node_id=623243


in reply to What package is foo() from?

Maybe Sub::Identify can help too. 

use Sub::Identify 'stash_name';
my $package = stash_name( $some_coderef );

[download]

In Section Seekers of Perl Wisdom