Raku中使用require动态加载模块后，如何引用导出的SITE子例程？

问题场景 #

本地lib目录下存在Eg-1.rakumod、Eg-2.rakumod、Eg-3.rakumod等模块，均已在META6.json中注册，每个模块都包含导出子例程：

sub SITE is export { ... }

该子例程用于生成CRO路由集。使用静态加载use Eg-1;的脚本可直接调用SITE.routes正常运行，但通过require ::(@egs[1]);动态加载模块后，尝试用my $routes = &::(@egs[1])::SITE.routes引用时，报错“No such symbol Eg-2::&SITE”。

解决方案 #

方法1：从模块包的导出符号表获取 #

Raku中动态加载模块后，可通过模块的包对象访问其导出符号：

1. 动态加载模块并获取包对象：

my $module-name = @egs[1];
my $module-package = ::($module-name);
require $module-package;

2. 从包的导出表中提取SITE子例程：

my &site-sub = $module-package.EXPORT::<&SITE>;
my $routes = site-sub().routes;

若模块使用EXPORT::ALL或自定义导出标签，需对应调整为$module-package.EXPORT::ALL::<&SITE>。

方法2：用EVAL动态构建调用（谨慎使用） #

若上述方法不适用，可通过EVAL生成调用代码：

my $module-name = @egs[1];
require ::($module-name);
my $routes = EVAL "$module-name::SITE.routes";

注意：EVAL存在安全风险，仅在模块来源可信时使用。

方法3：统一模块导出接口 #

修改所有Eg-*.rakumod模块，新增统一的导出方法：

unit module Eg-2;
sub SITE is export { ... }
sub get-site is export { &SITE }

动态加载后调用：

my $module-name = @egs[1];
require ::($module-name);
my &site-sub = ::($module-name)::get-site();
my $routes = site-sub().routes;

原理说明 #

静态加载use会自动将模块导出符号导入当前作用域，而require仅完成模块加载，不会自动导入符号。因此需要手动从模块对应的包对象中，读取存储在EXPORT、EXPORT::ALL等哈希表中的导出符号。

内容的提问来源于stack exchange，提问作者Richard Hainsworth