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 17     17   2278 use strict;
  17         44  
  17         586  
4 17     17   146 use warnings;
  17         45  
  17         650  
5 17     17   8196 use TAP::Formatter::File::Session;
  17         57  
  17         810  
6 17     17   3102 use POSIX qw(strftime);
  17         37727  
  17         147  
7              
8 17     17   24824 use base 'TAP::Formatter::Base';
  17         106  
  17         8522  
9              
10             =head1 NAME
11              
12             TAP::Formatter::File - Harness output delegate for file output
13              
14             =head1 VERSION
15              
16             Version 3.40_01
17              
18             =cut
19              
20             our $VERSION = '3.40_01';
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 766 my ( $self, $test, $parser ) = @_;
39              
40 93         5340 my $session = TAP::Formatter::File::Session->new(
41             { name => $test,
42             formatter => $self,
43             parser => $parser,
44             }
45             );
46              
47 93         1592 $session->header;
48              
49 93         384 return $session;
50             }
51              
52             sub _should_show_count {
53 0     0     return 0;
54             }
55              
56             1;