perl - 如何使用 getopt 子类化 Minion 命令？

Question

Minion 中的任务之一我正在使用的作业队列需要用户和密码。

我找到了关于如何将参数传递给 Mojo 应用程序的很好的描述 here所以我是这样处理的:

package Minion::Command::minion::secure_worker;

use Mojo::Base 'Minion::Command::minion::worker';
use Mojo::Util 'getopt';

sub run {
    my ( $self, @args ) = @_;

    my $worker = $self->app->minion->worker;
    my $status = $worker->status;

    getopt \@args,
    'U|username=s' => \my $username,
    'P|password=s' => \my $password;

    $self->app->credentials->{username} = $username;
    $self->app->credentials->{password} = $password;

    return $self->SUPER::run;
}

1

但是，当我尝试传递原始工作命令中的选项时 - 例如 -j我得到:

Unknown option: j

这是为什么？看起来子类化命令不起作用，或者 getopt slurps 一切？

Answer 1

调用 getopt不可组合。你可以尝试处理(然后传递)你的父类(super class)处理的所有选项，或者调用 Getopt::Long自己用 pass_through选项。这将忽略所有未知选项:

package Minion::Command::minion::secure_worker;

use Mojo::Base 'Minion::Command::minion::worker';
use Getopt::Long 'GetOptionsFromArray';
use Getopt::Long ':config', 'pass_through';

sub run {
    my ( $self, @args ) = @_;

    my $worker = $self->app->minion->worker;
    my $status = $worker->status;

    GetOptionsFromArray \@args,
    'U|username=s' => \my $username,
    'P|password=s' => \my $password;

    $self->app->credentials->{username} = $username;
    $self->app->credentials->{password} = $password;

    return $self->SUPER::run;
}

1