Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 36 134 26.8


line true false branch
176 0 34 if (defined $item and $item eq 'no_diag') { }
467 0 0 unless ($class)
473 0 0 unless (@methods)
483 0 0 unless eval { do { $proto->can($method) } }
487 0 0 @methods == 1 ? :
531 0 0 unless defined $obj_name
533 0 0 if (not defined $object) { }
0 0 elsif (not ref $object) { }
543 0 0 if ($@) { }
0 0 elsif (not $rslt) { }
544 0 0 if ($@ =~ /^Can't call method "isa" on unblessed reference/) { }
545 0 0 unless (UNIVERSAL::isa($object, $class))
567 0 0 if ($diag) { }
659 1 0 unless @imports
666 0 1 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
683 0 1 unless ($ok)
714 0 0 unless _is_module_name($module)
724 0 0 unless ($ok)
787 0 7 unless (@_ == 2 or @_ == 3)
805 0 7 if (not ref $got || ref $expected) { }
0 7 elsif (not ref $got xor not ref $expected) { }
814 7 0 if (_deep_check($got, $expected)) { }
834 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
835 0 0 unless $did_arrow++
839 0 0 unless $did_arrow++
855 0 0 ref $val ? :
0 0 $val eq $DNE ? :
0 0 !defined($val) ? :
872 0 48 unless ref $thing
875 48 20 if UNIVERSAL::isa($thing, $type)
996 0 0 unless (defined $how_many)
998 0 0 unless $tb->has_plan eq 'no_plan'
1003 0 0 if (defined $how_many and $how_many =~ /\D/)
1082 0 0 unless (defined $how_many)
1084 0 0 unless $tb->has_plan eq 'no_plan'
1179 0 7 if (grep((!_type($_) eq 'ARRAY'), $a1, $a2))
1184 0 7 if $a1 eq $a2
1187 0 7 $#$a1 > $#$a2 ? :
1189 0 13 $_ > $#$a1 ? :
1190 0 13 $_ > $#$a2 ? :
1194 13 0 if $ok
1196 0 13 unless $ok
1223 0 27 if (defined $e1 xor defined $e2) { }
0 27 elsif ($e1 == $DNE xor $e2 == $DNE) { }
15 12 elsif ($same_ref and $e1 eq $e2) { }
0 12 elsif ($not_ref) { }
1237 0 12 if ($Test::More::Refs_Seen{$e1}) { }
1245 0 12 unless _type($e2) eq $type
1247 0 12 if ($type eq 'DIFFERENT') { }
7 5 elsif ($type eq 'ARRAY') { }
5 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'REF') { }
0 0 elsif ($type eq 'SCALAR') { }
0 0 elsif ($type) { }
1260 0 0 if $ok
1265 0 0 if $ok
1283 0 0 if ($check)
1309 0 5 if (grep((!_type($_) eq 'HASH'), $a1, $a2))
1314 0 5 if $a1 eq $a2
1317 0 5 keys %$a1 > keys %$a2 ? :
1319 7 0 exists $a1->{$k} ? :
1320 7 0 exists $a2->{$k} ? :
1324 7 0 if $ok
1326 0 7 unless $ok
1360 0 0 unless @$a1 == @$a2