1package TAP::Formatter::File;
2
3use strict;
4use warnings;
5use TAP::Formatter::File::Session;
6use POSIX qw(strftime);
7
8use base 'TAP::Formatter::Base';
9
10=head1 NAME
11
12TAP::Formatter::File - Harness output delegate for file output
13
14=head1 VERSION
15
16Version 3.30
17
18=cut
19
20our $VERSION = '3.30_01';
21
22=head1 DESCRIPTION
23
24This 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
33See L<TAP::Formatter::base>
34
35=cut
36
37sub open_test {
38    my ( $self, $test, $parser ) = @_;
39
40    my $session = TAP::Formatter::File::Session->new(
41        {   name      => $test,
42            formatter => $self,
43            parser    => $parser,
44        }
45    );
46
47    $session->header;
48
49    return $session;
50}
51
52sub _should_show_count {
53    return 0;
54}
55
561;
57