Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 22 196 11.2


line true false branch
185 0 26 if (defined $item and $item eq 'no_diag') { }
0 26 elsif (defined $item and $item eq 'import') { }
189 0 0 if ($import) { }
206 14 0 if ($class eq 'Test::More' and !$import || grep(($_ eq '$TODO'), @$import))
210 0 14 if ($import) { }
547 0 0 unless ($class)
553 0 0 unless (@methods)
561 0 0 unless $tb->_try(sub { $proto->can($method); } )
564 0 0 @methods == 1 ? :
613 0 0 if (not defined $thing) { }
0 0 elsif (ref $thing) { }
621 0 0 if (&Scalar::Util::blessed($thing))
632 0 0 if ($error)
633 0 0 unless $error =~ /^Can't (locate|call) method "isa"/
641 0 0 if ($whatami eq 'reference')
646 0 0 if (defined $thing_name) { }
0 0 elsif ($whatami eq 'object') { }
0 0 elsif ($whatami eq 'reference') { }
0 0 elsif ($whatami eq 'undef') { }
0 0 elsif ($whatami eq 'class') { }
648 0 0 defined $thing ? :
677 0 0 if ($rslt) { }
711 0 0 unless @_
719 0 0 if ($success) { }
724 0 0 unless defined $class
889 0 1 unless _is_module_name($module)
900 0 1 unless ($ok)
920 1 0 $module =~ /^[a-zA-Z]\w*$/ ? :
977 11 0 unless @imports
987 0 11 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
1011 0 11 unless ($ok)
1032 1 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
0 1 if defined $args[-1]
1037 0 12 if defined $sigdie
1104 0 0 unless (@_ == 2 or @_ == 3)
1122 0 0 if (not ref $got || ref $expected) { }
0 0 elsif (not ref $got xor not ref $expected) { }
1131 0 0 if (_deep_check($got, $expected)) { }
1151 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
1152 0 0 unless $did_arrow++
1156 0 0 unless $did_arrow++
1172 0 0 ref $val ? :
0 0 _dne($val) ? :
0 0 !defined($val) ? :
1189 0 0 unless ref $thing
1192 0 0 if UNIVERSAL::isa($thing, $type)
1353 0 0 unless (defined $how_many)
1355 0 0 if $plan and $plan =~ /^\d+$/
1360 0 0 if (defined $how_many and $how_many =~ /\D/)
1436 0 0 unless (defined $how_many)
1438 0 0 unless $tb->has_plan eq 'no_plan'
1535 0 0 if (grep((_type($_) ne 'ARRAY'), $a1, $a2))
1540 0 0 if $a1 eq $a2
1543 0 0 $#$a1 > $#$a2 ? :
1545 0 0 $_ > $#$a1 ? :
1546 0 0 $_ > $#$a2 ? :
1548 0 0 if _equal_nonrefs($e1, $e2)
1552 0 0 if $ok
1554 0 0 unless $ok
1563 0 0 if ref $e1 or ref $e2
1565 0 0 if (defined $e1) { }
1566 0 0 if defined $e2 and $e1 eq $e2
1569 0 0 unless defined $e2
1593 0 0 if (defined $e1 xor defined $e2) { }
0 0 elsif (not defined $e1 || defined $e2) { }
0 0 elsif (_dne($e1) xor _dne($e2)) { }
0 0 elsif ($same_ref and $e1 eq $e2) { }
0 0 elsif ($not_ref) { }
1611 0 0 if ($Refs_Seen{$e1}) { }
1619 0 0 unless _type($e2) eq $type
1621 0 0 if ($type eq 'DIFFERENT') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'REF') { }
0 0 elsif ($type eq 'SCALAR') { }
0 0 elsif ($type) { }
1634 0 0 if $ok
1639 0 0 if $ok
1656 0 0 if ($check)
1681 0 0 if (grep((_type($_) ne 'HASH'), $a1, $a2))
1686 0 0 if $a1 eq $a2
1689 0 0 keys %$a1 > keys %$a2 ? :
1691 0 0 exists $a1->{$k} ? :
1692 0 0 exists $a2->{$k} ? :
1694 0 0 if _equal_nonrefs($e1, $e2)
1698 0 0 if $ok
1700 0 0 unless $ok
1734 0 0 unless @$a1 == @$a2