line | % | coverage | branch |
14 | 50 | T | F | if ($] >= 5.008001 and $Config{'useithreads'} and $INC{'threads.pm'}) { } |
24 | 0 | T | F | if ($type eq 'HASH') { } |
| 0 | T | F | elsif ($type eq 'ARRAY') { } |
| 0 | T | F | elsif ($type eq 'SCALAR') { } |
39 | 0 | T | F | if ($type eq 'HASH') { } |
| 0 | T | F | elsif ($type eq 'ARRAY') { } |
| 0 | T | F | elsif ($type eq 'SCALAR') { } |
181 | 50 | T | F | unless $^C |
211 | 100 | T | F | unless $cmd |
215 | 50 | T | F | if ($$self{'Have_Plan'}) |
219 | 50 | T | F | if ($cmd eq 'no_plan') { } |
| 50 | T | F | elsif ($cmd eq 'skip_all') { } |
| 50 | T | F | elsif ($cmd eq 'tests') { } |
226 | 50 | T | F | if ($arg) { } |
| 0 | T | F | elsif (not defined $arg) { } |
| 0 | T | F | elsif (not $arg) { } |
259 | 50 | T | F | if (@_) |
260 | 50 | T | F | unless $max =~ /^\+?\d+$/ and $max > 0 |
266 | 50 | T | F | unless $self->no_header |
298 | 100 | T | F | if $$self{'Expected_Tests'} |
299 | 100 | T | F | if $$self{'No_Plan'} |
317 | 0 | T | F | if $reason |
322 | 0 | T | F | unless $self->no_header |
343 | 50 | T | F | if (defined $pack) |
375 | 50 | T | F | $test ? : |
385 | 50 | T | F | if defined $name and $name =~ /^[\d\s]+$/ |
401 | 50 | T | F | if (not $test) { } |
403 | 0 | T | F | $todo ? : |
410 | 50 | T | F | if $self->use_numbers |
412 | 100 | T | F | if (defined $name) { } |
421 | 50 | T | F | if ($todo) { } |
436 | 50 | T | F | unless ($test) |
437 | 0 | T | F | $todo ? : |
438 | 0 | T | F | if $ENV{'HARNESS_ACTIVE'} |
441 | 0 | T | F | if (defined $name) { } |
450 | 50 | T | F | $test ? : |
458 | 50 | T | F | unless $self->_try(sub {
require overload;
}
) |
461 | 100 | T | F | if ($self->_is_object($$thing)) |
462 | 50 | T | F | if (my $string_meth = overload::Method($$thing, $type)) |
473 | 100 | T | F | if ref $thing |
| 100 | T | F | $self->_try(sub {
$thing->isa('UNIVERSAL') if ref $thing;
}
) ? : |
489 | 0 | T | F | unless $self->_is_dualvar($$val) |
501 | 0 | T | F | if $numval != 0 and $numval ne $val |
528 | 100 | T | F | if (not defined $got or not defined $expect) |
533 | 50 | T | F | unless $test |
546 | 0 | T | F | if (not defined $got or not defined $expect) |
551 | 0 | T | F | unless $test |
562 | 0 | T | F | if (defined $$val) { } |
563 | 0 | T | F | if ($type eq 'eq') { } |
605 | 50 | T | F | if (not defined $got or not defined $dont_expect) |
610 | 0 | T | F | unless $test |
621 | 0 | T | F | if (not defined $got or not defined $dont_expect) |
626 | 0 | T | F | unless $test |
687 | 50 | T | F | $numeric_cmps{$type} ? : |
709 | 50 | T | F | unless ($ok) |
710 | 0 | T | F | if ($type =~ /^(eq|==)$/) { } |
723 | 0 | T | F | defined $got ? : |
724 | 0 | T | F | defined $expect ? : |
741 | 50 | T | F | if defined $file and defined $line |
811 | 50 | T | F | if $self->use_numbers |
813 | 50 | T | F | if length $why |
852 | 0 | T | F | if $self->use_numbers |
917 | 0 | T | F | unless defined $regex |
922 | 0 | T | F | if (_is_qr($regex)) { } |
| 0 | T | F | elsif (($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx or (undef, $re, $opts) = $regex =~ /^ m([^\w\s]) (.+) \1 (\w*) $/sx) { } |
930 | 0 | T | F | length $opts ? : |
942 | 0 | T | F | if defined &re::is_regexp |
952 | 0 | T | F | unless (defined $usable_regex) |
970 | 0 | T | F | if $cmp eq '!~' |
976 | 0 | T | F | unless ($ok) |
977 | 0 | T | F | defined $this ? : |
978 | 0 | T | F | $cmp eq '=~' ? : |
1018 | 50 | T | F | wantarray ? : |
1035 | 50 | T | F | unless defined $maybe_fh |
1037 | 50 | T | F | if ref $maybe_fh eq 'GLOB' |
1038 | 0 | T | F | if ref \$maybe_fh eq 'GLOB' |
1080 | 50 | T | F | if (defined $level) |
1113 | 50 | T | F | if (defined $use_nums) |
1150 | 50 | T | F | if (defined $no) |
1201 | 0 | T | F | if $self->no_diag |
1202 | 0 | T | F | unless @msgs |
1205 | 0 | T | F | if $^C |
1209 | 0 | T | F | defined $_ ? : |
1215 | 0 | T | F | unless $msg =~ /\n\Z/ |
1240 | 50 | T | F | if $^C |
1252 | 50 | T | F | unless $msg =~ /\n\Z/ |
1273 | 0 | T | F | $self->todo ? : |
1309 | 100 | T | F | if (defined $fh) |
1318 | 50 | T | F | if (defined $fh) |
1327 | 50 | T | F | if (defined $fh) |
1339 | 50 | T | F | if ($self->is_fh($file_or_fh)) { } |
1343 | 0 | T | F | unless open $fh, '>', $file_or_fh |
1383 | 50 | T | F | if $Opened_Testhandles |
1387 | 50 | T | F | unless open $Testout, '>&STDOUT' |
1388 | 50 | T | F | unless open $Testerr, '>&STDERR' |
1404 | 0 | T | F | if @src_layers |
1445 | 50 | T | F | unless ($$self{'Have_Plan'}) |
1476 | 50 | T | F | if (defined $num) |
1477 | 0 | T | F | unless ($$self{'Have_Plan'}) |
1485 | 0 | T | F | if ($num > @$test_results) { } |
| 0 | T | F | elsif ($num < @$test_results) { } |
1486 | 0 | T | F | @$test_results ? : |
1601 | 50 | T | F | if defined $$self{'TODO'} |
1604 | 50 | T | F | unless $pack |
1607 | 50 | T | F | defined ${$pack . '::TODO';} ? : |
1628 | 100 | T | F | wantarray ? : |
1672 | 50 | T | F | if ($check) |
1713 | 50 | T | F | if ($$self{'Original_Pid'} != $$) |
1719 | 50 | T | F | if (not $$self{'Have_Plan'}) |
1724 | 50 | T | F | if ($$self{'Bailed_Out'}) |
1730 | 50 | T | F | if (@$test_results) { } |
| 0 | T | F | elsif ($$self{'Skip_All'}) { } |
| 0 | T | F | elsif ($real_exit_code) { } |
1732 | 100 | T | F | if ($$self{'No_Plan'}) |
1733 | 50 | T | F | unless $self->no_header |
1742 | 50 | T | F | unless defined $$test_results[$idx] |
1751 | 50 | T | F | if ($num_extra < 0) { } |
| 50 | T | F | elsif ($num_extra > 0) { } |
1752 | 0 | T | F | $$self{'Expected_Tests'} == 1 ? : |
1758 | 0 | T | F | $$self{'Expected_Tests'} == 1 ? : |
1764 | 50 | T | F | if ($num_failed) |
1766 | 0 | T | F | $num_failed == 1 ? : |
1768 | 0 | T | F | $num_extra == 0 ? : |
1775 | 50 | T | F | if ($real_exit_code) |
1780 | 0 | T | F | if _my_exit(255) |
1784 | 50 | T | F | if ($num_failed) { } |
| 50 | T | F | elsif ($num_extra != 0) { } |
1785 | 0 | T | F | $num_failed <= 254 ? : |
1794 | 50 | T | F | if _my_exit($exit_code) |
1797 | 0 | T | F | if _my_exit(0) |
1803 | 0 | T | F | if _my_exit(255) |
1807 | 0 | T | F | if _my_exit(255) |