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   1738 use strict;
  2         4  
  2         81  
3 2     2   11 use warnings;
  2         2  
  2         74  
4 2     2   1366 use POSIX qw(strftime);
  2         15253  
  2         14  
5              
6 2     2   2823 use parent qw(TAP::Formatter::Base);
  2         4  
  2         16  
7 2     2   8803 use TAP::Formatter::Pretty::Single::Session;
  2         5  
  2         393  
8              
9             sub open_test {
10 2     2 1 329264 my ( $self, $test, $parser ) = @_;
11              
12 2 50       36 if ($self->jobs > 1) {
13 0         0 die "This formatter does not support parallel testing";
14             }
15              
16 2         42 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         329 return $session;
25             }
26              
27             sub summary {
28 2     2 1 1246 my ( $self, $aggregate, $interrupted ) = @_;
29 2         34 $self->_output($/);
30             }
31              
32             1;