in reply to checksum of subroutine

... but a coderef is only good for executing code, not for seeing the code itself.

It's enough, with the core module B::Deparse:

use B::Deparse;
my $deparse = B::Deparse->new( '-p', '-sC' );
my $source  = $deparse->coderef2text( \&some_func );

[download]

Replies are listed 'Best First'.
Re^2: checksum of subroutine
by mnooning (Beadle) on Aug 13, 2012 at 16:58 UTC

    This looks like it will serve the case where the software modules are wrapped up in a single Perl PAR executable, wherein I cannot get at the individual files.

    This begs the question "Why would this situation ever arise? I can only tell you there are reasons.

    I love CPAN. Thanks!

[reply]

In Section Seekers of Perl Wisdom