Signal

下の続きですが。
これで出来るかなーっと思ったんですが出来ませんでした。
いや、出来てると言えば出来てるんですが。

sub new
{
	my $self = shift;
	my %debugdata = @_;
	$self = bless {%debugdata},$self;

	$main::SIG{__WARN__} = $self->_catch_warn;
}

こうしちゃうと確かに$selfは取れるんですが今度はメッセージが取れません。
なんとかせな。