Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 42 152 27.6


line true false branch
181 0 47 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 3 if (not defined $object) { }
580 0 0 unless defined $obj_name
584 3 0 ref $object ? :
587 0 3 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))
609 3 0 unless defined $obj_name
610 0 3 unless ($rslt)
619 0 3 if ($diag) { }
653 0 0 unless @_
658 0 0 unless defined $object_name
662 0 0 if ($success) { }
756 0 0 unless @imports
762 0 0 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
782 0 0 unless ($ok)
809 0 0 if defined $sigdie
831 0 0 unless _is_module_name($module)
842 0 0 unless ($ok)
862 0 0 $module =~ /^[a-zA-Z]\w*$/ ? :
911 0 26 unless (@_ == 2 or @_ == 3)
929 0 26 if (not ref $got || ref $expected) { }
0 26 elsif (not ref $got xor not ref $expected) { }
938 25 1 if (_deep_check($got, $expected)) { }
958 0 2 if ($type eq 'HASH') { }
1 1 elsif ($type eq 'ARRAY') { }
0 1 elsif ($type eq 'REF') { }
959 0 0 unless $did_arrow++
963 1 0 unless $did_arrow++
979 0 2 ref $val ? :
0 2 _dne($val) ? :
0 2 !defined($val) ? :
996 0 104 unless ref $thing
999 104 0 if UNIVERSAL::isa($thing, $type)
1157 0 0 unless (defined $how_many)
1159 0 0 unless $tb->has_plan eq 'no_plan'
1164 0 0 if (defined $how_many and $how_many =~ /\D/)
1243 0 0 unless (defined $how_many)
1245 0 0 unless $tb->has_plan eq 'no_plan'
1342 0 26 if (grep((_type($_) ne 'ARRAY'), $a1, $a2))
1347 0 26 if $a1 eq $a2
1350 0 26 $#$a1 > $#$a2 ? :
1352 0 125 $_ > $#$a1 ? :
1353 0 125 $_ > $#$a2 ? :
1357 124 1 if $ok
1359 1 124 unless $ok
1386 0 151 if (defined $e1 xor defined $e2) { }
0 151 elsif (not defined $e1 || defined $e2) { }
0 151 elsif (_dne($e1) xor _dne($e2)) { }
124 27 elsif ($same_ref and $e1 eq $e2) { }
1 26 elsif ($not_ref) { }
1404 0 26 if ($Refs_Seen{$e1}) { }
1412 0 26 unless _type($e2) eq $type
1414 0 26 if ($type eq 'DIFFERENT') { }
26 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) { }
1427 0 0 if $ok
1432 0 0 if $ok
1449 0 0 if ($check)
1474 0 0 if (grep((_type($_) ne 'HASH'), $a1, $a2))
1479 0 0 if $a1 eq $a2
1482 0 0 keys %$a1 > keys %$a2 ? :
1484 0 0 exists $$a1{$k} ? :
1485 0 0 exists $$a2{$k} ? :
1489 0 0 if $ok
1491 0 0 unless $ok
1525 0 0 unless @$a1 == @$a2