Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 19 96 19.7


line true false branch
59 0 2 if ($plan[$idx] eq 'import')
118 0 0 unless (@methods)
128 0 0 unless eval { do { $proto->can($method) } }
132 0 0 @methods == 1 ? :
147 0 20 unless defined $obj_name
149 0 20 if (not defined $object) { }
0 20 elsif (not ref $object) { }
159 0 20 if ($@) { }
0 20 elsif (not $rslt) { }
160 0 0 if ($@ =~ /^Can't call method "isa" on unblessed reference/) { }
161 0 0 unless (UNIVERSAL::isa($object, $class))
183 0 20 if ($diag) { }
213 0 0 unless @imports
226 0 0 unless ($ok)
252 0 0 unless ($ok)
267 0 0 unless (defined $how_many)
269 0 0 unless $Test::Builder::No_Plan
287 0 0 unless (defined $how_many)
289 0 0 unless $Test::Builder::No_Plan
309 0 16 if (not ref $this && ref $that) { }
314 16 0 if (_deep_check($this, $that)) { }
334 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
335 0 0 unless $did_arrow++
339 0 0 unless $did_arrow++
355 0 0 $val eq $DNE ? :
0 0 !defined($val) ? :
370 0 0 if $a1 eq $a2
373 0 0 $#$a1 > $#$a2 ? :
375 0 0 $_ > $#$a1 ? :
376 0 0 $_ > $#$a2 ? :
380 0 0 if $ok
382 0 0 unless $ok
396 66 96 if ($e1 eq $e2) { }
400 0 96 if (UNIVERSAL::isa($e1, 'ARRAY') and UNIVERSAL::isa($e2, 'ARRAY')) { }
96 0 elsif (UNIVERSAL::isa($e1, 'HASH') and UNIVERSAL::isa($e2, 'HASH')) { }
0 0 elsif (UNIVERSAL::isa($e1, 'REF') and UNIVERSAL::isa($e2, 'REF')) { }
0 0 elsif (UNIVERSAL::isa($e1, 'SCALAR') and UNIVERSAL::isa($e2, 'SCALAR')) { }
415 0 0 if $ok
437 0 96 if $a1 eq $a2
440 0 96 keys %$a1 > keys %$a2 ? :
442 146 0 exists $$a1{$k} ? :
443 146 0 exists $$a2{$k} ? :
447 146 0 if $ok
449 0 146 unless $ok
455 0 0 ref $a ? :
459 0 0 unless @$a1 == @$a2