File Coverage

blib/lib/TAP/Formatter/Pretty/Single.pm
Criterion Covered Total %
statement 21 22 95.4
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 31 33 93.9


line stmt bran cond sub pod time code
1             package TAP::Formatter::Pretty::Single;
2 2     2   1825 use strict;
  2         5  
  2         50  
3 2     2   10 use warnings;
  2         3  
  2         66  
4 2     2   1544 use POSIX qw(strftime);
  2         13118  
  2         13  
5              
6 2     2   2468 use parent qw(TAP::Formatter::Base);
  2         3  
  2         15  
7 2     2   7572 use TAP::Formatter::Pretty::Single::Session;
  2         5  
  2         246  
8              
9             sub open_test {
10 2     2 1 25901 my ( $self, $test, $parser ) = @_;
11              
12 2 50       40 if ($self->jobs > 1) {
13 0         0 die "This formatter does not support parallel testing";
14             }
15              
16 2         65 my $session = TAP::Formatter::Pretty::Single::Session->new(
17             { name => $test,
18             formatter => $self,
19             parser => $parser,
20             show_count => $self->show_count,
21             }
22             );
23              
24 2         536 return $session;
25             }
26              
27             sub summary {
28 2     2 1 2138 my ( $self, $aggregate, $interrupted ) = @_;
29 2         114 $self->_output($/);
30             }
31              
32             1;