[3] Perl のコード参照は、 サブルーチンへの参照です。
[1] 次のようにすると $code が作られたソースコードのファイル名と行数を知ることができます。
use B (); my $meta = B::svref_2object ($code); warn sprintf "%s line %d", $meta->FILE, $meta->GV->LINE;
[2] 次のようにすると $code を Perl ソースコードに変換することができます。
use B::Deparse (); my $deparse = B::Deparse->new; warn $deparse->coderef2text ($code);