昨日、exit しちゃうとテストコードで例外捕まえられないよー、と書きましたが、何とかする方法を見つけました。exit を die で置き換えちゃえばいいんです。 use strict; use warnings; BEGIN { *CORE::GLOBAL::exit = sub() { die "exited\n"; }; } print …