2005-03-04から1日間の記事一覧
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";…