view release on metacpan or  search on metacpan

lib/App/Prove/RunScripts.pm  view on Meta::CPAN

our $VERSION = '0.05';

around 'process_args' => sub {
    my $orig = shift;
    my ( $self, @args ) = @_;

    $self->{before} = [];
    $self->{after}  = [];

    local @ARGV = @args;
    Getopt::Long::Configure(qw(no_ignore_case bundling pass_through));
    GetOptions(
        'before=s@' => $self->{before},
        'after=s@'  => $self->{after},
    ) or Carp::croak('Unable to continue');

    $self->_install_scripts;
    $orig->( $self, @ARGV );
};