line |
true |
false |
branch |
18
|
0 |
5 |
if ($] >= 5.008 and $Test::Builder::Config{'useithreads'} and $INC{'threads.pm'}) { } |
28
|
0 |
0 |
if ($type eq 'HASH') { } |
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
43
|
0 |
0 |
if ($type eq 'HASH') { } |
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
179
|
5 |
0 |
unless $^C |
206
|
5 |
1 |
if (defined $pack) |
228
|
2 |
5 |
unless $cmd |
230
|
0 |
5 |
if ($Have_Plan) |
235
|
0 |
5 |
if ($cmd eq 'no_plan') { } |
|
2 |
3 |
elsif ($cmd eq 'skip_all') { } |
|
3 |
0 |
elsif ($cmd eq 'tests') { } |
242
|
3 |
0 |
if ($arg) { } |
|
0 |
0 |
elsif (not defined $arg) { } |
|
0 |
0 |
elsif (not $arg) { } |
276
|
3 |
0 |
if (@_) |
277
|
0 |
3 |
unless $max =~ /^\+?\d+$/ and $max > 0 |
283
|
3 |
0 |
unless $self->no_header |
311
|
0 |
0 |
if $Expected_Tests |
312
|
0 |
0 |
if $No_Plan |
330
|
2 |
0 |
if $reason |
335
|
2 |
0 |
unless $self->no_header |
364
|
17 |
0 |
$test ? : |
366
|
0 |
17 |
unless ($Have_Plan) |
377
|
0 |
17 |
if defined $name and $name =~ /^[\d\s]+$/ |
390
|
0 |
17 |
if (not $test) { } |
392
|
0 |
0 |
$todo ? : |
399
|
17 |
0 |
if $self->use_numbers |
401
|
1 |
16 |
if (defined $name) { } |
410
|
0 |
17 |
if ($todo) { } |
425
|
0 |
17 |
unless ($test) |
426
|
0 |
0 |
$todo ? : |
427
|
0 |
0 |
if $ENV{'HARNESS_ACTIVE'} |
431
|
17 |
0 |
$test ? : |
440
|
0 |
34 |
unless eval {
do {
require overload
}
} |
444
|
18 |
16 |
if (defined $$thing) |
445
|
0 |
18 |
if (my $string_meth = overload::Method($$thing, '""')) |
474
|
0 |
10 |
unless (defined $got and defined $expect) |
479
|
0 |
0 |
unless $test |
490
|
0 |
0 |
unless (defined $got and defined $expect) |
495
|
0 |
0 |
unless $test |
506
|
0 |
0 |
if (defined $$val) { } |
507
|
0 |
0 |
if ($type eq 'eq') { } |
548
|
0 |
0 |
unless (defined $got and defined $dont_expect) |
553
|
0 |
0 |
unless $test |
564
|
0 |
0 |
unless (defined $got and defined $dont_expect) |
569
|
0 |
0 |
unless $test |
642
|
0 |
0 |
unless defined $regex |
647
|
0 |
0 |
if (ref $regex eq 'Regexp') { } |
|
0 |
0 |
elsif (($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx or (undef, $re, $opts) = $regex =~ /^ m([^\w\s]) (.+) \1 (\w*) $/sx) { } |
655
|
0 |
0 |
length $opts ? : |
668
|
0 |
0 |
unless (defined $usable_regex) |
676
|
0 |
0 |
$this =~ /$usable_regex/ ? : |
677
|
0 |
0 |
if $cmp eq '!~' |
681
|
0 |
0 |
unless ($ok) |
682
|
0 |
0 |
defined $this ? : |
683
|
0 |
0 |
$cmp eq '=~' ? : |
717
|
0 |
10 |
unless ($ok) |
718
|
0 |
0 |
if ($type =~ /^(eq|==)$/) { } |
731
|
0 |
0 |
defined $got ? : |
732
|
0 |
0 |
defined $expect ? : |
773
|
0 |
0 |
unless ($Have_Plan) |
790
|
0 |
0 |
if $self->use_numbers |
792
|
0 |
0 |
if length $why |
817
|
0 |
0 |
unless ($Have_Plan) |
834
|
0 |
0 |
if $self->use_numbers |
887
|
0 |
17 |
if (defined $level) |
922
|
0 |
17 |
if (defined $use_nums) |
948
|
0 |
5 |
if (defined $no_header) |
957
|
0 |
5 |
if (defined $no_ending) |
1003
|
0 |
1 |
unless @msgs |
1006
|
0 |
1 |
if $^C |
1010
|
1 |
0 |
defined $_ ? : |
1016
|
1 |
0 |
unless $msg =~ /\n\Z/ |
1041
|
0 |
22 |
if $^C |
1053
|
0 |
22 |
unless $msg =~ /\n\Z/ |
1071
|
0 |
1 |
$self->todo ? : |
1108
|
5 |
22 |
if (defined $fh) |
1117
|
5 |
1 |
if (defined $fh) |
1126
|
5 |
0 |
if (defined $fh) |
1137
|
15 |
0 |
if (_is_fh($file_or_fh)) { } |
1142
|
0 |
0 |
unless open $fh, ">$file_or_fh" |
1153
|
0 |
15 |
if ref \$maybe_fh eq 'GLOB' |
1175
|
5 |
0 |
unless $Opened_Testhandles |
1192
|
0 |
5 |
unless open TESTOUT, '>&STDOUT' |
1193
|
0 |
5 |
unless open TESTERR, '>&STDERR' |
1223
|
0 |
0 |
if (defined $num) |
1224
|
0 |
0 |
unless ($Have_Plan) |
1232
|
0 |
0 |
if ($num > @Test_Results) { } |
|
0 |
0 |
elsif ($num < @Test_Results) { } |
1233
|
0 |
0 |
@Test_Results ? : |
1349
|
0 |
18 |
defined ${$pack . '::TODO';} ? : |
1368
|
17 |
0 |
wantarray ? : |
1410
|
0 |
15 |
if ($check) |
1461
|
0 |
0 |
if _my_exit($?) |
|
0 |
5 |
if ($Original_Pid != $$) |
1465
|
2 |
0 |
if _my_exit(0) |
|
2 |
0 |
unless ($Have_Plan or $Test_Died) |
1468
|
3 |
0 |
if (@Test_Results) { } |
|
0 |
0 |
elsif ($Skip_All) { } |
|
0 |
0 |
elsif ($Test_Died) { } |
1470
|
0 |
3 |
if ($No_Plan) |
1471
|
0 |
0 |
unless $self->no_header |
1480
|
0 |
17 |
unless defined $Test_Results[$idx] |
1487
|
0 |
3 |
if ($Curr_Test < $Expected_Tests) { } |
|
0 |
3 |
elsif ($Curr_Test > $Expected_Tests) { } |
|
0 |
3 |
elsif ($num_failed) { } |
1488
|
0 |
0 |
$Expected_Tests == 1 ? : |
1495
|
0 |
0 |
$Expected_Tests == 1 ? : |
1501
|
0 |
0 |
$num_failed == 1 ? : |
1507
|
0 |
3 |
if ($Test_Died) |
1512
|
0 |
0 |
if _my_exit(255) |
1515
|
3 |
0 |
$num_failed <= 254 ? : |
|
3 |
0 |
if _my_exit($num_failed <= 254 ? $num_failed : 254) |
1518
|
0 |
0 |
if _my_exit(0) |
1524
|
0 |
0 |
if _my_exit(255) |
1528
|
0 |
0 |
if _my_exit(255) |
1533
|
5 |
0 |
if defined $Test and not $Test->no_ending |