Please note that the code in this post is not the recommended method. It makes uses of B, which is the perl compiler backend. As such it is a little too magical to be used in production code.

That said, it is interesting to know how to do this, and can be useful at times. This is one way to get the name of a subroutine.

sub a {
    print "foo\n";
}

use B;
# Fetch the internal object for this coderef
my $obj = B::svref_2object(\&a);
# Fetch the glob for that object
my $gv  = B::CV::GV($obj);
print $gv->NAME;
[download]