view release on metacpan or  search on metacpan

lib/MooseX/Runnable/Invocation/Scheme/MooseX/Getopt.pm  view on Meta::CPAN

use Moose::Role;
use namespace::autoclean;

around validate_class => sub {
    return; # always valid
};

around create_instance => sub {
    my ($next, $self, $class, @args) = @_;

    local @ARGV = @args; # ugly!
    my $instance = $class->name->new_with_options();

    my $more_args = $instance->extra_argv;

    return ($instance, @$more_args);
};

# XXX: arounds that don't actually call $orig fuck up plugins.  i
# think that's OK, mostly, but it's something to keep in mind...