Branch Coverage

blib/lib/Devel/Optic/Lens/Perlish/Interpreter.pm
Criterion Covered Total %
branch 63 74 85.1


line true false branch
22 41 14 if ($type eq 1)
26 14 0 if ($type eq 4)
44 50 30 if ($l_type eq 4)
48 30 50 if ($l_type eq 1)
52 0 80 if ($r_type eq 1)
56 38 42 if ($r_type eq 2)
60 42 0 if ($r_type eq 3)
69 2 40 unless (XXX)
76 0 40 if ($type eq 5)
84 27 13 if ($type eq 6)
88 9 31 if ($type eq 4)
90 2 7 unless (&looks_like_number($resolved))
100 4 34 if ($type eq 1)
102 0 4 unless (&looks_like_number($resolved))
111 38 0 if (defined $index)
114 4 34 if ($len <= $index or $index < 0 and -1 * $index > $len)
133 2 36 unless (XXX)
134 1 1 defined $hashref ? :
141 24 12 if ($type eq 5 or $type eq 6)
145 7 29 if ($type eq 4)
147 1 6 if (XXX)
157 5 30 if ($type eq 1)
159 0 5 if (XXX)
172 35 0 if (defined $key)
173 3 32 unless (exists $hashref->{$key})
194 3 77 unless exists $scope->{$name}
196 15 62 if (XXX or XXX)
206 3 7 if ($type eq 5 or $type eq 6)
219 29 7 if $type eq 4 or $type eq 6
220 1 6 if $type eq 5
222 1 5 if $type eq 2
223 2 3 if $type eq 3
225 3 0 if ($type eq 1)
234 1 9 unless (defined $raw)
238 4 5 if (XXX)
242 0 5 if ($raw eq '')
246 0 5 if (length $raw > 10)