コード参照 (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);

Perl