Why don't you try it?

from perldoc Storable

The Storable package brings persistence to your Perl data structures containing SCALAR, ARRAY, HASH or REF objects, i.e. anything that can be conveniently stored to disk and retrieved at a later time.

perl -MStorable=freeze -e freeze(sub{1})

Can't store CODE items at blib\lib\Storable.pm (autosplit into blib\li
+b\auto\Storable\_freeze.al) li
ne 282, at - line 3
[download]

B::Deparse tries to make a good guess, but is no substitue.

It'd be easies to comment your code consistently like

sub WHATEVER { # WHATEVER STARTS HERE

} # WHATEVER ENDS HERE
[download]

and then parse your source file to extract the code(simple and stupid, but works best).

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"