Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 29 144 20.1


line true false branch
176 0 10 if (defined $item and $item eq 'no_diag') { }
464 0 0 unless ($class)
470 0 0 unless (@methods)
478 0 0 unless $tb->_try(sub { $proto->can($method); } )
481 0 0 @methods == 1 ? :
525 0 0 unless defined $obj_name
527 0 0 if (not defined $object) { }
0 0 elsif (not ref $object) { }
536 0 0 if ($error) { }
0 0 elsif (not $rslt) { }
537 0 0 if ($error =~ /^Can't call method "isa" on unblessed reference/) { }
539 0 0 unless (UNIVERSAL::isa($object, $class))
559 0 0 if ($diag) { }
593 0 0 unless @_
598 0 0 unless defined $object_name
602 0 0 if ($success) { }
696 1 0 unless @imports
702 0 1 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
722 0 1 unless ($ok)
749 0 1 if defined $sigdie
771 0 0 unless _is_module_name($module)
782 0 0 unless ($ok)
802 0 0 $module =~ /^[a-zA-Z]\w*$/ ? :
851 0 3 unless (@_ == 2 or @_ == 3)
869 0 3 if (not ref $got || ref $expected) { }
0 3 elsif (not ref $got xor not ref $expected) { }
878 3 0 if (_deep_check($got, $expected)) { }
898 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
899 0 0 unless $did_arrow++
903 0 0 unless $did_arrow++
919 0 0 ref $val ? :
0 0 _dne($val) ? :
0 0 !defined($val) ? :
936 0 4 unless ref $thing
939 4 4 if UNIVERSAL::isa($thing, $type)
1097 0 0 unless (defined $how_many)
1099 0 0 unless $tb->has_plan eq 'no_plan'
1104 0 0 if (defined $how_many and $how_many =~ /\D/)
1183 0 0 unless (defined $how_many)
1185 0 0 unless $tb->has_plan eq 'no_plan'
1280 0 0 if (grep((_type($_) ne 'ARRAY'), $a1, $a2))
1285 0 0 if $a1 eq $a2
1288 0 0 $#$a1 > $#$a2 ? :
1290 0 0 $_ > $#$a1 ? :
1291 0 0 $_ > $#$a2 ? :
1295 0 0 if $ok
1297 0 0 unless $ok
1324 0 4 if (defined $e1 xor defined $e2) { }
0 4 elsif (_dne($e1) xor _dne($e2)) { }
3 1 elsif ($same_ref and $e1 eq $e2) { }
0 1 elsif ($not_ref) { }
1338 0 1 if ($Refs_Seen{$e1}) { }
1346 0 1 unless _type($e2) eq $type
1348 0 1 if ($type eq 'DIFFERENT') { }
0 1 elsif ($type eq 'ARRAY') { }
1 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'REF') { }
0 0 elsif ($type eq 'SCALAR') { }
0 0 elsif ($type) { }
1361 0 0 if $ok
1366 0 0 if $ok
1383 0 0 if ($check)
1408 0 1 if (grep((_type($_) ne 'HASH'), $a1, $a2))
1413 0 1 if $a1 eq $a2
1416 0 1 keys %$a1 > keys %$a2 ? :
1418 1 0 exists $a1->{$k} ? :
1419 1 0 exists $a2->{$k} ? :
1423 1 0 if $ok
1425 0 1 unless $ok
1459 0 0 unless @$a1 == @$a2