如何找到Perl 6模块的版本和权限？

Question

在Bar.pm，我宣布一类的机构（作家）和版本：

class Bar:auth<Camelia>:ver<4.8.12> { 
    } 

如果我在程序中使用它，我怎么看它的模块，我的版本使用，谁写的，以及模块加载器如何发现它？与往常一样，链接到文档非常重要。

这个问题也被问到perl6-users，但在一个令人满意的答案（或文档链接）出现之前死亡。

这个问题的另一个问题是许多人没有将这些信息添加到他们的类或模块定义中。它出现在META.json文件中，但不是代码。

Answer 1

（可能不是一个令人满意的答案，因为这件事的事实并不令人非常满意，尤其是关于文件的状态，但在这里它去...）

---

如果模块或类是在源代码中直接版本点菜class Bar:auth<Camelia>:ver<4.8.12>，则该输入任何代码可以introspect它：

use Bar; 

say Bar.^ver; # v4.8.12 
say Bar.^auth; # Camelia 

# ...which is short for: 
say Bar.HOW.ver(Bar); # v4.8.12 
say Bar.HOW.auth(Bar); # Camelia 

Ť

• Metamodel::ClassHOW（虽然文档页面没有提到他们还）
• Metamodel::ModuleHOW（虽然文档的页面不存在，在所有尚未）
：他 ver和 auth方法提供

---

不幸的是，我不认为元对象目前提供一种方式来获得在模块/类的源路径。
通过手动经历的步骤是use和require的加载时编译单元，你至少可以在（即从$PERL6LIB或use lib或-I等，这些位置它是从加载）的前缀路径得到：

my $comp-spec = CompUnit::DependencySpecification.new: short-name => 'Bar'; 
my $comp-unit = $*REPO.resolve: $comp-spec; 
my $comp-repo = $comp-unit.repo; 
say $comp-repo.path-spec; # file#/home/smls/dev/lib 
say $comp-repo.prefix;  # "/home/smls/dev/lib".IO 

$comp-unit是CompUnit类型的对象。
$comp-repo是CompUnit::Repository::FileSystem。
这两个文档页面都不存在，$*REPO仅在list of dynamic variables中简要提及。

---

如果模块是一个正确建立distribution的一部分，你可以在它的META6.json（as posted by Lloyd Fournier在你所说的邮件列表线程）定义的元信息：

if try $comp-unit.distribution.meta -> %dist-meta { 
    say %dist-meta<ver>; 
    say %dist-meta<auth>; 
    say %dist-meta<license>; 
}