http://www.perlmonks.org?node_id=421861


in reply to getting subroutine names

If you don't mind using a bit of black magic and have a relatively recent version of perl (5.7+ perhaps?) then you could use this code
use B 'svref_2object'; sub name_from_coderef { return svref_2object($_[0])->GV->NAME; } my @tests = (\&test1,\&test2,\&test3,\&test4); # 20 odd refs here my $test = 1; foreach my $subref (@tests) { warn sprintf "Test # %s\n", name_from_coderef($subref); foreach my $size (1..1000) { $subref->($arg1,$arg2,$size); } }
HTH

_________
broquaint