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


line stmt bran cond sub pod time code
1 2     2   709 use strict;
  2         2  
  2         50  
2 2     2   7 use warnings;
  2         2  
  2         53  
3              
4             package Test::Pretty::Harness;
5 2     2   7 use parent qw/TAP::Harness/;
  2         2  
  2         7  
6              
7             # inject parser_class as Test::Pretty::Parser.
8             sub new {
9 2     2 1 946 my $class = shift;
10 2         3 my $arg_for = shift;
11 2         3 $arg_for->{parser_class} = 'Test::Pretty::Parser';
12 2         3 $arg_for->{switches} = ['-MTest::Pretty'];
13 2         14 my $self = $class->SUPER::new($arg_for);
14 2         272 return $self;
15             }
16              
17             1;