| line |
true |
false |
branch |
|
176
|
0 |
4 |
if (defined $item and $item eq 'no_diag') { }
|
|
467
|
0 |
0 |
unless ($class)
|
|
473
|
0 |
0 |
unless (@methods)
|
|
483
|
0 |
0 |
unless eval {
do {
$proto->can($method)
}
}
|
|
487
|
0 |
0 |
@methods == 1 ? :
|
|
531
|
0 |
0 |
unless defined $obj_name
|
|
533
|
0 |
0 |
if (not defined $object) { }
|
|
|
0 |
0 |
elsif (not ref $object) { }
|
|
543
|
0 |
0 |
if ($@) { }
|
|
|
0 |
0 |
elsif (not $rslt) { }
|
|
544
|
0 |
0 |
if ($@ =~ /^Can't call method "isa" on unblessed reference/) { }
|
|
545
|
0 |
0 |
unless (UNIVERSAL::isa($object, $class))
|
|
567
|
0 |
0 |
if ($diag) { }
|
|
659
|
1 |
0 |
unless @imports
|
|
666
|
0 |
1 |
if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
|
|
683
|
1 |
0 |
unless ($ok)
|
|
714
|
0 |
0 |
unless _is_module_name($module)
|
|
724
|
0 |
0 |
unless ($ok)
|
|
787
|
0 |
0 |
unless (@_ == 2 or @_ == 3)
|
|
805
|
0 |
0 |
if (not ref $this || ref $that) { }
|
|
|
0 |
0 |
elsif (not ref $this xor not ref $that) { }
|
|
814
|
0 |
0 |
if (_deep_check($this, $that)) { }
|
|
834
|
0 |
0 |
if ($type eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($type eq 'REF') { }
|
|
835
|
0 |
0 |
unless $did_arrow++
|
|
839
|
0 |
0 |
unless $did_arrow++
|
|
855
|
0 |
0 |
ref $val ? :
|
|
|
0 |
0 |
$val eq $DNE ? :
|
|
|
0 |
0 |
!defined($val) ? :
|
|
872
|
0 |
0 |
unless ref $thing
|
|
875
|
0 |
0 |
if UNIVERSAL::isa($thing, $type)
|
|
996
|
0 |
0 |
unless (defined $how_many)
|
|
998
|
0 |
0 |
unless $tb->has_plan eq 'no_plan'
|
|
1003
|
0 |
0 |
if (defined $how_many and $how_many =~ /\D/)
|
|
1082
|
0 |
0 |
unless (defined $how_many)
|
|
1084
|
0 |
0 |
unless $tb->has_plan eq 'no_plan'
|
|
1179
|
0 |
0 |
if (grep((!_type($_) eq 'ARRAY'), $a1, $a2))
|
|
1184
|
0 |
0 |
if $a1 eq $a2
|
|
1187
|
0 |
0 |
$#$a1 > $#$a2 ? :
|
|
1189
|
0 |
0 |
$_ > $#$a1 ? :
|
|
1190
|
0 |
0 |
$_ > $#$a2 ? :
|
|
1194
|
0 |
0 |
if $ok
|
|
1196
|
0 |
0 |
unless $ok
|
|
1223
|
0 |
0 |
if (defined $e1 xor defined $e2) { }
|
|
|
0 |
0 |
elsif ($e1 == $DNE xor $e2 == $DNE) { }
|
|
|
0 |
0 |
elsif ($same_ref and $e1 eq $e2) { }
|
|
|
0 |
0 |
elsif ($not_ref) { }
|
|
1237
|
0 |
0 |
if ($Test::More::Refs_Seen{$e1}) { }
|
|
1245
|
0 |
0 |
unless _type($e2) eq $type
|
|
1247
|
0 |
0 |
if ($type eq 'DIFFERENT') { }
|
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($type eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($type eq 'REF') { }
|
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { }
|
|
|
0 |
0 |
elsif ($type) { }
|
|
1260
|
0 |
0 |
if $ok
|
|
1265
|
0 |
0 |
if $ok
|
|
1283
|
0 |
0 |
if ($check)
|
|
1309
|
0 |
0 |
if (grep((!_type($_) eq 'HASH'), $a1, $a2))
|
|
1314
|
0 |
0 |
if $a1 eq $a2
|
|
1317
|
0 |
0 |
keys %$a1 > keys %$a2 ? :
|
|
1319
|
0 |
0 |
exists $$a1{$k} ? :
|
|
1320
|
0 |
0 |
exists $$a2{$k} ? :
|
|
1324
|
0 |
0 |
if $ok
|
|
1326
|
0 |
0 |
unless $ok
|
|
1360
|
0 |
0 |
unless @$a1 == @$a2
|