Branch Coverage

support/Test/More.pm
Criterion Covered Total %
branch 36 134 26.9


line true false branch
177 0 18 if (defined $item and $item eq 'no_diag') { }
468 0 0 unless ($class)
474 0 0 unless (@methods)
484 0 0 unless eval {
488 0 0 @methods == 1 ? :
532 0 0 unless defined $obj_name
534 0 0 if (not defined $object) { }
0 0 elsif (not ref $object) { }
544 0 0 if ($@) { }
0 0 elsif (not $rslt) { }
545 0 0 if ($@ =~ /^Can't call method "isa" on unblessed reference/) { }
546 0 0 if (not UNIVERSAL::isa($object, $class))
568 0 0 if ($diag) { }
660 0 0 unless @imports
667 0 0 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
684 0 0 unless ($ok)
715 0 2 unless _is_module_name($module)
725 0 2 unless ($ok)
788 0 518 unless (@_ == 2 or @_ == 3)
806 48 470 if (not ref $this and not ref $that) { }
0 470 elsif (not ref $this xor not ref $that) { }
815 470 0 if (_deep_check($this, $that)) { }
835 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
836 0 0 unless $did_arrow++
840 0 0 unless $did_arrow++
856 0 0 ref $val ? :
0 0 $val eq $DNE ? :
0 0 !defined($val) ? :
873 0 2700 if not ref $thing
876 2700 1168 if UNIVERSAL::isa($thing, $type)
997 0 0 unless (defined $how_many)
999 0 0 unless $tb->has_plan eq 'no_plan'
1004 0 0 if (defined $how_many and $how_many =~ /\D/)
1083 0 0 unless (defined $how_many)
1085 0 0 unless $tb->has_plan eq 'no_plan'
1180 0 383 if (grep((!_type($_) eq 'ARRAY'), $a1, $a2))
1185 0 383 if $a1 eq $a2
1188 0 383 $#$a1 > $#$a2 ? :
1190 0 11769 $_ > $#$a1 ? :
1191 0 11769 $_ > $#$a2 ? :
1195 11769 0 if $ok
1197 0 11769 unless $ok
1224 0 12780 if (defined $e1 xor defined $e2) { }
0 12780 elsif ($e1 == $DNE xor $e2 == $DNE) { }
12105 675 elsif ($same_ref and $e1 eq $e2) { }
0 675 elsif ($not_ref) { }
1238 0 675 if ($Refs_Seen{$e1}) { }
1246 0 675 unless _type($e2) eq $type
1248 0 675 if ($type eq 'DIFFERENT') { }
383 292 elsif ($type eq 'ARRAY') { }
292 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'REF') { }
0 0 elsif ($type eq 'SCALAR') { }
0 0 elsif ($type) { }
1261 0 0 if $ok
1266 0 0 if $ok
1284 0 0 if ($check)
1310 0 292 if (grep((!_type($_) eq 'HASH'), $a1, $a2))
1315 0 292 if $a1 eq $a2
1318 0 292 keys %$a1 > keys %$a2 ? :
1320 541 0 exists $$a1{$k} ? :
1321 541 0 exists $$a2{$k} ? :
1325 541 0 if $ok
1327 0 541 unless $ok
1361 0 0 unless @$a1 == @$a2