CODE

コード参照 (Perl)

[3] Perlコード参照は、 サブルーチンへの参照です。

コード参照が何者か調べる

[1] 次のようにすると $code が作られたソースコードファイル名行数を知ることができます。

use B ();
my $meta = B::svref_2object ($code);
warn sprintf "%s line %d", $meta->FILE, $meta->GV->LINE;

[2] 次のようにすると $codePerl ソースコードに変換することができます。

use B::Deparse ();
my $deparse = B::Deparse->new;
warn $deparse->coderef2text ($code);

Perl