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章 エラー処理