perl - 将参数传递给 mojolicious 应用程序

Question

我想弄清楚是否可以在调用 mojolicious 应用程序时给出参数。 This表明这不容易做到，至少在五年前是这样。通过查看 documentation ，看起来它有一个选项(或者我读错了？)。

Mojolicious::Commands->start_app('MyApp');
Mojolicious::Commands->start_app(MyApp => @ARGV);

如果确实可行，我如何从启动函数访问它？我已经尝试了一些最明显的方法，例如...

sub startup {
    my ($self, $arg) = @_;
    ....

这没有用。

Answer 1

查看源代码。当您执行 start_app 时，它最终会运行 $app->start ，它将 @ARGV 传递给 $self->commands->run。那是 Mojolicious::Commands 的另一个实例，它解析 args 并找出如何处理它们。

我最好的猜测是你需要实现一个 Mojolicious::Command ，然后你可以传递你的参数。这可能就像在应用程序对象中设置属性一样简单(可能已经存在，不确定)。