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