1package TAP::Formatter::File; 2 3use strict; 4use TAP::Formatter::Base (); 5use TAP::Formatter::File::Session; 6use POSIX qw(strftime); 7 8use vars qw($VERSION @ISA); 9 10@ISA = qw(TAP::Formatter::Base); 11 12=head1 NAME 13 14TAP::Formatter::File - Harness output delegate for file output 15 16=head1 VERSION 17 18Version 3.17 19 20=cut 21 22$VERSION = '3.17'; 23 24=head1 DESCRIPTION 25 26This provides file orientated output formatting for TAP::Harness. 27 28=head1 SYNOPSIS 29 30 use TAP::Formatter::File; 31 my $harness = TAP::Formatter::File->new( \%args ); 32 33=head2 C<< open_test >> 34 35See L<TAP::Formatter::base> 36 37=cut 38 39sub open_test { 40 my ( $self, $test, $parser ) = @_; 41 42 my $session = TAP::Formatter::File::Session->new( 43 { name => $test, 44 formatter => $self, 45 parser => $parser, 46 } 47 ); 48 49 $session->header; 50 51 return $session; 52} 53 54sub _should_show_count { 55 return 0; 56} 57 581; 59