Na}{

Server IP: 162.240.74.182

Your IP: 216.73.217.6

Web Server: Apache

System: Linux 3.10.0-1160.119.1.el7.x86_64 (shell_exec disabled)

User: gdg

PHP Version: 8.0.30

Disable Function: exec, passthru, shell_exec, system

MySQL: OFF

cURL: ON

WGET: OFF

Perl: OFF

Python: OFF

Sudo: OFF

Pkexec: OFF

Command Bosku:

Path: ~//usr/share/doc/perl-Test-Simple-0.98/t/Builder/

File Content: `Builder.t`

#!/usr/bin/perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = '../lib';
    }
}

use Test::Builder;
my $Test = Test::Builder->new;

$Test->plan( tests => 7 );

my $default_lvl = $Test->level;
$Test->level(0);

$Test->ok( 1,  'compiled and new()' );
$Test->ok( $default_lvl == 1,      'level()' );

$Test->is_eq('foo', 'foo',      'is_eq');
$Test->is_num('23.0', '23',     'is_num');

$Test->is_num( $Test->current_test, 4,  'current_test() get' );

my $test_num = $Test->current_test + 1;
$Test->current_test( $test_num );
print "ok $test_num - current_test() set\n";

$Test->ok( 1, 'counter still good' );

Edit Rename Chmod Delete

FILE FOLDER

Name	Size	Permission
Builder.t	635 bytes	0644
carp.t	587 bytes	0644
create.t	818 bytes	0644
current_test.t	259 bytes	0644
current_test_without_plan.t	233 bytes	0644
details.t	3050 bytes	0644
done_testing.t	235 bytes	0644
done_testing_double.t	912 bytes	0644
done_testing_plan_mismatch.t	787 bytes	0644
done_testing_with_no_plan.t	152 bytes	0644
done_testing_with_number.t	236 bytes	0644
done_testing_with_plan.t	153 bytes	0644
fork_with_new_stdout.t	907 bytes	0644
has_plan.t	366 bytes	0644
has_plan2.t	355 bytes	0644
is_fh.t	975 bytes	0644
is_passing.t	2254 bytes	0644
maybe_regex.t	1314 bytes	0644
no_diag.t	148 bytes	0644
no_ending.t	345 bytes	0644
no_header.t	298 bytes	0644
no_plan_at_all.t	722 bytes	0644
ok_obj.t	462 bytes	0644
output.t	1995 bytes	0644
reset.t	2048 bytes	0644
reset_outputs.t	784 bytes	0644
try.t	747 bytes	0644

N4ST4R_ID | Naxtarrr

Command Bosku:

File Content: Builder.t

File Content: `Builder.t`