perl - 为什么在 BEGIN block 中首先执行 'use' 语句？

Question

当我执行以下代码时，我得到 Can't locate SomePackage.pm in @INC ... .

BEGIN {
    die;
    use SomePackage;
}

为什么是 use在 die 之前执行?

Answer 1

use SomePackage完全等同于

BEGIN { require SomePackage; SomePackage->import }

一个 BEGIN代码块被尽快执行，即在它被完全定义的那一刻。第二个 BEGIN (由 use 暗示)首先完全定义，因此首先执行。