Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 50 168 29.7


line true false branch
181 0 37 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 ? :
583 0 0 if (not defined $thing) { }
0 0 elsif (ref $thing) { }
591 0 0 if (&Scalar::Util::blessed($thing))
602 0 0 if ($error)
603 0 0 unless $error =~ /^Can't (locate|call) method "isa"/
611 0 0 if ($whatami eq 'reference')
616 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') { }
618 0 0 defined $thing ? :
647 0 0 if ($rslt) { }
681 0 0 unless @_
689 0 0 if ($success) { }
694 0 0 unless defined $class
850 0 0 unless _is_module_name($module)
861 0 0 unless ($ok)
881 0 0 $module =~ /^[a-zA-Z]\w*$/ ? :
938 0 0 unless @imports
945 0 0 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
969 0 0 unless ($ok)
996 0 0 if defined $sigdie
1048 0 7 unless (@_ == 2 or @_ == 3)
1066 0 7 if (not ref $got || ref $expected) { }
1 6 elsif (not ref $got xor not ref $expected) { }
1075 6 0 if (_deep_check($got, $expected)) { }
1095 0 1 if ($type eq 'HASH') { }
0 1 elsif ($type eq 'ARRAY') { }
0 1 elsif ($type eq 'REF') { }
1096 0 0 unless $did_arrow++
1100 0 0 unless $did_arrow++
1116 1 0 ref $val ? :
0 1 _dne($val) ? :
1 1 !defined($val) ? :
1133 0 104 unless ref $thing
1136 104 176 if UNIVERSAL::isa($thing, $type)
1294 0 0 unless (defined $how_many)
1296 0 0 unless $tb->has_plan eq 'no_plan'
1301 0 0 if (defined $how_many and $how_many =~ /\D/)
1377 0 0 unless (defined $how_many)
1379 0 0 unless $tb->has_plan eq 'no_plan'
1476 0 8 if (grep((_type($_) ne 'ARRAY'), $a1, $a2))
1481 0 8 if $a1 eq $a2
1484 0 8 $#$a1 > $#$a2 ? :
1486 0 13 $_ > $#$a1 ? :
1487 0 13 $_ > $#$a2 ? :
1489 3 10 if _equal_nonrefs($e1, $e2)
1493 10 0 if $ok
1495 0 10 unless $ok
1504 22 10 if ref $e1 or ref $e2
1506 10 0 if (defined $e1) { }
1507 10 0 if defined $e2 and $e1 eq $e2
1510 0 0 unless defined $e2
1534 0 28 if (defined $e1 xor defined $e2) { }
0 28 elsif (not defined $e1 || defined $e2) { }
0 28 elsif (_dne($e1) xor _dne($e2)) { }
0 28 elsif ($same_ref and $e1 eq $e2) { }
0 28 elsif ($not_ref) { }
1552 2 26 if ($Refs_Seen{$e1}) { }
1560 0 26 unless _type($e2) eq $type
1562 0 26 if ($type eq 'DIFFERENT') { }
8 18 elsif ($type eq 'ARRAY') { }
18 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'REF') { }
0 0 elsif ($type eq 'SCALAR') { }
0 0 elsif ($type) { }
1575 0 0 if $ok
1580 0 0 if $ok
1597 0 0 if ($check)
1622 0 18 if (grep((_type($_) ne 'HASH'), $a1, $a2))
1627 0 18 if $a1 eq $a2
1630 0 18 keys %$a1 > keys %$a2 ? :
1632 19 0 exists $$a1{$k} ? :
1633 19 0 exists $$a2{$k} ? :
1635 7 12 if _equal_nonrefs($e1, $e2)
1639 12 0 if $ok
1641 0 12 unless $ok
1675 0 0 unless @$a1 == @$a2