| line |
true |
false |
branch |
|
185
|
0 |
4 |
if (defined $item and $item eq 'no_diag') { } |
|
|
0 |
4 |
elsif (defined $item and $item eq 'import') { } |
|
189
|
0 |
0 |
if ($import) { } |
|
206
|
3 |
0 |
if ($class eq __PACKAGE__ and !$import || grep(($_ eq '$TODO'), @$import)) |
|
210
|
0 |
3 |
if ($import) { } |
|
429
|
0 |
0 |
if (warnings::enabled("deprecated")) |
|
569
|
0 |
0 |
unless ($class) |
|
575
|
0 |
0 |
unless (@methods) |
|
583
|
0 |
0 |
unless $tb->_try(sub {
$proto->can($method);
}
) |
|
586
|
0 |
0 |
@methods == 1 ? : |
|
635
|
0 |
0 |
if (not defined $thing) { } |
|
|
0 |
0 |
elsif (ref $thing) { } |
|
643
|
0 |
0 |
if (builtin::blessed($thing)) |
|
654
|
0 |
0 |
if ($error) |
|
655
|
0 |
0 |
unless $error =~ /^Can't (locate|call) method "isa"/ |
|
663
|
0 |
0 |
if ($whatami eq "reference") |
|
668
|
0 |
0 |
if (defined $thing_name) { } |
|
|
0 |
0 |
elsif ($whatami eq 'object') { } |
|
|
0 |
0 |
elsif ($whatami eq 'reference') { } |
|
|
0 |
0 |
elsif ($whatami eq 'undef') { } |
|
|
0 |
0 |
elsif ($whatami eq 'class') { } |
|
670
|
0 |
0 |
defined $thing ? : |
|
699
|
0 |
0 |
if ($rslt) { } |
|
733
|
0 |
0 |
unless @_ |
|
741
|
0 |
0 |
if ($success) { } |
|
746
|
0 |
0 |
unless defined $class |
|
911
|
0 |
0 |
unless _is_module_name($module) |
|
922
|
0 |
0 |
unless ($ok) |
|
942
|
0 |
0 |
$module =~ /^[a-zA-Z]\w*$/ ? : |
|
999
|
3 |
0 |
unless @imports |
|
1009
|
0 |
3 |
if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { } |
|
1033
|
0 |
3 |
unless ($ok) |
|
1055
|
3 |
0 |
if defined $args[-1] |
|
1060
|
0 |
3 |
if defined $sigdie |
|
1126
|
0 |
1 |
unless (@_ == 2 or @_ == 3) |
|
1144
|
0 |
1 |
if (not ref $got || ref $expected) { } |
|
|
0 |
1 |
elsif (not ref $got xor not ref $expected) { } |
|
1153
|
1 |
0 |
if (_deep_check($got, $expected)) { } |
|
1173
|
0 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'REF') { } |
|
1174
|
0 |
0 |
unless $did_arrow++ |
|
1178
|
0 |
0 |
unless $did_arrow++ |
|
1194
|
0 |
0 |
ref $val ? : |
|
|
0 |
0 |
_dne($val) ? : |
|
|
0 |
0 |
!defined($val) ? : |
|
1211
|
0 |
4 |
unless ref $thing |
|
1214
|
4 |
8 |
if UNIVERSAL::isa($thing, $type) |
|
1375
|
0 |
0 |
unless (defined $how_many) |
|
1377
|
0 |
0 |
if $plan and $plan =~ /^\d+$/ |
|
1382
|
0 |
0 |
if (defined $how_many and $how_many =~ /\D/) |
|
1467
|
0 |
0 |
unless (defined $how_many) |
|
1469
|
0 |
0 |
unless $tb->has_plan eq "no_plan" |
|
1566
|
0 |
0 |
if (grep((_type($_) ne "ARRAY"), $a1, $a2)) |
|
1571
|
0 |
0 |
if $a1 eq $a2 |
|
1574
|
0 |
0 |
$a1->$#* > $a2->$#* ? : |
|
1576
|
0 |
0 |
$_ > $a1->$#* ? : |
|
1577
|
0 |
0 |
$_ > $a2->$#* ? : |
|
1579
|
0 |
0 |
if _equal_nonrefs($e1, $e2) |
|
1583
|
0 |
0 |
if $ok |
|
1585
|
0 |
0 |
unless $ok |
|
1594
|
0 |
1 |
if ref $e1 or ref $e2 |
|
1596
|
1 |
0 |
if (defined $e1) { } |
|
1597
|
1 |
0 |
if defined $e2 and $e1 eq $e2 |
|
1600
|
0 |
0 |
unless defined $e2 |
|
1624
|
0 |
1 |
if (defined $e1 xor defined $e2) { } |
|
|
0 |
1 |
elsif (not defined $e1 || defined $e2) { } |
|
|
0 |
1 |
elsif (_dne($e1) xor _dne($e2)) { } |
|
|
0 |
1 |
elsif ($same_ref and $e1 eq $e2) { } |
|
|
0 |
1 |
elsif ($not_ref) { } |
|
1642
|
0 |
1 |
if ($Refs_Seen{$e1}) { } |
|
1650
|
0 |
1 |
unless _type($e2) eq $type |
|
1652
|
0 |
1 |
if ($type eq 'DIFFERENT') { } |
|
|
0 |
1 |
elsif ($type eq 'ARRAY') { } |
|
|
1 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'REF') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type) { } |
|
1665
|
0 |
0 |
if $ok |
|
1670
|
0 |
0 |
if $ok |
|
1687
|
0 |
0 |
if ($check) |
|
1712
|
0 |
1 |
if (grep((_type($_) ne "HASH"), $a1, $a2)) |
|
1717
|
0 |
1 |
if $a1 eq $a2 |
|
1720
|
0 |
1 |
keys %$a1 > keys %$a2 ? : |
|
1722
|
1 |
0 |
exists $a1->{$k} ? : |
|
1723
|
1 |
0 |
exists $a2->{$k} ? : |
|
1725
|
1 |
0 |
if _equal_nonrefs($e1, $e2) |
|
1729
|
0 |
0 |
if $ok |
|
1731
|
0 |
0 |
unless $ok |
|
1765
|
0 |
0 |
unless @$a1 == @$a2 |