| line |
true |
false |
branch |
|
54
|
1 |
0 |
if (@_ == 1) { } |
|
56
|
1 |
0 |
if ($n eq 'no_plan') |
|
62
|
0 |
0 |
if $plan{'skip_all'} |
|
65
|
0 |
1 |
unless $noplan |
|
73
|
0 |
0 |
if @_ |
|
82
|
1 |
0 |
if (not $NO_ENDING) |
|
83
|
0 |
1 |
if (defined $planned and $planned != $ran) { } |
|
|
1 |
0 |
elsif ($noplan) { } |
|
93
|
0 |
0 |
unless @_ |
|
95
|
0 |
0 |
$TODO ? : |
|
106
|
166 |
1 |
unless @_ |
|
116
|
0 |
0 |
unless is_miniperl() |
|
121
|
0 |
1 |
/^#/ ? : |
|
127
|
0 |
0 |
unless (eval {
do {
require Config;
1
}
}) |
|
132
|
0 |
0 |
if $Config::Config{'extensions'} =~ /\b$extension\b/ |
|
136
|
0 |
0 |
if (@_) { } |
|
145
|
0 |
0 |
if is_miniperl() |
|
150
|
0 |
0 |
if is_miniperl() |
|
151
|
0 |
0 |
if &_have_dynamic_extension |
|
156
|
0 |
0 |
unless 'PerlIO::Layer'->find('perlio') |
|
160
|
0 |
0 |
unless (eval {
do {
require Config;
1
}
}) |
|
165
|
0 |
0 |
if $Config::Config{$_} |
|
174
|
0 |
0 |
if (is_miniperl()) |
|
175
|
0 |
0 |
unless eval 'require "unicore/Heavy.pl"' |
|
182
|
0 |
0 |
if (-d '.git') { } |
|
|
0 |
0 |
elsif (-l 'MANIFEST' and -l 'AUTHORS') { } |
|
|
0 |
0 |
elsif (exists $ENV{'GIT_DIR'}) { } |
|
186
|
0 |
0 |
unless defined $where |
|
187
|
0 |
0 |
unless $where =~ s[/MANIFEST\z][] |
|
189
|
0 |
0 |
if (-d "$where/.git") |
|
191
|
0 |
0 |
if (exists $ENV{'GIT_DIR'}) { } |
|
203
|
0 |
0 |
if ($out eq $commit) |
|
207
|
0 |
0 |
if ($source_dir) { } |
|
209
|
0 |
0 |
if (defined $version_string and $version_string =~ /\Agit version (\d+\.\d+\.\d+)(.*)/) { } |
|
211
|
0 |
0 |
if eval "v$1 ge v1.5.0" |
|
220
|
0 |
0 |
if $_[0] and $_[0] eq 'all' |
|
235
|
167 |
0 |
if ($name) { } |
|
238
|
167 |
0 |
$pass ? : |
|
240
|
0 |
0 |
$pass ? : |
|
243
|
0 |
167 |
if ($TODO) { } |
|
246
|
0 |
167 |
unless $pass |
|
251
|
167 |
0 |
if ($pass) { } |
|
256
|
0 |
0 |
if $name |
|
280
|
0 |
0 |
unless defined $x |
|
289
|
0 |
0 |
defined $x ? : |
|
302
|
0 |
0 |
if (defined $x and not ref $x) |
|
305
|
0 |
0 |
if ($c > 255) { } |
|
|
0 |
0 |
elsif ($backslash_escape{$c}) { } |
|
312
|
0 |
0 |
unless ($z =~ /[^[:^print:][:^ascii:]]/) |
|
323
|
0 |
0 |
if ($c < 32) { } |
|
334
|
0 |
0 |
unless wantarray |
|
344
|
0 |
46 |
if (not defined $got && defined $expected) { } |
|
352
|
0 |
46 |
unless ($pass) |
|
363
|
3 |
0 |
if (not defined $got && defined $isnt) { } |
|
371
|
0 |
3 |
unless ($pass) |
|
388
|
0 |
0 |
unless ($pass) |
|
396
|
0 |
0 |
if ($got eq $expected and not $type =~ tr/a-z//) |
|
414
|
0 |
0 |
if (not defined $got && defined $expected && defined $range) { } |
|
|
0 |
0 |
elsif (not $got =~ tr/0-9// && $expected =~ tr/0-9// && $range =~ tr/0-9//) { } |
|
|
0 |
0 |
elsif ($range < 0) { } |
|
|
0 |
0 |
elsif ($range == 0) { } |
|
|
0 |
0 |
elsif ($expected == 0) { } |
|
432
|
0 |
0 |
unless ($pass) |
|
433
|
0 |
0 |
if ($got eq $expected) |
|
450
|
65 |
0 |
unless $flip |
|
451
|
0 |
65 |
if $flip |
|
452
|
0 |
65 |
unless ($pass) |
|
453
|
0 |
0 |
$flip ? : |
|
470
|
0 |
0 |
if @_ |
|
484
|
0 |
3 |
@_ ? : |
|
492
|
0 |
3 |
if ($bad_swap or $both_zero or @_) |
|
494
|
0 |
0 |
if (@_) |
|
508
|
0 |
0 |
if is_miniperl() |
|
513
|
0 |
0 |
if is_miniperl() |
|
515
|
0 |
0 |
if &_have_dynamic_extension($extension) |
|
521
|
0 |
0 |
@_ ? : |
|
533
|
0 |
0 |
unless $#$ra == $#$rb |
|
535
|
0 |
0 |
unless defined $ra->[$i] or defined $rb->[$i] |
|
536
|
0 |
0 |
unless defined $ra->[$i] |
|
537
|
0 |
0 |
unless defined $rb->[$i] |
|
538
|
0 |
0 |
unless $ra->[$i] eq $rb->[$i] |
|
549
|
0 |
0 |
if (exists $orig->{$key}) { } |
|
550
|
0 |
0 |
if (defined $orig->{$key} != defined $value or defined $value and $orig->{$key} ne $value) |
|
567
|
0 |
0 |
if exists $suspect->{$_} |
|
577
|
0 |
0 |
if ($require =~ tr[.0-:A-[]a-z][\-\000-,/;-@\\^-`{-\377]c) { } |
|
589
|
0 |
1 |
if ($use =~ tr[.0-:A-[]a-z][\-\000-,/;-@\\^-`{-\377]c) { } |
|
624
|
0 |
0 |
if $is_vms and not /^\"/ and length $_ > 0 |
|
633
|
0 |
1 |
if ($runperl =~ /\s/) |
|
637
|
0 |
1 |
if ($ENV{'PERL_RUNPERL_DEBUG'}) |
|
640
|
0 |
1 |
unless ($args{'nolib'}) |
|
643
|
0 |
1 |
if ($args{'switches'}) |
|
646
|
0 |
0 |
unless ref $args{'switches'} eq 'ARRAY' |
|
649
|
1 |
0 |
if (defined $args{'prog'}) |
|
651
|
0 |
1 |
if defined $args{'progs'} |
|
654
|
1 |
0 |
if (defined $args{'progs'}) { } |
|
|
0 |
0 |
elsif (defined $args{'progfile'}) { } |
|
656
|
0 |
1 |
unless ref $args{'progs'} eq 'ARRAY' |
|
658
|
1 |
0 |
unless ($args{'non_portable'}) |
|
659
|
0 |
1 |
if ($prog =~ tr/"'//) |
|
662
|
0 |
1 |
if ($prog =~ /^([<>|]|2>)/) |
|
665
|
0 |
1 |
if ($prog =~ /&\z/) |
|
669
|
0 |
1 |
if ($is_mswin or $is_netware or $is_vms) { } |
|
683
|
0 |
0 |
unless defined $args{'args'} or defined $args{'switches'} or defined $args{'stdin'} |
|
685
|
0 |
1 |
if (defined $args{'stdin'}) { } |
|
|
0 |
1 |
elsif (exists $args{'stdin'}) { } |
|
691
|
0 |
0 |
if ($is_mswin or $is_netware or $is_vms) { } |
|
720
|
0 |
0 |
$is_mswin ? : |
|
722
|
0 |
1 |
if (defined $args{'args'}) |
|
725
|
0 |
1 |
if (exists $args{'stderr'} and $args{'stderr'} eq 'devnull') { } |
|
|
0 |
1 |
elsif ($args{'stderr'}) { } |
|
726
|
0 |
0 |
$is_mswin ? : |
|
731
|
0 |
1 |
if ($args{'verbose'}) |
|
741
|
0 |
1 |
if ref $_[0] and ref $_[0] eq 'HASH' |
|
748
|
0 |
1 |
if exists $args{'switches'} and grep /^-T$/, @{$args{'switches'};} |
|
750
|
0 |
1 |
if ($tainted) { } |
|
755
|
0 |
0 |
if (not eval {
do {
require Config;
1
}
}) { } |
|
765
|
0 |
0 |
if $is_vms and exists $ENV{'DCL$PATH'} and $ENV{'DCL$PATH'} =~ /(.*)/s |
|
768
|
0 |
0 |
if $_ ne '' and $_ ne '.' and -d $_ |
|
771
|
0 |
0 |
if ($is_cygwin) |
|
772
|
0 |
0 |
if (length $ENV{'PATH'}) |
|
784
|
0 |
1 |
if $is_vms |
|
798
|
1 |
0 |
unless (defined $Perl) |
|
802
|
0 |
1 |
if $is_vms |
|
805
|
0 |
1 |
if (not eval {
do {
require Config;
1
}
}) { } |
|
811
|
0 |
1 |
unless defined $exe |
|
817
|
0 |
1 |
if ($Perl =~ /^perl\Q$exe\E$/i) |
|
819
|
0 |
0 |
if (not eval {
do {
require File::Spec;
1
}
}) { } |
|
830
|
0 |
1 |
unless ($Perl =~ /\Q$exe\E$/i) |
|
834
|
0 |
1 |
unless -f $Perl |
|
846
|
0 |
1 |
if (-f $file) { } |
|
874
|
0 |
1 |
unless $num >= 0 |
|
877
|
0 |
1 |
if $max_char < 0 |
|
882
|
1 |
0 |
if $num == 0 |
|
886
|
0 |
0 |
unless $max_char |
|
888
|
0 |
0 |
if $char_count == $max_char |
|
905
|
0 |
1 |
unless defined $alpha |
|
911
|
1 |
0 |
unless ($tmpfiles{$try} or -e $try) |
|
932
|
0 |
0 |
if ($tmpfiles{$_}) { } |
|
957
|
0 |
0 |
unless exists $runperl_args->{'stderr'} |
|
959
|
0 |
0 |
unless open TEST, ">$tmpfile" |
|
961
|
0 |
0 |
unless close TEST |
|
975
|
0 |
0 |
if ($is_vms) |
|
984
|
0 |
0 |
unless ($name) |
|
986
|
0 |
0 |
if length $first_line > length $name |
|
994
|
0 |
0 |
if ($action eq 'eq') { } |
|
|
0 |
0 |
elsif ($action eq '=~') { } |
|
1002
|
0 |
0 |
unless ($pass) |
|
1079
|
0 |
0 |
if ($_ eq "########\n") { } |
|
1080
|
0 |
0 |
if (defined $current) |
|
1085
|
0 |
0 |
unless (defined $current) |
|
1091
|
0 |
0 |
if (defined $current) |
|
1100
|
0 |
0 |
if $file =~ /(?:~|\.orig|,v)$/ |
|
1101
|
0 |
0 |
if $file =~ /perlio$/ and not 'PerlIO::Layer'->find('perlio') |
|
1102
|
0 |
0 |
if -d $file |
|
1104
|
0 |
0 |
unless open my $fh, '<', $file |
|
1107
|
0 |
0 |
if (/^__END__/) |
|
1121
|
0 |
0 |
unless $found |
|
1128
|
0 |
0 |
unless close $fh |
|
1137
|
0 |
0 |
if ($up) { } |
|
1162
|
0 |
0 |
unless ($line) |
|
1164
|
0 |
0 |
if (defined $file) |
|
1172
|
0 |
0 |
if (s/^(\s*-\w+)//) |
|
1179
|
0 |
0 |
if $prog =~ s/^#\s*\U$what\E\s*(.*)\n//m |
|
1182
|
0 |
0 |
if ($reason{$what} and $reason{$what} =~ s/^\?//) |
|
1184
|
0 |
0 |
if ($@) |
|
1192
|
0 |
0 |
if ($prog =~ s/^#\s*NAME\s+(.+)\n//m) |
|
1196
|
0 |
0 |
if ($reason{'skip'}) |
|
1199
|
0 |
0 |
$name ? : |
|
1204
|
0 |
0 |
if ($prog =~ /--FILE--/) |
|
1207
|
0 |
0 |
if @files % 2 |
|
1214
|
0 |
0 |
if ($filename =~ m[(.*)/] and not $filename =~ m[^\.\./]) |
|
1219
|
0 |
0 |
unless open my $fh, '>', $filename |
|
1221
|
0 |
0 |
unless close $fh |
|
1227
|
0 |
0 |
unless open my $fh, '>', $tmpfile |
|
1236
|
0 |
0 |
unless close $fh |
|
1237
|
0 |
0 |
$up ? : |
|
1246
|
0 |
0 |
if ($^O eq 'VMS') |
|
1265
|
0 |
0 |
if ($expected =~ s/^OPTIONS? (.+)\n//) |
|
1267
|
0 |
0 |
if ($option eq 'regex') { } |
|
|
0 |
0 |
elsif ($option eq 'random') { } |
|
|
0 |
0 |
elsif ($option eq 'fatal') { } |
|
1281
|
0 |
0 |
if $option_regex + $option_random > 1 |
|
1284
|
0 |
0 |
if ($results =~ s/^SKIPPED\n//) { } |
|
1289
|
0 |
0 |
if ($option_random) { } |
|
|
0 |
0 |
elsif ($option_regex) { } |
|
|
0 |
0 |
elsif ($prefix) { } |
|
1305
|
0 |
0 |
if ($ok and $fatal and not $status >> 8) |
|
1312
|
0 |
0 |
unless ($ok) |
|
1315
|
0 |
0 |
if $fatal |
|
1317
|
0 |
0 |
if $fatal |
|
1318
|
0 |
0 |
if ($TODO) { } |
|
1327
|
0 |
0 |
if (defined $file) { } |
|
1337
|
0 |
0 |
if $_ |
|
1340
|
0 |
0 |
if -d $_ |
|
1349
|
0 |
0 |
unless (@methods) |
|
1357
|
0 |
0 |
unless eval {
do {
$proto->can($method)
}
} |
|
1361
|
0 |
0 |
@methods == 1 ? : |
|
1373
|
0 |
0 |
unless defined $obj_name |
|
1381
|
0 |
0 |
if ($ok) { } |
|
1398
|
0 |
0 |
unless defined $obj_name |
|
1400
|
0 |
0 |
if (not defined $object) { } |
|
1404
|
0 |
0 |
ref $object ? : |
|
1411
|
0 |
0 |
if ($error) { } |
|
|
0 |
0 |
elsif (not $rslt) { } |
|
1412
|
0 |
0 |
if ($error =~ /^Can't call method "isa" on unblessed reference/) { } |
|
|
0 |
0 |
elsif ($error =~ /Can't call method "isa" without a package/) { } |
|
1414
|
0 |
0 |
unless defined $obj_name |
|
1415
|
0 |
0 |
unless (UNIVERSAL::isa($object, $class)) |
|
1422
|
0 |
0 |
unless defined $obj_name |
|
1435
|
0 |
0 |
unless defined $obj_name |
|
1450
|
0 |
0 |
if (ref $class) { } |
|
1463
|
0 |
0 |
if (not ref $obj) { } |
|
1496
|
0 |
0 |
if (ref $e) { } |
|
1502
|
0 |
0 |
if (@w) |
|
1519
|
0 |
0 |
if ref $expect |
|
1523
|
0 |
0 |
if (@w > 1) { } |
|
1532
|
0 |
0 |
unless ref $expect eq 'Regexp' |
|
1536
|
0 |
0 |
if (@w > 1) { } |
|
1553
|
0 |
0 |
if $ENV{'PERL_VALGRIND'} |
|
1557
|
0 |
0 |
if ($method eq 'alarm') |
|
1566
|
0 |
0 |
if (not $threads_on or $method eq 'process') |
|
1570
|
0 |
0 |
if ($is_mswin or $is_vms) |
|
1572
|
0 |
0 |
if ($is_mswin) |
|
1574
|
0 |
0 |
if (defined &Win32::GetCurrentProcessId) |
|
1580
|
0 |
0 |
if $pid_to_kill <= 0 |
|
1588
|
0 |
0 |
$is_vms ? : |
|
1599
|
0 |
0 |
if ($is_mswin) { } |
|
1601
|
0 |
0 |
if ($runperl =~ /\s/) |
|
1611
|
0 |
0 |
if ($@ or $watchdog <= 0) |
|
1613
|
0 |
0 |
if $@ |
|
1628
|
0 |
0 |
if (defined $watchdog) |
|
1629
|
0 |
0 |
if ($watchdog) |
|
1643
|
0 |
0 |
if $timeout > 2 |
|
1647
|
0 |
0 |
if (kill 0, $pid_to_kill) |
|
1650
|
0 |
0 |
if ($is_cygwin) |
|
1661
|
0 |
0 |
if defined &POSIX::_exit |
|
1670
|
0 |
0 |
if (eval {
do {
require threads;
1
}
}) |
|
1684
|
0 |
0 |
if defined &POSIX::_exit |
|
1685
|
0 |
0 |
$is_vms ? : |
|
1693
|
0 |
0 |
if (eval {
do {
alarm $timeout;
1
}
}) |
|
1701
|
0 |
0 |
if defined &POSIX::_exit |
|
1702
|
0 |
0 |
$is_vms ? : |