Re^3: Referencing a hash of hashes

You can get this information from B::Deparse.

sub a {
    print "foo\n";
}

use B::Deparse;
my $deparser = B::Deparse->new('-p');
print $deparser->coderef2text(\&a);
[download]

Update - You can get the source of the subroutine with B::Deparse I should have said. Perhaps you meant the name of the subroutine.

Comment on Re^3: Referencing a hash of hashes Download Code

Replies are listed 'Best First'.
Re^4: Referencing a hash of hashes by imp (Priest) on Aug 18, 2006 at 15:35 UTC
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]	[reply] [d/l]
Re^5: Referencing a hash of hashes by chromatic (Archbishop) on Aug 19, 2006 at 01:12 UTC
There's always Sub::Identify.	[reply]
Re^4: Referencing a hash of hashes by Ronnie (Scribe) on Aug 21, 2006 at 08:38 UTC
My update WAS misleading - it's only the name of the subsoutine that I need. Cheers, Ronnie	[reply]