/
usr
/
share
/
perl5
/
TAP
/
Formatter
/
/usr/share/perl5/TAP/Formatter
mkdir
upload
Name
Size
Mode
Actions
Console/
-
0755
rm
File/
-
0755
rm
Base.pm
11351
0644
edit
dl
rm
Color.pm
3291
0644
edit
dl
rm
Console.pm
1789
0644
edit
dl
rm
File.pm
890
0644
edit
dl
rm
Session.pm
3753
0644
edit
dl
rm
Edit:
/usr/share/perl5/TAP/Formatter/File.pm
(890B)
package TAP::Formatter::File; use strict; use TAP::Formatter::Base (); use TAP::Formatter::File::Session; use POSIX qw(strftime); use vars qw($VERSION @ISA); @ISA = qw(TAP::Formatter::Base); =head1 NAME TAP::Formatter::File - Harness output delegate for file output =head1 VERSION Version 3.17 =cut $VERSION = '3.17'; =head1 DESCRIPTION This provides file orientated output formatting for TAP::Harness. =head1 SYNOPSIS use TAP::Formatter::File; my $harness = TAP::Formatter::File->new( \%args ); =head2 C<< open_test >> See L<TAP::Formatter::base> =cut sub open_test { my ( $self, $test, $parser ) = @_; my $session = TAP::Formatter::File::Session->new( { name => $test, formatter => $self, parser => $parser, } ); $session->header; return $session; } sub _should_show_count { return 0; } 1;
Save
cmd:
run