Entries from 2009-08-27 to 1 day

メモ: Error.pm でサブクラス化した例外を投げる

例外を投げるときは $obj->throw。ベースクラスは Error::Simple。 try { MyException->new("hello world")->throw; } catch MyException with { my $e = shift; print "$e\n"; }; package MyException; use base qw(Error::Simple); みたく書く、色々教えて…