Re: Using "with 'MooseX::Getopt::Usage' throwing error with MooseX::App::Cmd::Command

[choroba]

I fear you didn't provide enough information.

The following works for me:

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{
    package My;
    use Moose;
    extends 'MooseX::App::Cmd::Command';
    with qw{ MooseX::Getopt::Usage };

    has test => (
        traits => [qw[ Getopt ]],
        isa => 'Bool',
        is => 'rw',
        cmd_aliases => 't',
        documentation => 'test me',
    );

    sub execute {
        my ($self, $opt, $args) = @_;
        say $self->test;
    }

    __PACKAGE__->meta->make_immutable;
}

my $app = 'My'->new_with_options;

When I call

script.pl --usage

I get the usage back. When, on the other hand, I try with

script.pl --test

It fails with

Required option missing: app

I have no idea where it's coming from, as the documentation of neither MooseX::App::Cmd::Command, MooseX::Getopt::Usage, MooseX::App::Cmd, nor App::Cmd mentions it.

[nysus]

You're right. I did oversimplify. I'm using this in conjunction with MooseX::App::Cmd. So the $app never gets called with the new_with_options method. Instead, everything is handled by MooseX::App::Cmd.