Branch Coverage

blib/lib/Alvis/Tana.pm
Criterion Covered Total %
branch 0 128 0.0


line true false branch
29 0 0 unless (defined $len)
35 0 0 unless (defined $name)
54 0 0 if ($bytes != 1)
57 0 0 if $debug
61 0 0 if ($char =~ /[0-9]/)
68 0 0 if ($char =~ /[^\n ]/)
71 0 0 if $debug
74 0 0 if (0 == $got)
77 0 0 if $debug
112 0 0 unless (defined $keylen)
114 0 0 if $debug
117 0 0 if $debug
120 0 0 unless (defined $key)
122 0 0 if $debug
125 0 0 if $debug
129 0 0 unless (defined $dummy)
131 0 0 if $debug
144 0 0 if (4 != $got)
153 0 0 unless (defined $fieldc)
158 0 0 if ($mtype ne 'arb' and $mtype ne 'fix')
161 0 0 if $debug
166 0 0 if (defined $$autoread_arb)
168 0 0 unless ($$autoread_arb)
176 0 0 if ($mtype eq 'arb' and not $read_arb)
187 0 0 unless (defined $keylen)
193 0 0 unless (defined $len)
195 0 0 if $debug
198 0 0 if $debug
202 0 0 if ($len > 0)
209 0 0 unless (defined $value_piece)
211 0 0 if $debug
214 0 0 if $debug
223 0 0 unless (defined $dummy)
225 0 0 if $debug
233 0 0 if ($mtype eq 'arb' and not $read_arb) { }
0 0 elsif (defined $autoread_arb) { }
237 0 0 unless (defined $keylen)
242 0 0 if $debug
266 0 0 if (1 != $got)
269 0 0 if $debug
273 0 0 if $debug
274 0 0 if ($char eq '\\') { }
0 0 elsif ($char eq "\n") { }
277 0 0 if (1 != $got)
280 0 0 if $debug
284 0 0 if $debug
285 0 0 if ($char eq 'n') { }
0 0 elsif ($char eq '\\') { }
296 0 0 if $debug
324 0 0 if $debug
325 0 0 if ($1 eq '\\') { }
0 0 elsif ($1 eq "\n") { }
328 0 0 if (length $out != syswrite($client, $out, length $out))
337 0 0 if (length $out != syswrite($client, $out, length $out))
346 0 0 if (length $out != syswrite($client, $out, length $out))
354 0 0 if ($final)
357 0 0 if (length $out != syswrite($client, $out, length $out))
378 0 0 if (defined $type) { }
383 0 0 if (length $out != syswrite($client, $out))
394 0 0 if (length $out != $len)
412 0 0 if ($len == 0)
416 0 0 if (length $out != syswrite($client, $out))
422 0 0 if (defined $type)
426 0 0 if (length $out != syswrite($client, $out))