如何在Perl 6中实现Perl 5式的模块子例程自动加载机制？

你说得没错，Perl 6的FALLBACK方法确实只针对类和对象实例，模块层面并没有内置的类似Perl 5 AUTOLOAD的机制。不过针对你想要的「导出另一个模块的所有子例程并转发调用」的场景，我们有两种可靠的实现方式，下面详细说明：

方式一：使用AUTOLOAD懒加载转发 #

这种方式和Perl 5的AUTOLOAD逻辑最接近，只有当未定义的子例程被调用时才触发转发逻辑：

use CompUnit::Util;

unit module MyModule;

# 获取目标模块OtherModule的所有导出符号表
my %other-exports = CompUnit::Util::exports('OtherModule').hash;

# 定义模块级的AUTOLOAD子例程
sub AUTOLOAD {
    # 提取被调用的子例程名（去除模块前缀）
    my $sub-name = $*AUTOLOAD ~~ s/^MyModule:://;

    # 检查目标模块是否存在该子例程
    if %other-exports{$sub-name}:exists {
        my &target-sub = %other-exports{$sub-name};
        # 转发所有参数（位置+命名参数）
        return &target-sub(|@_);
    }
    else {
        die "Error: Subroutine '$sub-name' is not defined in MyModule or OtherModule";
    }
}

# 导出目标模块的所有符号，让用户可以直接调用
sub EXPORT {
    %other-exports
}

工作原理 #

• CompUnit::Util::exports会返回目标模块的所有导出符号，我们把它存在哈希表中方便查找。
• 当调用MyModule中未定义的子例程时，Perl 6会自动触发AUTOLOAD，$*AUTOLOAD变量包含了完整的被调用子例程名（比如MyModule::some-sub）。
• 我们剥离模块前缀后，检查目标模块是否有对应的子例程，存在的话就转发调用并传递所有参数，不存在则抛出错误。
• EXPORT块确保用户use MyModule :ALL时能拿到所有目标模块的导出符号。

方式二：动态生成转发子例程 #

如果希望加载模块时就提前创建所有转发子例程（避免运行时的AUTOLOAD开销，同时让IDE能识别这些子例程），可以用这种方式：

use CompUnit::Util;

unit module MyModule;

my %other-exports = CompUnit::Util::exports('OtherModule').hash;

# 遍历目标模块的导出，动态生成转发子例程
for %other-exports.kv -> $sub-name, &target-sub {
    # 在当前模块的符号表中创建子例程
    OUR::{$sub-name} := sub (|args) {
        &target-sub(|args);
    }
}

# 导出所有动态生成的子例程
sub EXPORT {
    %other-exports
}

工作原理 #

• 模块加载时，我们直接遍历目标模块的导出符号，在MyModule的包符号表（OUR::）中创建对应的子例程，这些子例程的唯一作用就是把调用转发给目标模块的对应子例程。
• 这种方式没有运行时的AUTOLOAD触发逻辑，调用性能更好，而且工具链（比如代码补全）能识别这些子例程。

注意事项 #

• 两种方式都使用(|args)来传递参数，这样可以完整保留位置参数和命名参数，确保和目标模块子例程的签名兼容。
• 如果目标模块的导出有更新，你需要重新加载MyModule才能获取最新的导出符号（如果用动态生成方式的话）；如果用AUTOLOAD方式，每次调用都会检查符号表（不过CompUnit::Util::exports的结果是缓存的，可能需要手动刷新）。

内容的提问来源于stack exchange，提问作者Håkon Hægland