Branch Coverage

blib/lib/Ser/BinRPC.pm
Criterion Covered Total %
branch 41 142 28.8


line true false branch
87 0 0 if ($len > scalar @$arr)
103 3 7 if ($l < 8) { }
135 0 0 if (scalar @$arr == 0)
139 0 0 if (defined $$val_type and ($len & 15) != $$val_type)
144 0 0 if ($len & 8)
146 0 0 unless (binrpc_read_int @$arr, $len & 7, $len)
150 0 0 if ($len > scalar @$arr)
153 0 0 if ($nesting eq 'S') { }
154 0 0 if ($$val_type == $data_type{'STRUCT'}) { }
0 0 elsif ($$val_type == $data_type{'AVP'}) { }
155 0 0 if ($end_tag) { }
168 0 0 if (scalar @$arr == 0)
173 0 0 if ($$val_type == $data_type{'AVP'} or $$val_type == $data_type{'ARRAY'})
177 0 0 unless (binrpc_read_record @$arr, '', $$val_type, $$val, $dummy)
187 0 0 if ($$val_type == $data_type{'INT'}) { }
0 0 elsif ($$val_type == $data_type{'DOUBLE'}) { }
0 0 elsif ($$val_type == $data_type{'STR'}) { }
0 0 elsif ($$val_type == $data_type{'BYTES'}) { }
0 0 elsif ($$val_type == $data_type{'STRUCT'}) { }
0 0 elsif ($$val_type == $data_type{'ARRAY'}) { }
188 0 0 unless (binrpc_read_int @$arr, $len, $$val)
193 0 0 unless (binrpc_read_int @$arr, $len, $$val)
212 0 0 if ($end_tag)
219 0 0 unless (binrpc_read_record @$arr, 'S', $val_type2, $val2, $name2)
222 0 0 if (defined $val_type2)
229 0 0 if ($end_tag)
230 0 0 if ($nesting eq 'A') { }
241 0 0 unless (binrpc_read_record @$arr, 'A', $val_type2, $val2, $name2)
244 0 0 if (defined $val_type2)
279 2 8 if ($flds[0] eq 'unix') { }
7 1 elsif ($flds[0] eq 'udp' or $flds[0] eq 'tcp') { }
281 1 1 if $flds[1]
287 3 4 if $flds[1]
288 1 6 if $flds[2]
301 0 39 if ($$self{'verbose'})
309 0 16 if ($$self{'verbose'})
317 0 0 if ($b >= 32 and $b < 128) { }
324 0 0 if (($i & 15) == 0)
331 0 0 if ($i & 15)
353 0 4 if (defined $$self{'socket'})
357 1 3 if ($$self{'sock_domain'} == 1) { }
3 0 elsif ($$self{'sock_domain'} == 2) { }
364 1 0 unless ($sock)
377 0 3 unless ($iaddr)
387 1 2 unless ($sock)
406 3 3 unless (defined $$self{'socket'})
410 2 1 unless ($sock->close)
428 10 2 unless (defined @$params)
433 0 12 unless ($cmd)
437 4 8 unless (defined $$self{'socket'})
448 0 2 if ($item =~ /^\d+$/) { }
0 2 elsif ($item =~ /^\d+\.\d+$/) { }
454 1 1 if ($item =~ /^s:/)
465 0 8 if ($body_len > 4294967295)
471 0 8 if ($len_len == 0)
474 0 8 if ($c_len == 0)
503 4 4 unless ($sock->write($buf, length $buf))
509 4 0 unless ($sock->read($buf, 2))
517 0 0 if ($arr[0] >> 4 != $magic)
521 0 0 if (($arr[0] & 15) != $version)
529 0 0 unless ($sock->read($buf, $len_len + $c_len))
541 0 0 if ($cookie != $cookie2)
546 0 0 unless ($sock->read($buf, $body_len))
560 0 0 unless (binrpc_read_record @arr, '', $val_type, $val, $dummy)
567 0 0 if ($type == $message_type{'REPL'}) { }
0 0 elsif ($type == $message_type{'FAULT'}) { }
582 0 0 unless defined $indent
584 0 0 if (ref $result eq 'ARRAY') { }
0 0 elsif (ref $result eq 'HASH') { }
586 0 0 if (ref $$result[$i] eq 'ARRAY') { }
0 0 elsif (ref $$result[$i] eq 'HASH') { }