local-lib5/lib/perl5/TAP/Formatter/File.pm

   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
  18 Version 3.17
  19
  20 =cut
  21
  22 $VERSION = '3.17';
  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;