CORE::GLOBAL::die 在 BEGIN 中重新定义

Question

我有以下代码

print "Starting..\n";
eval { die "Before die sub redefinition\n" };
#die "Before die sub redefinition\n";
BEGIN {
    print "inside Begin block\n";
    *CORE::GLOBAL::die = sub {
        my ($message) = @_;
        print "Message: " . $message ."\n";
    }
}
eval { die "Right after begin block\n" };
print "done\n";

输出如下，

inside Begin block
Starting..
Message: Right after begin block

done

BEGIN块在任何其他语句之前首先执行；但是重新定义的CORE::Global::die只有在重新定义后才有效。Firstdie不使用重新定义的版本，而是使用原始版本。有人可以帮我找出原因吗？

Answer 1

BEGIN使代码块在编译后立即执行，而不是等待编译阶段完成。这意味着BEGIN块中的代码在其他代码执行之前执行，但不一定在其他代码编译之前执行。代码仍然基本上按照它看到的顺序编译。

要使CORE::GLOBAL覆盖对给定调用生效，必须在编译该调用时已经安装。如果没有覆盖，则编译器将发出对内置核心函数的调用。

BEGIN在BEGIN块运行之前编译块之前文件中的所有代码，因此die不会覆盖那里的第一个调用。