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   1063 use strict;
  2         2  
  2         51  
3 2     2   8 use warnings;
  2         2  
  2         41  
4 2     2   829 use POSIX qw(strftime);
  2         8231  
  2         9  
5              
6 2     2   1418 use parent qw(TAP::Formatter::Base);
  2         4  
  2         10  
7 2     2   5025 use TAP::Formatter::Pretty::Single::Session;
  2         3  
  2         189  
8              
9             sub open_test {
10 2     2 1 21143 my ( $self, $test, $parser ) = @_;
11              
12 2 50       25 if ($self->jobs > 1) {
13 0         0 die "This formatter does not support parallel testing";
14             }
15              
16 2         28 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         221 return $session;
25             }
26              
27             sub summary {
28 2     2 1 919 my ( $self, $aggregate, $interrupted ) = @_;
29 2         31 $self->_output($/);
30             }
31              
32             1;