note
hv
<p>If you need to extract the exact source code, it may be quite difficult. If it is sufficient to get a functional equivalent, look into [cpan://B::Deparse]; from the docs:<code>
use B::Deparse;
$deparse = B::Deparse->new("-p", "-sC");
$body = $deparse->coderef2text(\&func);
</code>and here's a specific example as a one-liner:<code>
zen% perl -MB::Deparse -MCarp -wle 'print B::Deparse->new("-p","-sC")->coderef2text(\&Carp::confess)'
{
package Carp;
die(longmess(@_));
}
zen%
</code></p>
<p>See the rest of the docs for full details of the options available.</p>
<p>Hugo</p>
393419
393419