Help for this page

Select Code to Download

Select or download this

use Sub::Util qw/subname/;
sub foo {}
my $test = \&foo;
print subname($test);  # prints "main::foo"