perl - 戻り値の代わりにPerl例外

Question

いくつかのperlスクリプトでは、次のようなものを書いていることに気づきます。

open(...) or die $!;
print ... or die $!;

等

or die ...考えられるすべての例外の最後に繰り返し言うのは避けたいと思います。

open()誤った戻り値だけでなく、エラーが発生したときになどの関数に例外をスローさせる方法はありますか？そうすれば、考えられるすべての例外を一度にキャッチできます。

Answer 1

はい。これらの命令をエラーで終了させるモジュールが存在します。これはと呼ばれautodieます。スクリプトの先頭に追加します。

use autodie;

## It dies.
open my $fh, '<', 'nonfile.txt';