Signal
下の続きですが。
これで出来るかなーっと思ったんですが出来ませんでした。
いや、出来てると言えば出来てるんですが。
sub new { my $self = shift; my %debugdata = @_; $self = bless {%debugdata},$self; $main::SIG{__WARN__} = $self->_catch_warn; }
こうしちゃうと確かに$selfは取れるんですが今度はメッセージが取れません。
なんとかせな。
下の続きですが。
これで出来るかなーっと思ったんですが出来ませんでした。
いや、出来てると言えば出来てるんですが。
sub new { my $self = shift; my %debugdata = @_; $self = bless {%debugdata},$self; $main::SIG{__WARN__} = $self->_catch_warn; }
こうしちゃうと確かに$selfは取れるんですが今度はメッセージが取れません。
なんとかせな。