| line |
true |
false |
branch |
|
182
|
0 |
2 |
if (defined $item and $item eq 'no_diag') { }
|
|
517
|
0 |
0 |
unless ($class)
|
|
523
|
0 |
0 |
unless (@methods)
|
|
531
|
0 |
0 |
unless $tb->_try(sub {
$proto->can($method);
}
)
|
|
534
|
0 |
0 |
@methods == 1 ? :
|
|
584
|
0 |
0 |
if (not defined $object) { }
|
|
585
|
0 |
0 |
unless defined $obj_name
|
|
589
|
0 |
0 |
ref $object ? :
|
|
592
|
0 |
0 |
if ($error) { }
|
|
593
|
0 |
0 |
if ($error =~ /^Can't call method "isa" on unblessed reference/) { }
|
|
|
0 |
0 |
elsif ($error =~ /Can't call method "isa" without a package/) { }
|
|
595
|
0 |
0 |
unless defined $obj_name
|
|
596
|
0 |
0 |
unless (UNIVERSAL::isa($object, $class))
|
|
603
|
0 |
0 |
unless defined $obj_name
|
|
615
|
0 |
0 |
unless defined $obj_name
|
|
616
|
0 |
0 |
unless ($rslt)
|
|
625
|
0 |
0 |
if ($diag) { }
|
|
659
|
0 |
0 |
unless @_
|
|
664
|
0 |
0 |
unless defined $object_name
|
|
668
|
0 |
0 |
if ($success) { }
|
|
836
|
1 |
0 |
unless @imports
|
|
842
|
0 |
1 |
if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
|
|
862
|
0 |
1 |
unless ($ok)
|
|
889
|
0 |
1 |
if defined $sigdie
|
|
911
|
0 |
0 |
unless _is_module_name($module)
|
|
922
|
0 |
0 |
unless ($ok)
|
|
942
|
0 |
0 |
$module =~ /^[a-zA-Z]\w*$/ ? :
|
|
991
|
0 |
0 |
unless (@_ == 2 or @_ == 3)
|
|
1009
|
0 |
0 |
if (not ref $got || ref $expected) { }
|
|
|
0 |
0 |
elsif (not ref $got xor not ref $expected) { }
|
|
1018
|
0 |
0 |
if (_deep_check($got, $expected)) { }
|
|
1038
|
0 |
0 |
if ($type eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($type eq 'REF') { }
|
|
1039
|
0 |
0 |
unless $did_arrow++
|
|
1043
|
0 |
0 |
unless $did_arrow++
|
|
1059
|
0 |
0 |
ref $val ? :
|
|
|
0 |
0 |
_dne($val) ? :
|
|
|
0 |
0 |
!defined($val) ? :
|
|
1076
|
0 |
0 |
unless ref $thing
|
|
1079
|
0 |
0 |
if UNIVERSAL::isa($thing, $type)
|
|
1237
|
0 |
0 |
unless (defined $how_many)
|
|
1239
|
0 |
0 |
unless $tb->has_plan eq 'no_plan'
|
|
1244
|
0 |
0 |
if (defined $how_many and $how_many =~ /\D/)
|
|
1320
|
0 |
0 |
unless (defined $how_many)
|
|
1322
|
0 |
0 |
unless $tb->has_plan eq 'no_plan'
|
|
1419
|
0 |
0 |
if (grep((_type($_) ne 'ARRAY'), $a1, $a2))
|
|
1424
|
0 |
0 |
if $a1 eq $a2
|
|
1427
|
0 |
0 |
$#$a1 > $#$a2 ? :
|
|
1429
|
0 |
0 |
$_ > $#$a1 ? :
|
|
1430
|
0 |
0 |
$_ > $#$a2 ? :
|
|
1432
|
0 |
0 |
if _equal_nonrefs($e1, $e2)
|
|
1436
|
0 |
0 |
if $ok
|
|
1438
|
0 |
0 |
unless $ok
|
|
1447
|
0 |
0 |
if ref $e1 or ref $e2
|
|
1449
|
0 |
0 |
if (defined $e1) { }
|
|
1450
|
0 |
0 |
if defined $e2 and $e1 eq $e2
|
|
1453
|
0 |
0 |
unless defined $e2
|
|
1477
|
0 |
0 |
if (defined $e1 xor defined $e2) { }
|
|
|
0 |
0 |
elsif (not defined $e1 || defined $e2) { }
|
|
|
0 |
0 |
elsif (_dne($e1) xor _dne($e2)) { }
|
|
|
0 |
0 |
elsif ($same_ref and $e1 eq $e2) { }
|
|
|
0 |
0 |
elsif ($not_ref) { }
|
|
1495
|
0 |
0 |
if ($Refs_Seen{$e1}) { }
|
|
1503
|
0 |
0 |
unless _type($e2) eq $type
|
|
1505
|
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) { }
|
|
1518
|
0 |
0 |
if $ok
|
|
1523
|
0 |
0 |
if $ok
|
|
1540
|
0 |
0 |
if ($check)
|
|
1565
|
0 |
0 |
if (grep((_type($_) ne 'HASH'), $a1, $a2))
|
|
1570
|
0 |
0 |
if $a1 eq $a2
|
|
1573
|
0 |
0 |
keys %$a1 > keys %$a2 ? :
|
|
1575
|
0 |
0 |
exists $$a1{$k} ? :
|
|
1576
|
0 |
0 |
exists $$a2{$k} ? :
|
|
1578
|
0 |
0 |
if _equal_nonrefs($e1, $e2)
|
|
1582
|
0 |
0 |
if $ok
|
|
1584
|
0 |
0 |
unless $ok
|
|
1618
|
0 |
0 |
unless @$a1 == @$a2
|