Помогло.
11.10.2013 14:21, Konstantin S. Uvarin пишет:
> Sub::Identify - точно работает:
>
> perl -we 'use Sub::Identify qw(stash_name); $sub = Foo->getsub; print(
> stash_name($sub)); package Foo; sub getsub { return sub { print "ok" } }'
>
>
--
С уважением Анатолий.