同一脚本中Moo类声明前调用异常的技术咨询

先结合你的描述还原典型的代码场景（匹配你提到的运行结果）：

use warnings;
use 5.018;
use Data::Dumper;

# 首次调用
do_stuff('First Name');

package Foo;
our $names;
sub do_stuff {
    my ($name) = @_;
    $names = $name;
    print "names: ", Dumper(\$names);
}

package main;
# 第二次调用
Foo::do_stuff('Second Name');

1. 首次调用do_stuff时使用的是哪个包？ #

你首次调用的do_stuff并不是Foo包下的子例程，而是默认的main包下的实现——要么是你在package Foo之前显式定义了main::do_stuff（比如一个没处理参数的空实现），要么是触发了main包下的AUTOLOAD机制（Perl会自动用AUTOLOAD处理未定义的子例程调用）。

简单说，第一次调用和Foo包完全没关系，操作的是main包的变量和子例程。

2. 编译器为何未抛出错误，反而使用了看似不合法的类？ #

这是Perl作为动态语言的特性决定的：

• 如果是直接子例程调用（比如do_stuff()）：编译时Perl只会检查当前包下是否有该子例程的声明/定义，要是没有但你写了AUTOLOAD，它会默认用AUTOLOAD兜底，不会直接报错；要是你提前声明了sub do_stuff;，编译器也会认为子例程存在，不会报错。
• 如果是包方法调用（比如Foo->do_stuff()）：编译时Perl不会检查Foo包是否存在，只会在运行时动态查找符号表——要是Foo包不存在，Perl会自动创建一个空的包符号表；只有当包存在但找不到对应方法时，才会报错（同样，有AUTOLOAD的话会被兜底处理）。

而你第一次输出undef，本质是因为main::do_stuff没有处理参数的逻辑，导致包级变量main::names始终未赋值；第二次调用明确指向Foo::do_stuff，此时该子例程已经被编译定义，能正确接收参数并赋值，所以输出符合预期。

另外补充个关键细节：Perl的our变量是包级独立的，main::names和Foo::names是完全不同的两个变量，这也是两次输出结果不同的核心原因之一。

内容的提问来源于stack exchange，提问作者Dragos Trif