Помогло. 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" } }' > > -- С уважением Анатолий.