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
In Section
Seekers of Perl Wisdom