line | % | coverage | branch |
175 | 50 | T | F | if (defined $item and $item eq 'no_diag') { } |
466 | 0 | T | F | unless ($class) |
472 | 0 | T | F | unless (@methods) |
480 | 0 | T | F | unless $tb->_try(sub {
$proto->can($method);
}
) |
484 | 0 | T | F | @methods == 1 ? : |
528 | 0 | T | F | unless defined $obj_name |
530 | 0 | T | F | if (not defined $object) { } |
| 0 | T | F | elsif (not ref $object) { } |
539 | 0 | T | F | if ($error) { } |
| 0 | T | F | elsif (not $rslt) { } |
540 | 0 | T | F | if ($error =~ /^Can't call method "isa" on unblessed reference/) { } |
542 | 0 | T | F | if (not UNIVERSAL::isa($object, $class)) |
563 | 0 | T | F | if ($diag) { } |
655 | 50 | T | F | unless @imports |
661 | 50 | T | F | if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { } |
682 | 50 | T | F | unless ($ok) |
727 | 0 | T | F | unless _is_module_name($module) |
738 | 0 | T | F | unless ($ok) |
807 | 50 | T | F | unless (@_ == 2 or @_ == 3) |
825 | 100 | T | F | if (not ref $got and not ref $expected) { } |
| 50 | T | F | elsif (not ref $got xor not ref $expected) { } |
834 | 50 | T | F | if (_deep_check($got, $expected)) { } |
854 | 0 | T | F | if ($type eq 'HASH') { } |
| 0 | T | F | elsif ($type eq 'ARRAY') { } |
| 0 | T | F | elsif ($type eq 'REF') { } |
855 | 0 | T | F | unless $did_arrow++ |
859 | 0 | T | F | unless $did_arrow++ |
875 | 0 | T | F | ref $val ? : |
| 0 | T | F | _dne($val) ? : |
| 0 | T | F | !defined($val) ? : |
892 | 50 | T | F | if not ref $thing |
895 | 100 | T | F | if UNIVERSAL::isa($thing, $type) |
1016 | 0 | T | F | unless (defined $how_many) |
1018 | 0 | T | F | unless $tb->has_plan eq 'no_plan' |
1023 | 0 | T | F | if (defined $how_many and $how_many =~ /\D/) |
1102 | 0 | T | F | unless (defined $how_many) |
1104 | 0 | T | F | unless $tb->has_plan eq 'no_plan' |
1199 | 50 | T | F | if (grep((!_type($_) eq 'ARRAY'), $a1, $a2)) |
1204 | 50 | T | F | if $a1 eq $a2 |
1207 | 50 | T | F | $#$a1 > $#$a2 ? : |
1209 | 50 | T | F | $_ > $#$a1 ? : |
1210 | 50 | T | F | $_ > $#$a2 ? : |
1214 | 50 | T | F | if $ok |
1216 | 50 | T | F | unless $ok |
1243 | 50 | T | F | if (defined $e1 xor defined $e2) { } |
| 50 | T | F | elsif (_dne($e1) xor _dne($e2)) { } |
| 100 | T | F | elsif ($same_ref and $e1 eq $e2) { } |
| 50 | T | F | elsif ($not_ref) { } |
1257 | 50 | T | F | if ($Refs_Seen{$e1}) { } |
1265 | 50 | T | F | unless _type($e2) eq $type |
1267 | 50 | T | F | if ($type eq 'DIFFERENT') { } |
| 100 | T | F | elsif ($type eq 'ARRAY') { } |
| 50 | T | F | elsif ($type eq 'HASH') { } |
| 0 | T | F | elsif ($type eq 'REF') { } |
| 0 | T | F | elsif ($type eq 'SCALAR') { } |
| 0 | T | F | elsif ($type) { } |
1280 | 0 | T | F | if $ok |
1285 | 0 | T | F | if $ok |
1303 | 0 | T | F | if ($check) |
1329 | 50 | T | F | if (grep((!_type($_) eq 'HASH'), $a1, $a2)) |
1334 | 50 | T | F | if $a1 eq $a2 |
1337 | 50 | T | F | keys %$a1 > keys %$a2 ? : |
1339 | 50 | T | F | exists $$a1{$k} ? : |
1340 | 50 | T | F | exists $$a2{$k} ? : |
1344 | 50 | T | F | if $ok |
1346 | 50 | T | F | unless $ok |
1380 | 0 | T | F | unless @$a1 == @$a2 |