Pixel Pedals of Tomakomai

北海道苫小牧市出身の初老の日常

CORE::GLOBAL::printのオーバーライド

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っす。