[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
perl5
/
vendor_perl
/
TAP
/
Formatter
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📁 Console
SET
[ DEL ]
📁 File
SET
[ DEL ]
📄 Base.pm
11,870 B
SET
[ EDIT ]
|
[ DEL ]
📄 Color.pm
2,321 B
SET
[ EDIT ]
|
[ DEL ]
📄 Console.pm
1,995 B
SET
[ EDIT ]
|
[ DEL ]
📄 File.pm
850 B
SET
[ EDIT ]
|
[ DEL ]
📄 Session.pm
4,988 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: File.pm
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.42 =cut our $VERSION = '3.42'; =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;