Help for this page
use B::Deparse; sub bar { print "foo" } ... my $body = $dep->coderef2text(\&bar); print $body;