File Coverage

blib/lib/App/Prove/RunScripts.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	39	40	97.5

package App::Prove::RunScripts;

use 5.008008;
use strict;
use warnings;
use parent 'App::Prove';
use Class::Method::Modifiers qw(around install_modifier);
use Getopt::Long;
use Carp ();

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 );
};

sub _install_scripts {
    my $self = shift;
    for my $type (qw(before after)) {
        install_modifier 'App::Prove', $type, 'run', sub {
            for my $script ( @{ $self->{$type} } ) {
                local $@;
                do $script;
                die $@ if $@;
            }
        };
    }
}

1;
__END__