| line |
true |
false |
branch |
| 19 |
0 |
8 |
if ($] >= 5.008 and $Config{'useithreads'}) { } |
| 124 |
8 |
0 |
if (defined $pack) |
| 146 |
0 |
8 |
unless $cmd |
| 148 |
0 |
8 |
if ($Have_Plan) |
| 153 |
0 |
8 |
if ($cmd eq 'no_plan') { } |
| |
0 |
8 |
elsif ($cmd eq 'skip_all') { } |
| |
8 |
0 |
elsif ($cmd eq 'tests') { } |
| 160 |
8 |
0 |
if ($arg) { } |
| |
0 |
0 |
elsif (not defined $arg) { } |
| |
0 |
0 |
elsif (not $arg) { } |
| 194 |
8 |
0 |
if (defined $max) |
| 198 |
8 |
0 |
unless $self->no_header |
| 227 |
0 |
0 |
if $Expected_Tests |
| 228 |
0 |
0 |
if $No_Plan |
| 247 |
0 |
0 |
if $reason |
| 252 |
0 |
0 |
unless $self->no_header |
| 281 |
115 |
0 |
$test ? : |
| 283 |
0 |
115 |
unless ($Have_Plan) |
| 291 |
0 |
115 |
if defined $name and $name =~ /^[\d\s]+$/ |
| 304 |
0 |
115 |
if (not $test) { } |
| 306 |
0 |
0 |
$todo ? : |
| 313 |
115 |
0 |
if $self->use_numbers |
| 315 |
115 |
0 |
if (defined $name) { } |
| 324 |
0 |
115 |
if ($todo) { } |
| 340 |
0 |
115 |
unless ($test) |
| 341 |
0 |
0 |
$todo ? : |
| 345 |
115 |
0 |
$test ? : |
| 368 |
2 |
58 |
if (not defined $got or not defined $expect) |
| 373 |
0 |
2 |
unless $test |
| 384 |
0 |
0 |
if (not defined $got or not defined $expect) |
| 389 |
0 |
0 |
unless $test |
| 400 |
0 |
0 |
if (defined $$val) { } |
| 401 |
0 |
0 |
if ($type eq 'eq') { } |
| 442 |
0 |
0 |
if (not defined $got or not defined $dont_expect) |
| 447 |
0 |
0 |
unless $test |
| 458 |
0 |
0 |
if (not defined $got or not defined $dont_expect) |
| 463 |
0 |
0 |
unless $test |
| 535 |
0 |
0 |
if (ref $regex eq 'Regexp') { } |
| |
0 |
0 |
elsif (my($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx) { } |
| 540 |
0 |
0 |
length $opts ? : |
| 552 |
0 |
0 |
unless (defined $usable_regex) |
| 560 |
0 |
0 |
$this =~ /$usable_regex/ ? : |
| 561 |
0 |
0 |
if $cmp eq '!~' |
| 565 |
0 |
0 |
unless ($ok) |
| 566 |
0 |
0 |
defined $this ? : |
| 567 |
0 |
0 |
$cmp eq '=~' ? : |
| 601 |
0 |
58 |
unless ($ok) |
| 602 |
0 |
0 |
if ($type =~ /^(eq|==)$/) { } |
| 615 |
0 |
0 |
defined $got ? : |
| 616 |
0 |
0 |
defined $expect ? : |
| 656 |
0 |
0 |
unless ($Have_Plan) |
| 676 |
0 |
0 |
if $self->use_numbers |
| 701 |
0 |
0 |
unless ($Have_Plan) |
| 722 |
0 |
0 |
if $self->use_numbers |
| 775 |
8 |
115 |
if (defined $level) |
| 813 |
0 |
115 |
if (defined $use_nums) |
| 840 |
0 |
8 |
if (defined $no_header) |
| 849 |
0 |
8 |
if (defined $no_ending) |
| 893 |
0 |
0 |
unless @msgs |
| 896 |
0 |
0 |
if $^C |
| 900 |
0 |
0 |
unless defined $_ |
| 904 |
0 |
0 |
unless $msgs[-1] =~ /\n\Z/ |
| 907 |
0 |
0 |
$self->todo ? : |
| 931 |
0 |
123 |
if $^C |
| 942 |
0 |
123 |
unless $msgs[-1] =~ /\n\Z/ |
| 981 |
8 |
123 |
if (defined $fh) |
| 990 |
8 |
0 |
if (defined $fh) |
| 999 |
8 |
0 |
if (defined $fh) |
| 1009 |
0 |
24 |
if (not UNIVERSAL::isa($file_or_fh, 'GLOB')) { } |
| 1011 |
0 |
0 |
unless open $fh, ">$file_or_fh" |
| 1069 |
0 |
0 |
if (defined $num) |
| 1070 |
0 |
0 |
unless ($Have_Plan) |
| 1076 |
0 |
0 |
if ($num > @Test_Results) |
| 1077 |
0 |
0 |
@Test_Results ? : |
| 1191 |
0 |
115 |
defined ${$pack . '::TODO';} ? : |
| 1210 |
115 |
0 |
wantarray ? : |
| 1252 |
0 |
24 |
if ($check) |
| 1303 |
0 |
0 |
if _my_exit($?) |
| |
0 |
8 |
if ($Original_Pid != $$) |
| 1307 |
0 |
0 |
if _my_exit(0) |
| |
0 |
8 |
if (not $Have_Plan and not $Test_Died) |
| 1310 |
8 |
0 |
if (@Test_Results) { } |
| |
0 |
0 |
elsif ($Skip_All) { } |
| |
0 |
0 |
elsif ($Test_Died) { } |
| 1312 |
0 |
8 |
if ($No_Plan) |
| 1313 |
0 |
0 |
unless $self->no_header |
| 1323 |
0 |
8 |
unless defined $Test_Results[$idx] |
| 1330 |
0 |
8 |
if ($Curr_Test < $Expected_Tests) { } |
| |
0 |
8 |
elsif ($Curr_Test > $Expected_Tests) { } |
| |
0 |
8 |
elsif ($num_failed) { } |
| 1347 |
0 |
8 |
if ($Test_Died) |
| 1352 |
0 |
0 |
if _my_exit(255) |
| 1355 |
8 |
0 |
$num_failed <= 254 ? : |
| |
8 |
0 |
if _my_exit($num_failed <= 254 ? $num_failed : 254) |
| 1358 |
0 |
0 |
if _my_exit(0) |
| 1367 |
0 |
0 |
if _my_exit(255) |