简洁的方法将抛出异常改为失败？

Question

是否有更简洁的方法将抛出的异常提升为失败而不是以下？

try {
    die 'always';
    CATCH { default { fail $_ } }
}

Answer 1

try something();
fail $! if $!;

请注意,CATCH块适用于同一范围内的所有语句,甚至适用于CATCH块之后的代码.因此,如果您想使用CATCH块,请注意保持范围较小.

Answer 2

这是一个更简洁的moritz代码版本.

(try something()) orelse fail $!;

Answer 3

try块是多余的

die 'always';
CATCH { default { fail $_; } }

但我不担心保存打字的字符.您的意图清晰且具有高度可读性.

以表达您的意图或可读性为代价来保存键入的字符可能在Perl的遗产中占有一席之地,但它不是您希望自己进行维护编程的地方.