Determining the subroutine name of a Perl code reference

Question

How would one determine the subroutine name of a Perl code reference? I would also like to distinguish between named and anonymous subroutines.

Thanks to this quest

Answer 1

I'm not sure about calling the name of the function from the outside, but you can get it from within the subroutine via the caller function:

sub Foo {print "foo!\n";return (caller(0))[3];}
$function_name=Foo();
print "Called $function_name\n";

This has the following output:

foo!
Called main::Foo

Of course, you can return the function name as one of the items that the subroutine returns. That way, you can capture it and have the option of displaying it (or using it in other logic, etc).