golden hour
/usr/share/perl5/vendor_perl/TAP/Formatter
⬆️ Go Up
Upload
File/Folder
Size
Actions
Base.pm
11.63 KB
Del
OK
Color.pm
3.21 KB
Del
OK
Console
-
Del
OK
Console.pm
1.75 KB
Del
OK
File
-
Del
OK
File.pm
890 B
Del
OK
Session.pm
3.74 KB
Del
OK
Edit: File.pm
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.28 =cut $VERSION = '3.28'; =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