note
imp
You can get this information from [cpan://B::Deparse].
<code>
sub a {
print "foo\n";
}
use B::Deparse;
my $deparser = B::Deparse->new('-p');
print $deparser->coderef2text(\&a);
</code>
<b>Update</b> - You can get the source of the subroutine with B::Deparse I should have said. Perhaps you meant the name of the subroutine.
568128
568178