多个 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 决定有一个 MAIN 子程序成为运行时，它将调用一个名为 RUN-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

多个 MAIN 签名

Multiple MAIN signatures

signature

raku