File Coverage

blib/lib/App/Prove/Plugin/RandomSeed.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	0	1	0.0
total	36	38	94.7

package App::Prove::Plugin::RandomSeed;
use 5.008001;
use strict;
use warnings;

use App::Prove;
use Class::Method::Modifiers qw( before );

our $VERSION = "0.01";

sub load {
    my ( $class, $p ) = @_;
    my @args = @{ $p->{args} };
    my $app  = $p->{app_prove};

    $app->shuffle(1);

    before 'App::Prove::_shuffle' => sub {
        my $seed = $args[0];
        if ( defined $seed && $seed ne '' ) {
            srand $seed;
        }
        else {
            $seed = srand;
        }

        print "Randomized with seed $seed\n";
    };
}

1;
__END__