使子模块中的导出函数可以在 Raku 的全局命名空间中访问

Question

我创建了一个名为 new 的最小工作模块。文件夹结构链接如下：

new
│   .gitignore
│   Changes
│   dist.ini
│   LICENSE
│   META6.json
│   README.md
│
├───lib
│   │   new.rakumod
│   │
│   ├───Desc
│   │       Mean.rakumod
│   │
│   └───Deviation
│           DeviationMean.rakumod
│
└───t
        01-basic.rakutest

我有两个函数，中的 Desc::Mean.rakumod 中的mean 和Deviation::DeviationMean.rakumod 模块中的deviation_from_mean lib。 这些是简单的函数，我不想为它们定义任何命名空间。因此，当我安装此模块并尝试通过 use new 使用此模块时，我希望能够访问这两个函数而不调用它们的子模块名称。

我想做的是（现在不起作用）

use new;

my @test1 = [6,6,4,6,8,6,8,4,4,6,6,8,8,8,8,8,8,4,4,4,4,8,8,8,8,4,4,4,8,6,8,4];
say mean(@test1);
say deviation_from_mean(@test1);

而不是（有效）

use new;
use Desc::Mean;
use Deviation::DeviationMean;

my @test1 = [6,6,4,6,8,6,8,4,4,6,6,8,8,8,8,8,8,4,4,4,4,8,8,8,8,4,4,4,8,6,8,4];
say mean(@test1);
say deviation_from_mean(@test1);

有办法做到这一点吗？

Answer 1

粗略地说&遵循docs，您可以将这些方法名称作为导出放入new命名空间（在new.rakumod中）：

my package EXPORT::DEFAULT {
    OUR::mean := "Desc::Mean::mean";
    OUR::deviation_from_mean :=
         "Deviation::DeviationMean::deviation_from_mean";
}

Answer 2

# main.raku
use lib 'lib';
use new;
say mean; # 42

# Desc::Mean
unit module Desc::Mean;
sub mean is export { 42 }

# new
sub EXPORT {
  {
    use Desc::Mean;
    return ::.pairs.grep(*.key ne '$_').Map;
  }
}
unit module new;

注意：

• sub EXPORT { ... }new 模块中的 a> 必须位于 unit module new; 语句之前。

  
  

• 根据需要在EXPORT子中使用其他模块（例如Deviation::DeviationMean）来导入这些模块将模块的符号放入new 组件中； return ::.pairs.grep(*.key ne '$_').Map; 将重新导出它们的所有符号到任何使用< /code>s 新。

  


有关上述内容的解释，请参阅：

• jnthn 对在模块中像 Prelude 模块一样使用 Haskell< /a>.

  
  

• 导入符号到包中，然后然后重新导出它们”部分="https://stackoverflow.com/a/69018308/1077672">我对将类的运算符定义与其他文件分离并使用它们的回答。