在不显式导出的情况下获取模块的Pod

Question

实际上，使用Pod 6 DSL的Perl 6程序中的文档被解析为代码的一部分；这使得该文档可以在程序内部作为$=pod变量使用。但是，我希望能够访问该变量，以便从例如测试中对其进行处理。在此示例中，我为Perl 6 Advent Calendar编写了该代码，只是将其导出为类（在这种情况下为语法）变量：

our $pod = $=pod[0];

然后，我可以这样使用它：

use Data::Dump;

use MONKEY-SEE-NO-EVAL;

sub MAIN( $module  ) {
    try require ::($module);
    say Dump( $::($module)::pod, :max-recursion(2) );

}

当使用类的名称和正确的路径调用时，此方法有效。但是它仍然需要显式导出变量。

我在一些代码中看到可以将precomp存储用于同一件事（抱歉，没有很好的单一来源来解释这些内容）。最终，这条线

 return nqp::atkey($handle.unit,'$=pod')[0];

通过访问precomp存储所代表并包含在中的模块的Pod来达到目的$handle.unit。事实是，使用NQPnqp::atkey运算符，这实际上是较低的级别，而不是perl。

有很多方法可以做到这一点，所以我可以想到两个不同的可能问题。1.是否可以通过FQN（以::开头）访问required或used单元的Pod ？2.我们是否可以访问required或used单元的precomp句柄，以便我们可以nqp::atkey直接调用？

Answer 1

我使用这种技术（寻找更简单的方法来做到这一点）来创建Module::Pod（即将发布）。查看我的答案：https ://stackoverflow.com/a/57247392/332359