File Coverage

blib/lib/TAP/Formatter/File.pm
Criterion Covered Total %
statement 19 20 95.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package TAP::Formatter::File;
2              
3 15     15   2276 use strict;
  15         59  
  15         464  
4 15     15   56 use warnings;
  15         19  
  15         487  
5 15     15   5812 use TAP::Formatter::File::Session;
  15         31  
  15         457  
6 15     15   1659 use POSIX qw(strftime);
  15         15373  
  15         155  
7              
8 15     15   14240 use base 'TAP::Formatter::Base';
  15         280  
  15         5765  
9              
10             =head1 NAME
11              
12             TAP::Formatter::File - Harness output delegate for file output
13              
14             =head1 VERSION
15              
16             Version 3.38
17              
18             =cut
19              
20             our $VERSION = '3.38';
21              
22             =head1 DESCRIPTION
23              
24             This provides file orientated output formatting for TAP::Harness.
25              
26             =head1 SYNOPSIS
27              
28             use TAP::Formatter::File;
29             my $harness = TAP::Formatter::File->new( \%args );
30              
31             =head2 C<< open_test >>
32              
33             See L
34              
35             =cut
36              
37             sub open_test {
38 93     93 1 205 my ( $self, $test, $parser ) = @_;
39              
40 93         1510 my $session = TAP::Formatter::File::Session->new(
41             { name => $test,
42             formatter => $self,
43             parser => $parser,
44             }
45             );
46              
47 93         382 $session->header;
48              
49 93         195 return $session;
50             }
51              
52             sub _should_show_count {
53 0     0     return 0;
54             }
55              
56             1;