Помогло. 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" } }'
-- С уважением Анатолий. -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
