File Coverage

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

Criterion	Covered	Total	%
statement	17	21	80.9
branch	2	6	33.3
condition	2	6	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	25	38	65.7

package App::Prove::Plugin::Pretty;
use strict;
use warnings;
use utf8;

sub load {
    my ($class, $p) = @_;

    my $app = $p->{app_prove};
    # make pretty output for testing only one file.
    if (@{$app->argv} == 1 && -f $app->argv->[0]) {
        unless ($app->quiet || $app->really_quiet) {
            $app->verbose(1);
        }
        $app->formatter('TAP::Formatter::Pretty::Single');
        $app->harness('Test::Pretty::Harness');
        $ENV{PERL_TEST_PRETTY_ENABLED} = 1;
    } elsif ($app->verbose) {
    # make pretty output for verbose multiple file test.
        $app->formatter('TAP::Formatter::Pretty::Multi');
        $app->harness('Test::Pretty::Harness');
        $ENV{PERL_TEST_PRETTY_ENABLED} = 1;
    } else {
        # do nothing.
    }
}

1;
__END__