note
broquaint
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
<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);
}
}
</code>
<div class="pmsig"><div class="pmsig-87452">
HTH
<p/>
<tt>_________<br><u>broquaint</u></tt>
</div></div>
421838
421838