#$@%#$%!

Ngiler SH3LL 360
: / usr / share / perl5 / vendor_perl / TAP / Harness /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : Env.pm \| Size : 5.29 KB
package TAP::Harness::Env; use strict; use warnings; use constant IS_VMS => ( $^O eq 'VMS' ); use TAP::Object; use Text::ParseWords qw/shellwords/; our $VERSION = '3.42'; # Get the parts of @INC which are changed from the stock list AND # preserve reordering of stock directories. sub _filtered_inc_vms { my @inc = grep { !ref } @INC; #28567 # VMS has a 255-byte limit on the length of %ENV entries, so # toss the ones that involve perl_root, the install location @inc = grep { !/perl_root/i } @inc; my @default_inc = _default_inc(); my @new_inc; my %seen; for my $dir (@inc) { next if $seen{$dir}++; if ( $dir eq ( $default_inc[0] \|\| '' ) ) { shift @default_inc; } else { push @new_inc, $dir; } shift @default_inc while @default_inc and $seen{ $default_inc[0] }; } return @new_inc; } # Cache this to avoid repeatedly shelling out to Perl. my @inc; sub _default_inc { return @inc if @inc; local $ENV{PERL5LIB}; local $ENV{PERLLIB}; my $perl = $ENV{HARNESS_PERL} \|\| $^X; # Avoid using -l for the benefit of Perl 6 chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` ); return @inc; } sub create { my $package = shift; my %input = %{ shift \|\| {} }; my @libs = @{ delete $input{libs} \|\| [] }; my @raw_switches = @{ delete $input{switches} \|\| [] }; my @opt = ( @raw_switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} \|\| '' ) ); my @switches; while ( my $opt = shift @opt ) { if ( $opt =~ /^ -I (.) $ /x ) { push @libs, length($1) ? $1 : shift @opt; } else { push @switches, $opt; } } # Do things the old way on VMS... push @libs, _filtered_inc_vms() if IS_VMS; # If $Verbose isn't numeric default to 1. This helps core. my $verbose = $ENV{HARNESS_VERBOSE} ? $ENV{HARNESS_VERBOSE} !~ /\d/ ? 1 : $ENV{HARNESS_VERBOSE} : 0; my %args = ( lib => \@libs, timer => $ENV{HARNESS_TIMER} \|\| 0, switches => \@switches, color => $ENV{HARNESS_COLOR} \|\| 0, verbosity => $verbose, ignore_exit => $ENV{HARNESS_IGNORE_EXIT} \|\| 0, ); my $class = delete $input{harness_class} \|\| $ENV{HARNESS_SUBCLASS} \|\| 'TAP::Harness'; if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) { for my $opt ( split /:/, $env_opt ) { if ( $opt =~ /^j(\d)$/ ) { $args{jobs} = $1 \|\| 9; } elsif ( $opt eq 'c' ) { $args{color} = 1; } elsif ( $opt =~ m/^f(.)$/ ) { my $fmt = $1; $fmt =~ s/-/::/g; $args{formatter_class} = $fmt; } elsif ( $opt =~ m/^a(.)$/ ) { my $archive = $1; $class = 'TAP::Harness::Archive'; $args{archive} = $archive; } else { die "Unknown HARNESS_OPTIONS item: $opt\n"; } } } return TAP::Object->_construct($class, { %args, %input }); } 1; =head1 NAME TAP::Harness::Env - Parsing harness related environmental variables where appropriate =head1 VERSION Version 3.42 =head1 SYNOPSIS my $harness = TAP::Harness::Env->create(\%extra_args) =head1 DESCRIPTION This module implements the environmental variables that L<Test::Harness> uses with TAP::Harness, and instantiates the appropriate class with the appropriate arguments. =head1 METHODS =over 4 =item * create( \%args ) This function reads the environment and generates an appropriate argument hash from it. If given any arguments in C<%extra_args>, these will override the environmental defaults. In accepts C<harness_class> (which defaults to C<TAP::Harness>), and any argument the harness class accepts. =back =head1 ENVIRONMENTAL VARIABLES =over 4 =item C<HARNESS_PERL_SWITCHES> Setting this adds perl command line switches to each test file run. For example, C<HARNESS_PERL_SWITCHES=-T> will turn on taint mode. C<HARNESS_PERL_SWITCHES=-MDevel::Cover> will run C<Devel::Cover> for each test. =item C<HARNESS_VERBOSE> If true, C<TAP::Harness> will output the verbose results of running its tests. =item C<HARNESS_SUBCLASS> Specifies a TAP::Harness subclass to be used in place of TAP::Harness. =item C<HARNESS_OPTIONS> Provide additional options to the harness. Currently supported options are: =over =item C<< j<n> >> Run <n> (default 9) parallel jobs. =item C<< c >> Try to color output. See L<TAP::Formatter::Base/"new">. =item C<< a<file.tgz> >> Will use L<TAP::Harness::Archive> as the harness class, and save the TAP to C<file.tgz> =item C<< fPackage-With-Dashes >> Set the formatter_class of the harness being run. Since the C<HARNESS_OPTIONS> is seperated by C<:>, we use C<-> instead. =back Multiple options may be separated by colons: HARNESS_OPTIONS=j9:c make test =item C<HARNESS_TIMER> Setting this to true will make the harness display the number of milliseconds each test took. You can also use F<prove>'s C<--timer> switch. =item C<HARNESS_COLOR> Attempt to produce color output. =item C<HARNESS_IGNORE_EXIT> If set to a true value instruct C<TAP::Parser> to ignore exit and wait status from test scripts. =back Back

Edit File : Env.pm | Size : 5.29 KB

package TAP::Harness::Env;

use strict;
use warnings;

use constant IS_VMS => ( $^O eq 'VMS' );
use TAP::Object;
use Text::ParseWords qw/shellwords/;

our $VERSION = '3.42';

# Get the parts of @INC which are changed from the stock list AND
# preserve reordering of stock directories.
sub _filtered_inc_vms {
    my @inc = grep { !ref } @INC;    #28567

# VMS has a 255-byte limit on the length of %ENV entries, so
    # toss the ones that involve perl_root, the install location
    @inc = grep { !/perl_root/i } @inc;

my @default_inc = _default_inc();

my @new_inc;
    my %seen;
    for my $dir (@inc) {
        next if $seen{$dir}++;

if ( $dir eq ( $default_inc[0] || '' ) ) {
            shift @default_inc;
        }
        else {
            push @new_inc, $dir;
        }

shift @default_inc while @default_inc and $seen{ $default_inc[0] };
    }
    return @new_inc;
}

# Cache this to avoid repeatedly shelling out to Perl.
my @inc;

sub _default_inc {
    return @inc if @inc;

local $ENV{PERL5LIB};
    local $ENV{PERLLIB};

my $perl = $ENV{HARNESS_PERL} || $^X;

# Avoid using -l for the benefit of Perl 6
    chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` );
    return @inc;
}

sub create {
	my $package = shift;
    my %input = %{ shift || {} };

my @libs         = @{ delete $input{libs}     || [] };
    my @raw_switches = @{ delete $input{switches} || [] };
    my @opt
      = ( @raw_switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} || '' ) );
    my @switches;
    while ( my $opt = shift @opt ) {
        if ( $opt =~ /^ -I (.*) $ /x ) {
            push @libs, length($1) ? $1 : shift @opt;
        }
        else {
            push @switches, $opt;
        }
    }

# Do things the old way on VMS...
    push @libs, _filtered_inc_vms() if IS_VMS;

# If $Verbose isn't numeric default to 1. This helps core.
    my $verbose
      = $ENV{HARNESS_VERBOSE}
      ? $ENV{HARNESS_VERBOSE} !~ /\d/
          ? 1
          : $ENV{HARNESS_VERBOSE}
      : 0;

my %args = (
        lib         => \@libs,
        timer       => $ENV{HARNESS_TIMER} || 0,
        switches    => \@switches,
        color       => $ENV{HARNESS_COLOR} || 0,
        verbosity   => $verbose,
        ignore_exit => $ENV{HARNESS_IGNORE_EXIT} || 0,
    );

my $class = delete $input{harness_class} || $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
    if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) {
        for my $opt ( split /:/, $env_opt ) {
            if ( $opt =~ /^j(\d*)$/ ) {
                $args{jobs} = $1 || 9;
            }
            elsif ( $opt eq 'c' ) {
                $args{color} = 1;
            }
            elsif ( $opt =~ m/^f(.*)$/ ) {
                my $fmt = $1;
                $fmt =~ s/-/::/g;
                $args{formatter_class} = $fmt;
            }
            elsif ( $opt =~ m/^a(.*)$/ ) {
                my $archive = $1;
                $class = 'TAP::Harness::Archive';
                $args{archive} = $archive;
            }
            else {
                die "Unknown HARNESS_OPTIONS item: $opt\n";
            }
        }
    }
    return TAP::Object->_construct($class, { %args, %input });
}

=head1 NAME

TAP::Harness::Env - Parsing harness related environmental variables where appropriate

=head1 VERSION

Version 3.42

=head1 SYNOPSIS

my $harness = TAP::Harness::Env->create(\%extra_args)

=head1 DESCRIPTION

This module implements the environmental variables that L<Test::Harness> uses with TAP::Harness, and instantiates the appropriate class with the appropriate arguments.

=head1 METHODS

=over 4

=item * create( \%args )

This function reads the environment and generates an appropriate argument hash from it. If given any arguments in C<%extra_args>, these will override the environmental defaults. In accepts C<harness_class> (which defaults to C<TAP::Harness>), and any argument the harness class accepts.

=back

=head1 ENVIRONMENTAL VARIABLES

=over 4

=item C<HARNESS_PERL_SWITCHES>

Setting this adds perl command line switches to each test file run.

For example, C<HARNESS_PERL_SWITCHES=-T> will turn on taint mode.
C<HARNESS_PERL_SWITCHES=-MDevel::Cover> will run C<Devel::Cover> for
each test.

=item C<HARNESS_VERBOSE>

If true, C<TAP::Harness> will output the verbose results of running
its tests.

=item C<HARNESS_SUBCLASS>

Specifies a TAP::Harness subclass to be used in place of TAP::Harness.

=item C<HARNESS_OPTIONS>

Provide additional options to the harness. Currently supported options are:

=over

=item C<< j<n> >>

Run <n> (default 9) parallel jobs.

=item C<< c >>

Try to color output. See L<TAP::Formatter::Base/"new">.

=item C<< a<file.tgz> >>

Will use L<TAP::Harness::Archive> as the harness class, and save the TAP to
C<file.tgz>

=item C<< fPackage-With-Dashes >>

Set the formatter_class of the harness being run. Since the C<HARNESS_OPTIONS>
is seperated by C<:>, we use C<-> instead.

=back

Multiple options may be separated by colons:

HARNESS_OPTIONS=j9:c make test

=item C<HARNESS_TIMER>

Setting this to true will make the harness display the number of
milliseconds each test took.  You can also use F<prove>'s C<--timer>
switch.

=item C<HARNESS_COLOR>

Attempt to produce color output.

=item C<HARNESS_IGNORE_EXIT>

If set to a true value instruct C<TAP::Parser> to ignore exit and wait
status from test scripts.

=back

Back