<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package TAP::Formatter::File;

use strict;
use warnings;
use TAP::Formatter::File::Session;
use POSIX qw(strftime);

use base 'TAP::Formatter::Base';

=head1 NAME

TAP::Formatter::File - Harness output delegate for file output

=head1 VERSION

Version 3.30

=cut

our $VERSION = '3.30';

=head1 DESCRIPTION

This provides file orientated output formatting for TAP::Harness.

=head1 SYNOPSIS

 use TAP::Formatter::File;
 my $harness = TAP::Formatter::File-&gt;new( \%args );

=head2 C&lt;&lt; open_test &gt;&gt;

See L&lt;TAP::Formatter::base&gt;

=cut

sub open_test {
    my ( $self, $test, $parser ) = @_;

    my $session = TAP::Formatter::File::Session-&gt;new(
        {   name      =&gt; $test,
            formatter =&gt; $self,
            parser    =&gt; $parser,
        }
    );

    $session-&gt;header;

    return $session;
}

sub _should_show_count {
    return 0;
}

1;
</pre></body></html>