BEGIN{
*CORE::GLOBAL::die = sub {CORE::die " my die: ", @_};
*CORE::GLOBAL::warn = sub {CORE::warn " my warn: ", @_};
*CORE::GLOBAL::print = sub {CORE::print "my print: ", @_};
}
print "call print\n";
warn "call warn\n";
die "call die\n";
【実行結果】
call print
my warn: call warn
my die: call die
printだけオーバーライドされないようなのだが、どこにドキュメントがあるのだろう?? 情報求む。perl5.6.0っす。