Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 56 166 33.7


line true false branch
182 0 86 if (defined $item and $item eq 'no_diag') { }
517 0 2 unless ($class)
523 0 2 unless (@methods)
531 0 46 unless $tb->_try(sub { $proto->can($method); } )
534 0 2 @methods == 1 ? :
584 0 8 if (not defined $object) { }
585 0 0 unless defined $obj_name
589 8 0 ref $object ? :
592 0 8 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 8 0 unless defined $obj_name
616 0 8 unless ($rslt)
625 0 8 if ($diag) { }
659 0 0 unless @_
664 0 0 unless defined $object_name
668 0 0 if ($success) { }
836 5 0 unless @imports
842 0 5 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
862 0 5 unless ($ok)
889 0 5 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 51 unless (@_ == 2 or @_ == 3)
1009 0 51 if (not ref $got || ref $expected) { }
0 51 elsif (not ref $got xor not ref $expected) { }
1018 51 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 208 unless ref $thing
1079 208 324 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 23 if (grep((_type($_) ne 'ARRAY'), $a1, $a2))
1424 0 23 if $a1 eq $a2
1427 0 23 $#$a1 > $#$a2 ? :
1429 0 74 $_ > $#$a1 ? :
1430 0 74 $_ > $#$a2 ? :
1432 72 2 if _equal_nonrefs($e1, $e2)
1436 2 0 if $ok
1438 0 2 unless $ok
1447 8 87 if ref $e1 or ref $e2
1449 87 0 if (defined $e1) { }
1450 87 0 if defined $e2 and $e1 eq $e2
1453 0 0 unless defined $e2
1477 0 59 if (defined $e1 xor defined $e2) { }
0 59 elsif (not defined $e1 || defined $e2) { }
0 59 elsif (_dne($e1) xor _dne($e2)) { }
7 52 elsif ($same_ref and $e1 eq $e2) { }
0 52 elsif ($not_ref) { }
1495 0 52 if ($Refs_Seen{$e1}) { }
1503 0 52 unless _type($e2) eq $type
1505 0 52 if ($type eq 'DIFFERENT') { }
23 29 elsif ($type eq 'ARRAY') { }
29 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 29 if (grep((_type($_) ne 'HASH'), $a1, $a2))
1570 0 29 if $a1 eq $a2
1573 0 29 keys %$a1 > keys %$a2 ? :
1575 21 0 exists $$a1{$k} ? :
1576 21 0 exists $$a2{$k} ? :
1578 15 6 if _equal_nonrefs($e1, $e2)
1582 6 0 if $ok
1584 0 6 unless $ok
1618 0 0 unless @$a1 == @$a2