perl における例外の基礎
- croak と eval を使用.
use Carp; sub f { ... if (something is bad) { croak "fail"; } ... return something_good; } ... my $r = eval { f(); }; if ($@) { croak "f() fails."; } ...
参照
- 「Perlベストプラクティス」13章 エラー処理
use Carp; sub f { ... if (something is bad) { croak "fail"; } ... return something_good; } ... my $r = eval { f(); }; if ($@) { croak "f() fails."; } ...