signature - 多个 MAIN 签名

Question

我有一个包含多个 main 的包，我想定义几个选项:

我的代码是这样的:

package Perl6::Documentable::CLI {
    proto MAIN(|) is export {*}
    my %*SUB-MAIN-OPTS = :named-everywhere;

    multi MAIN(
        "setup"
    ) { ... }

    multi MAIN (
        "start"                           ,
        Str  :$topdir              = "doc",
        Bool :v(:verbose($v))      = False
    ) { ... }

但是当我尝试实际执行它时:

perl6 -Ilib bin/documentable start -v --topdir=ss

它输出这一行:

Usage:
  bin/documentable [--topdir=<Str>] [-v|--verbose] start

我正在使用 %*SUB-MAIN-OPTS 但它看起来也不起作用。

Answer 1

最简单的解决方案是导出动态变量 %*SUB-MAIN-OPTS ，但这仍然没有完全实现:导出工作排序，但最终是一个空哈希。所以不是很有用。

Rakudo 将调用一个名为 RUN-MAIN 的子程序。当它决定有一个 MAIN子要运行。您实际上可以导出 RUN-MAIN从你的模块，并设置动态变量，然后调用原来的RUN-MAIN :

sub RUN-MAIN(|c) is export {
    my %*SUB-MAIN-OPTS = :named-anywhere;
    CORE::<&RUN-MAIN>(|c)
}

更多关于 RUN-MAIN 的信息，见: https://docs.raku.org/language/create-cli#index-entry-RUN-MAIN