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   1426 use strict;
  15         20  
  15         439  
4 15     15   57 use warnings;
  15         16  
  15         534  
5 15     15   6291 use TAP::Formatter::File::Session;
  15         32  
  15         432  
6 15     15   1467 use POSIX qw(strftime);
  15         14715  
  15         159  
7              
8 15     15   14394 use base 'TAP::Formatter::Base';
  15         305  
  15         6015  
9              
10             =head1 NAME
11              
12             TAP::Formatter::File - Harness output delegate for file output
13              
14             =head1 VERSION
15              
16             Version 3.39
17              
18             =cut
19              
20             our $VERSION = '3.39';
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 239 my ( $self, $test, $parser ) = @_;
39              
40 93         1539 my $session = TAP::Formatter::File::Session->new(
41             { name => $test,
42             formatter => $self,
43             parser => $parser,
44             }
45             );
46              
47 93         348 $session->header;
48              
49 93         195 return $session;
50             }
51              
52             sub _should_show_count {
53 0     0     return 0;
54             }
55              
56             1;