Commit | Line | Data |
bdaf8c65 |
1 | package TAP::Formatter::File; |
2 | |
3 | use strict; |
4 | use TAP::Formatter::Base (); |
5 | use TAP::Formatter::File::Session; |
6 | use POSIX qw(strftime); |
7 | |
8 | use vars qw($VERSION @ISA); |
9 | |
10 | @ISA = qw(TAP::Formatter::Base); |
11 | |
12 | =head1 NAME |
13 | |
14 | TAP::Formatter::File - Harness output delegate for file output |
15 | |
16 | =head1 VERSION |
17 | |
a39e16d8 |
18 | Version 3.17 |
bdaf8c65 |
19 | |
20 | =cut |
21 | |
a39e16d8 |
22 | $VERSION = '3.17'; |
bdaf8c65 |
23 | |
24 | =head1 DESCRIPTION |
25 | |
26 | This 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 | |
35 | See L<TAP::Formatter::base> |
36 | |
37 | =cut |
38 | |
39 | sub 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 | |
54 | sub _should_show_count { |
55 | return 0; |
56 | } |
57 | |
58 | 1; |