Demonstrate Moose breaking App::Cmd commands

gistfile1.pl

#!/usr/bin/perl

{
    package App::Cmd::Bug;
    use App::Cmd::Setup -app;
    BEGIN { $INC{"App/Cmd/Bug.pm"} = 1; }
}

{
    package App::Cmd::Bug::Command::foo;

    # Using Moose causes the usage description to break.
    use Moose;
    no Moose;

    use App::Cmd::Bug -command;

    sub validate_args {
        my $self = shift;
        $self->usage_error("This will never work");
        return;
    }
}

use App::Cmd::Bug;
App::Cmd::Bug->run;