Branch Coverage

blib/lib/Protocol/DBus/Marshal.pm
Criterion Covered Total %
branch 54 66 81.8


line true false branch
59 67 65 $_data_are_not_list ? :
62 6 126 if (index($sct, 'a') == 0) { }
11 115 elsif (index($sct, '(') == 0) { }
19 96 elsif ($sct eq 'v') { }
83 7 89 if ($sct eq 'o') { }
3 86 elsif ($sct eq 'h') { }
84 0 7 unless ($datum =~ m[\A/(?:[A-Za-z0-9_]+(?:/[A-Za-z0-9_]+)*)?\z])
90 0 3 unless defined $fd
94 2 1 unless (defined $idx)
130 3 3 if ($array_start % 8)
137 3 3 if (0 == index($sct, '{')) { }
141 2 1 $DICT_CANONICAL ? :
156 3 3 if $compensate_align8
204 104 1453 if (substr($sct_sig, 0, 1) eq 'a') { }
36 1417 elsif (substr($sct_sig, 0, 1) eq '(') { }
137 1280 elsif (substr($sct_sig, 0, 1) eq 'v') { }
213 40 64 if (substr($sct_sig, 1, 1) eq '{') { }
266 0 1280 if ($FILEHANDLES and $sct_sig eq 'h')
273 314 966 $is_string ? :
283 0 137 unless length $sig
290 0 137 $PRESERVE_VARIANT_SIGNATURES ? :
299 359 1017 if ($pack_tmpl = {g => 'C/a x', o => 'L/a x', s => 'L/a x'}->{$sct_sig}) { }
303 0 1017 unless ($pack_tmpl = {b => 'L', d => 'd', h => 'L', i => 'l', n => 's', q => 'S', t => 'Q', u => 'L', x => 'q', y => 'C'}->{$sct_sig})
390 11 41 if $sig_offset == length $sig
402 0 41 if ($next_sct eq 'v') { }
0 41 elsif ($next_sct eq 'g') { }
3 38 elsif ({g => 'C/a x', o => 'L/a x', s => 'L/a x'}->{$next_sct}) { }
20 18 elsif (my $width = {b => 4, d => 8, g => 2, h => 4, i => 4, n => 2, o => 5, q => 2, s => 5, t => 8, u => 4, x => 8, y => 1}->{$next_sct}) { }
408 0 0 unless $ok
432 12 6 if ($char0 eq 'a') { }
6 0 elsif ($char0 eq '(') { }
439 4 2 unless $ok
456 15 0 $_ENDIAN_PACK eq '<' ? :