自前でCGI::Carpのような物をワーニングレベルに応じて出すモジュールを作ろうと思って調べてみた。まず、ワーニングレベルを調べるには$^Wを調べればいいようだ。 -w 又は -Wをつけて起動した場合にはここに値が挿入される。*1そして問題のワーニングメッセ…

下の続きですが。 これで出来るかなーっと思ったんですが出来ませんでした。 いや、出来てると言えば出来てるんですが。 sub new { my $self = shift; my %debugdata = @_; $self = bless {%debugdata},$self; $main::SIG{__WARN__} = $self->_catch_warn; }…