File Coverage

blib/lib/Test/Pretty/Harness.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	20	20	100.0

use strict;
use warnings;

package Test::Pretty::Harness;
use parent qw/TAP::Harness/;

# inject parser_class as Test::Pretty::Parser.
sub new {
    my $class = shift;
    my $arg_for = shift;
    $arg_for->{parser_class} = 'Test::Pretty::Parser';
    $arg_for->{switches} = ['-MTest::Pretty'];
    my $self = $class->SUPER::new($arg_for);
    return $self;
}

1;