Branch Coverage

File:inc/Test/More.pm
Coverage:27.6%

line%coveragebranch
17550TFif (defined $item and $item eq 'no_diag') { }
4660TFunless ($class)
4720TFunless (@methods)
4800TFunless $tb->_try(sub { $proto->can($method); } )
4840TF@methods == 1 ? :
5280TFunless defined $obj_name
5300TFif (not defined $object) { }
0TFelsif (not ref $object) { }
5390TFif ($error) { }
0TFelsif (not $rslt) { }
5400TFif ($error =~ /^Can't call method "isa" on unblessed reference/) { }
5420TFif (not UNIVERSAL::isa($object, $class))
5630TFif ($diag) { }
65550TFunless @imports
66150TFif (@imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/) { }
68250TFunless ($ok)
7270TFunless _is_module_name($module)
7380TFunless ($ok)
80750TFunless (@_ == 2 or @_ == 3)
825100TFif (not ref $got and not ref $expected) { }
50TFelsif (not ref $got xor not ref $expected) { }
83450TFif (_deep_check($got, $expected)) { }
8540TFif ($type eq 'HASH') { }
0TFelsif ($type eq 'ARRAY') { }
0TFelsif ($type eq 'REF') { }
8550TFunless $did_arrow++
8590TFunless $did_arrow++
8750TFref $val ? :
0TF_dne($val) ? :
0TF!defined($val) ? :
89250TFif not ref $thing
895100TFif UNIVERSAL::isa($thing, $type)
10160TFunless (defined $how_many)
10180TFunless $tb->has_plan eq 'no_plan'
10230TFif (defined $how_many and $how_many =~ /\D/)
11020TFunless (defined $how_many)
11040TFunless $tb->has_plan eq 'no_plan'
119950TFif (grep((!_type($_) eq 'ARRAY'), $a1, $a2))
120450TFif $a1 eq $a2
120750TF$#$a1 > $#$a2 ? :
120950TF$_ > $#$a1 ? :
121050TF$_ > $#$a2 ? :
121450TFif $ok
121650TFunless $ok
124350TFif (defined $e1 xor defined $e2) { }
50TFelsif (_dne($e1) xor _dne($e2)) { }
100TFelsif ($same_ref and $e1 eq $e2) { }
50TFelsif ($not_ref) { }
125750TFif ($Refs_Seen{$e1}) { }
126550TFunless _type($e2) eq $type
126750TFif ($type eq 'DIFFERENT') { }
100TFelsif ($type eq 'ARRAY') { }
50TFelsif ($type eq 'HASH') { }
0TFelsif ($type eq 'REF') { }
0TFelsif ($type eq 'SCALAR') { }
0TFelsif ($type) { }
12800TFif $ok
12850TFif $ok
13030TFif ($check)
132950TFif (grep((!_type($_) eq 'HASH'), $a1, $a2))
133450TFif $a1 eq $a2
133750TFkeys %$a1 > keys %$a2 ? :
133950TFexists $$a1{$k} ? :
134050TFexists $$a2{$k} ? :
134450TFif $ok
134650TFunless $ok
13800TFunless @$a1 == @$a2