| line |
true |
false |
branch |
|
182
|
0 |
2 |
if (defined $item and $item eq 'no_diag') { } |
|
512
|
0 |
0 |
unless ($class) |
|
518
|
0 |
0 |
unless (@methods) |
|
526
|
0 |
0 |
unless $tb->_try(sub {
$proto->can($method);
}
) |
|
529
|
0 |
0 |
@methods == 1 ? : |
|
579
|
0 |
0 |
if (not defined $object) { } |
|
580
|
0 |
0 |
unless defined $obj_name |
|
584
|
0 |
0 |
ref $object ? : |
|
587
|
0 |
0 |
if ($error) { } |
|
588
|
0 |
0 |
if ($error =~ /^Can't call method "isa" on unblessed reference/) { } |
|
|
0 |
0 |
elsif ($error =~ /Can't call method "isa" without a package/) { } |
|
590
|
0 |
0 |
unless defined $obj_name |
|
591
|
0 |
0 |
unless (UNIVERSAL::isa($object, $class)) |
|
598
|
0 |
0 |
unless defined $obj_name |
|
610
|
0 |
0 |
unless defined $obj_name |
|
611
|
0 |
0 |
unless ($rslt) |
|
620
|
0 |
0 |
if ($diag) { } |
|
654
|
0 |
0 |
unless @_ |
|
659
|
0 |
0 |
unless defined $object_name |
|
663
|
0 |
0 |
if ($success) { } |
|
831
|
1 |
0 |
unless @imports |
|
837
|
0 |
1 |
if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { } |
|
857
|
0 |
1 |
unless ($ok) |
|
884
|
0 |
1 |
if defined $sigdie |
|
906
|
0 |
0 |
unless _is_module_name($module) |
|
917
|
0 |
0 |
unless ($ok) |
|
937
|
0 |
0 |
$module =~ /^[a-zA-Z]\w*$/ ? : |
|
986
|
0 |
0 |
unless (@_ == 2 or @_ == 3) |
|
1004
|
0 |
0 |
if (not ref $got || ref $expected) { } |
|
|
0 |
0 |
elsif (not ref $got xor not ref $expected) { } |
|
1013
|
0 |
0 |
if (_deep_check($got, $expected)) { } |
|
1033
|
0 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'REF') { } |
|
1034
|
0 |
0 |
unless $did_arrow++ |
|
1038
|
0 |
0 |
unless $did_arrow++ |
|
1054
|
0 |
0 |
ref $val ? : |
|
|
0 |
0 |
_dne($val) ? : |
|
|
0 |
0 |
!defined($val) ? : |
|
1071
|
0 |
0 |
unless ref $thing |
|
1074
|
0 |
0 |
if UNIVERSAL::isa($thing, $type) |
|
1232
|
0 |
0 |
unless (defined $how_many) |
|
1234
|
0 |
0 |
unless $tb->has_plan eq 'no_plan' |
|
1239
|
0 |
0 |
if (defined $how_many and $how_many =~ /\D/) |
|
1315
|
0 |
0 |
unless (defined $how_many) |
|
1317
|
0 |
0 |
unless $tb->has_plan eq 'no_plan' |
|
1414
|
0 |
0 |
if (grep((_type($_) ne 'ARRAY'), $a1, $a2)) |
|
1419
|
0 |
0 |
if $a1 eq $a2 |
|
1422
|
0 |
0 |
$#$a1 > $#$a2 ? : |
|
1424
|
0 |
0 |
$_ > $#$a1 ? : |
|
1425
|
0 |
0 |
$_ > $#$a2 ? : |
|
1427
|
0 |
0 |
if _equal_nonrefs($e1, $e2) |
|
1431
|
0 |
0 |
if $ok |
|
1433
|
0 |
0 |
unless $ok |
|
1442
|
0 |
0 |
if ref $e1 or ref $e2 |
|
1444
|
0 |
0 |
if (defined $e1) { } |
|
1445
|
0 |
0 |
if defined $e2 and $e1 eq $e2 |
|
1448
|
0 |
0 |
unless defined $e2 |
|
1472
|
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) { } |
|
1490
|
0 |
0 |
if ($Refs_Seen{$e1}) { } |
|
1498
|
0 |
0 |
unless _type($e2) eq $type |
|
1500
|
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) { } |
|
1513
|
0 |
0 |
if $ok |
|
1518
|
0 |
0 |
if $ok |
|
1535
|
0 |
0 |
if ($check) |
|
1560
|
0 |
0 |
if (grep((_type($_) ne 'HASH'), $a1, $a2)) |
|
1565
|
0 |
0 |
if $a1 eq $a2 |
|
1568
|
0 |
0 |
keys %$a1 > keys %$a2 ? : |
|
1570
|
0 |
0 |
exists $$a1{$k} ? : |
|
1571
|
0 |
0 |
exists $$a2{$k} ? : |
|
1573
|
0 |
0 |
if _equal_nonrefs($e1, $e2) |
|
1577
|
0 |
0 |
if $ok |
|
1579
|
0 |
0 |
unless $ok |
|
1613
|
0 |
0 |
unless @$a1 == @$a2 |