Sure. I'm writing a little function to run another function on a given set of arguments and time how long it takes. Looks like so:
sub run_and_time(&@) {
use Time::HiRes;
my $func = shift;
my $funcName = [some bit of code to get $func's name]
my $start_time = [gettimeofday];
my @retlist = &{$func}(@_);
print "Time to run $funcName: ", tv_interval($start_time), "\n";
}
So I need some way to get $funcName. Does that clarify things? |