Branch Coverage

inc/Test/More.pm
Criterion Covered Total %
branch 34 134 25.3


line true false branch
176 0 6 if (defined $item and $item eq 'no_diag') { }
467 0 0 unless ($class)
473 0 0 unless (@methods)
481 0 0 unless $tb->_try(sub { $proto->can($method); } )
485 0 0 @methods == 1 ? :
529 3 0 unless defined $obj_name
531 0 3 if (not defined $object) { }
0 3 elsif (not ref $object) { }
540 0 3 if ($error) { }
0 3 elsif (not $rslt) { }
541 0 0 if ($error =~ /^Can't call method "isa" on unblessed reference/) { }
543 0 0 unless (UNIVERSAL::isa($object, $class))
564 0 3 if ($diag) { }
656 1 0 unless @imports
666 0 1 if (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
685 0 1 unless ($ok)
716 0 0 unless _is_module_name($module)
727 0 0 unless ($ok)
796 0 3 unless (@_ == 2 or @_ == 3)
814 0 3 if (not ref $got || ref $expected) { }
0 3 elsif (not ref $got xor not ref $expected) { }
823 3 0 if (_deep_check($got, $expected)) { }
843 0 0 if ($type eq 'HASH') { }
0 0 elsif ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'REF') { }
844 0 0 unless $did_arrow++
848 0 0 unless $did_arrow++
864 0 0 ref $val ? :
0 0 _dne($val) ? :
0 0 !defined($val) ? :
881 0 24 unless ref $thing
884 24 24 if UNIVERSAL::isa($thing, $type)
1005 0 0 unless (defined $how_many)
1007 0 0 unless $tb->has_plan eq 'no_plan'
1012 0 0 if (defined $how_many and $how_many =~ /\D/)
1091 0 0 unless (defined $how_many)
1093 0 0 unless $tb->has_plan eq 'no_plan'
1188 0 0 if (grep((!_type($_) eq 'ARRAY'), $a1, $a2))
1193 0 0 if $a1 eq $a2
1196 0 0 $#$a1 > $#$a2 ? :
1198 0 0 $_ > $#$a1 ? :
1199 0 0 $_ > $#$a2 ? :
1203 0 0 if $ok
1205 0 0 unless $ok
1232 0 22 if (defined $e1 xor defined $e2) { }
0 22 elsif (_dne($e1) xor _dne($e2)) { }
16 6 elsif ($same_ref and $e1 eq $e2) { }
0 6 elsif ($not_ref) { }
1246 0 6 if ($Test::More::Refs_Seen{$e1}) { }
1254 0 6 unless _type($e2) eq $type
1256 0 6 if ($type eq 'DIFFERENT') { }
0 6 elsif ($type eq 'ARRAY') { }
6 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'REF') { }
0 0 elsif ($type eq 'SCALAR') { }
0 0 elsif ($type) { }
1269 0 0 if $ok
1274 0 0 if $ok
1292 0 0 if ($check)
1318 0 6 if (grep((!_type($_) eq 'HASH'), $a1, $a2))
1323 0 6 if $a1 eq $a2
1326 0 6 keys %$a1 > keys %$a2 ? :
1328 19 0 exists $$a1{$k} ? :
1329 19 0 exists $$a2{$k} ? :
1333 19 0 if $ok
1335 0 19 unless $ok
1369 0 0 unless @$a1 == @$a2