Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 6 136 4.4


line true false branch
186 0 10 if ($item eq 'no_diag') { }
212 0 6 if ($item eq 'import') { }
491 0 0 unless (@methods)
501 0 0 unless eval { do { $proto->can($method) } }
505 0 0 @methods == 1 ? :
548 0 0 unless defined $obj_name
550 0 0 if (not defined $object) { }
0 0 elsif (not ref $object) { }
560 0 0 if ($@) { }
0 0 elsif (not $rslt) { }
561 0 0 if ($@ =~ /^Can't call method "isa" on unblessed reference/) { }
562 0 0 unless (UNIVERSAL::isa($object, $class))
584 0 0 if ($diag) { }
667 0 1 unless $Show_Diag
724 1 0 unless @imports
730 0 1 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
747 0 1 unless ($ok)
777 0 0 unless _is_module_name($module)
787 0 0 unless ($ok)
875 0 0 unless (defined $how_many)
877 0 0 unless $Test->has_plan eq 'no_plan'
955 0 0 unless (defined $how_many)
957 0 0 unless $Test->has_plan eq 'no_plan'
1011 0 0 unless (@_ == 2 or @_ == 3)
1025 0 0 if (not ref $this xor not ref $that)
1028 0 0 if (not ref $this || ref $that) { }
1034 0 0 if (_deep_check($this, $that)) { }
1054 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
1055 0 0 unless $did_arrow++
1059 0 0 unless $did_arrow++
1075 0 0 $val eq $DNE ? :
0 0 !defined($val) ? :
1091 0 0 unless ref $thing
1094 0 0 if UNIVERSAL::isa($thing, $type)
1120 0 0 if (grep((!_type($_) eq 'ARRAY'), $a1, $a2))
1125 0 0 if $a1 eq $a2
1127 0 0 if ($Test::More::Refs_Seen{$a1}) { }
1135 0 0 $#$a1 > $#$a2 ? :
1137 0 0 $_ > $#$a1 ? :
1138 0 0 $_ > $#$a2 ? :
1142 0 0 if $ok
1144 0 0 unless $ok
1163 0 0 if (defined $e1 xor defined $e2) { }
0 0 elsif ($e1 == $DNE xor $e2 == $DNE) { }
0 0 elsif ($same_ref and $e1 eq $e2) { }
1174 0 0 unless _type($e2) eq $type
1176 0 0 if (not $type) { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'REF') { }
0 0 elsif ($type eq 'SCALAR') { }
1189 0 0 if $ok
1194 0 0 if $ok
1221 0 0 if (grep((!_type($_) eq 'HASH'), $a1, $a2))
1226 0 0 if $a1 eq $a2
1228 0 0 if ($Test::More::Refs_Seen{$a1}) { }
1236 0 0 keys %$a1 > keys %$a2 ? :
1238 0 0 exists $$a1{$k} ? :
1239 0 0 exists $$a2{$k} ? :
1243 0 0 if $ok
1245 0 0 unless $ok
1266 0 0 unless @$a1 == @$a2
1276 0 0 ref $b ? :
0 0 ref $a ? :
1277 0 0 ref $b ? :
0 0 ref $a ? :