Question

我有一个模块需要在BEGIN块中进行一些检查。这可以防止用户看到无用的消息（在编译阶段，在此处的第二个BEGIN中看到）。

问题在于，如果我在BEGIN内部死亡，我抛出的信息就会被埋没 BEGIN failed--compilation aborted at。但是，我更喜欢die到exit 1，因为它可以被捕获。我应该只使用exit 1还是我可以做些什么来抑制这个额外的消息？

#!/usr/bin/env perl

use strict;
use warnings;

BEGIN {
  my $message = "Useful message, helping the user prevent Horrible Death";
  if ($ENV{AUTOMATED_TESTING}) {
    # prevent CPANtesters from filling my mailbox
    print $message;
    exit 0;
  } else {

    ## appends: BEGIN failed--compilation aborted at
    ## which obscures the useful message
    die $message;

    ## this mechanism means that the error is not trappable
    #print $message;
    #exit 1;

  }
}

BEGIN {
  die "Horrible Death with useless message.";
}

Answer 1

当你die抛出一个在较早的通话级别被捕获的异常时。从die块中捕获BEGIN的唯一处理程序是编译器，它会自动附加您不想要的错误字符串。

要避免这种情况，您可以使用找到的exit 1解决方案，也可以安装新的处理程序：

# place this at the top of the BEGIN block before you try to die

local $SIG{__DIE__} = sub {warn @_; exit 1};

抑制“BEGIN失败 - 编译中止”

1 个答案: