是否有任何 Perl 模块可以阻止我向任何可能失败的内容添加“or die”？

Question

我正在编写运行各种外部命令以及可能失败的各种文件系统命令的代码。

有没有任何模块可以让我免去向可能失败的任何内容添加 or die 的麻烦？

我希望能够将以下内容包装在某些内容中，而不是：

mkdir $dirname or die "can't create directory $dirname";

system("some external command") or die "can run some external command";

我得到：

some_wrapper_code {
    mkdir $dirname;

    system("some external command");
}

这样，如果 mkdir 失败，它会告诉我失败发生在 mkdir 中>，如果 system 失败，它会告诉我故障发生在 system 中。

Answer 1

是的。查看 CPAN 中的 autodie。

来自文档：

autodie 编译指示提供了一种便捷的方法来替换通常返回的函数
失败时为 false ，而失败时则抛出异常。

autodie 编译指示具有词法范围，这意味着函数和子例程会随着
autodie 只会改变它们的行为，直到封闭块、文件或
评估。