| line |
true |
false |
branch |
|
176
|
0 |
16 |
if (defined $item and $item eq 'no_diag') { } |
|
467
|
0 |
19 |
unless ($class) |
|
473
|
0 |
19 |
unless (@methods) |
|
481
|
0 |
19 |
unless $tb->_try(sub {
$proto->can($method);
}
) |
|
485
|
19 |
0 |
@methods == 1 ? : |
|
529
|
11 |
0 |
unless defined $obj_name |
|
531
|
0 |
11 |
if (not defined $object) { } |
|
|
0 |
11 |
elsif (not ref $object) { } |
|
540
|
0 |
11 |
if ($error) { } |
|
|
0 |
11 |
elsif (not $rslt) { } |
|
541
|
0 |
0 |
if ($error =~ /^Can't call method "isa" on unblessed reference/) { } |
|
543
|
0 |
0 |
unless (UNIVERSAL::isa($object, $class)) |
|
564
|
0 |
11 |
if ($diag) { } |
|
656
|
1 |
0 |
unless @imports |
|
663
|
0 |
1 |
if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { } |
|
680
|
0 |
1 |
unless ($ok) |
|
711
|
0 |
0 |
unless _is_module_name($module) |
|
722
|
0 |
0 |
unless ($ok) |
|
791
|
0 |
9 |
unless (@_ == 2 or @_ == 3) |
|
809
|
0 |
9 |
if (not ref $got || ref $expected) { } |
|
|
0 |
9 |
elsif (not ref $got xor not ref $expected) { } |
|
818
|
8 |
1 |
if (_deep_check($got, $expected)) { } |
|
838
|
1 |
2 |
if ($type eq 'HASH') { } |
|
|
1 |
1 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
1 |
elsif ($type eq 'REF') { } |
|
839
|
0 |
1 |
unless $did_arrow++ |
|
843
|
1 |
0 |
unless $did_arrow++ |
|
859
|
0 |
2 |
ref $val ? : |
|
|
0 |
2 |
_dne($val) ? : |
|
|
0 |
2 |
!defined($val) ? : |
|
876
|
0 |
52 |
unless ref $thing |
|
879
|
52 |
40 |
if UNIVERSAL::isa($thing, $type) |
|
1000
|
0 |
0 |
unless (defined $how_many) |
|
1002
|
0 |
0 |
unless $tb->has_plan eq 'no_plan' |
|
1007
|
0 |
0 |
if (defined $how_many and $how_many =~ /\D/) |
|
1086
|
0 |
0 |
unless (defined $how_many) |
|
1088
|
0 |
0 |
unless $tb->has_plan eq 'no_plan' |
|
1183
|
0 |
3 |
if (grep((!_type($_) eq 'ARRAY'), $a1, $a2)) |
|
1188
|
0 |
3 |
if $a1 eq $a2 |
|
1191
|
0 |
3 |
$#$a1 > $#$a2 ? : |
|
1193
|
0 |
6 |
$_ > $#$a1 ? : |
|
1194
|
0 |
6 |
$_ > $#$a2 ? : |
|
1198
|
5 |
1 |
if $ok |
|
1200
|
1 |
5 |
unless $ok |
|
1227
|
0 |
35 |
if (defined $e1 xor defined $e2) { } |
|
|
0 |
35 |
elsif (_dne($e1) xor _dne($e2)) { } |
|
|
21 |
14 |
elsif ($same_ref and $e1 eq $e2) { } |
|
|
1 |
13 |
elsif ($not_ref) { } |
|
1241
|
0 |
13 |
if ($Test::More::Refs_Seen{$e1}) { } |
|
1249
|
0 |
13 |
unless _type($e2) eq $type |
|
1251
|
0 |
13 |
if ($type eq 'DIFFERENT') { } |
|
|
3 |
10 |
elsif ($type eq 'ARRAY') { } |
|
|
10 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'REF') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type) { } |
|
1264
|
0 |
0 |
if $ok |
|
1269
|
0 |
0 |
if $ok |
|
1287
|
0 |
0 |
if ($check) |
|
1313
|
0 |
10 |
if (grep((!_type($_) eq 'HASH'), $a1, $a2)) |
|
1318
|
0 |
10 |
if $a1 eq $a2 |
|
1321
|
0 |
10 |
keys %$a1 > keys %$a2 ? : |
|
1323
|
20 |
0 |
exists $$a1{$k} ? : |
|
1324
|
20 |
0 |
exists $$a2{$k} ? : |
|
1328
|
19 |
1 |
if $ok |
|
1330
|
1 |
19 |
unless $ok |
|
1364
|
0 |
0 |
unless @$a1 == @$a2 |