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

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

[1] 次のようにすると [VAR(perl)[$code]] が作られた[[ソースコード]]の[[ファイル名]]と[[行数]]を知ることができます。
[EG[
[PRE(code perl)[
use B ();
my $meta = B::svref_2object ($code);
warn sprintf "%s line %d", $meta->FILE, $meta->GV->LINE;
]PRE]
]EG]

[2] 次のようにすると [VAR(perl)[$code]] を [[Perl]] [[ソースコード]]に変換することができます。
[EG[
[PRE(code perl)[
use B::Deparse ();
my $deparse = B::Deparse->new;
warn $deparse->coderef2text ($code);
]PRE]
]EG]

[FIG(amazon)[
Perl
]FIG]