Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 41 168 24.4


line true false branch
181 0 12 if (defined $item and $item eq 'no_diag') { }
518 0 1 unless ($class)
524 0 1 unless (@methods)
532 0 1 unless $tb->_try(sub { $proto->can($method); } )
535 1 0 @methods == 1 ? :
584 0 31 if (not defined $thing) { }
31 0 elsif (ref $thing) { }
592 31 0 if (&Scalar::Util::blessed($thing))
603 0 31 if ($error)
604 0 0 unless $error =~ /^Can't (locate|call) method "isa"/
612 0 31 if ($whatami eq 'reference')
617 7 24 if (defined $thing_name) { }
24 0 elsif ($whatami eq 'object') { }
0 0 elsif ($whatami eq 'reference') { }
0 0 elsif ($whatami eq 'undef') { }
0 0 elsif ($whatami eq 'class') { }
619 7 0 defined $thing ? :
648 31 0 if ($rslt) { }
682 0 0 unless @_
690 0 0 if ($success) { }
695 0 0 unless defined $class
851 0 0 unless _is_module_name($module)
862 0 0 unless ($ok)
882 0 0 $module =~ /^[a-zA-Z]\w*$/ ? :
939 0 0 unless @imports
946 0 0 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
970 0 0 unless ($ok)
997 0 0 if defined $sigdie
1049 0 2 unless (@_ == 2 or @_ == 3)
1067 0 2 if (not ref $got || ref $expected) { }
0 2 elsif (not ref $got xor not ref $expected) { }
1076 2 0 if (_deep_check($got, $expected)) { }
1096 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
1097 0 0 unless $did_arrow++
1101 0 0 unless $did_arrow++
1117 0 0 ref $val ? :
0 0 _dne($val) ? :
0 0 !defined($val) ? :
1134 0 8 unless ref $thing
1137 8 8 if UNIVERSAL::isa($thing, $type)
1295 0 0 unless (defined $how_many)
1297 0 0 unless $tb->has_plan eq 'no_plan'
1302 0 0 if (defined $how_many and $how_many =~ /\D/)
1378 0 0 unless (defined $how_many)
1380 0 0 unless $tb->has_plan eq 'no_plan'
1477 0 2 if (grep((_type($_) ne 'ARRAY'), $a1, $a2))
1482 0 2 if $a1 eq $a2
1485 0 2 $#$a1 > $#$a2 ? :
1487 0 1 $_ > $#$a1 ? :
1488 0 1 $_ > $#$a2 ? :
1490 0 1 if _equal_nonrefs($e1, $e2)
1494 1 0 if $ok
1496 0 1 unless $ok
1505 1 0 if ref $e1 or ref $e2
1507 0 0 if (defined $e1) { }
1508 0 0 if defined $e2 and $e1 eq $e2
1511 0 0 unless defined $e2
1535 0 3 if (defined $e1 xor defined $e2) { }
0 3 elsif (not defined $e1 || defined $e2) { }
0 3 elsif (_dne($e1) xor _dne($e2)) { }
1 2 elsif ($same_ref and $e1 eq $e2) { }
0 2 elsif ($not_ref) { }
1553 0 2 if ($Refs_Seen{$e1}) { }
1561 0 2 unless _type($e2) eq $type
1563 0 2 if ($type eq 'DIFFERENT') { }
2 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) { }
1576 0 0 if $ok
1581 0 0 if $ok
1598 0 0 if ($check)
1623 0 0 if (grep((_type($_) ne 'HASH'), $a1, $a2))
1628 0 0 if $a1 eq $a2
1631 0 0 keys %$a1 > keys %$a2 ? :
1633 0 0 exists $$a1{$k} ? :
1634 0 0 exists $$a2{$k} ? :
1636 0 0 if _equal_nonrefs($e1, $e2)
1640 0 0 if $ok
1642 0 0 unless $ok
1676 0 0 unless @$a1 == @$a2