Branch Coverage

blib/lib/Protocol/DBus/Message.pm
Criterion Covered Total %
branch 29 44 65.9


line true false branch
27 11 0 if (my($hdr, $hdr_len, $is_be) = Protocol::DBus::Message::Header::parse_simple($buf_sr))
29 11 0 if (length $$buf_sr >= $hdr_len + $hdr->[4])
33 8 3 if ($hdr->[4])
34 0 8 unless defined $body_sig
39 8 3 if ($body_sig)
42 0 8 $is_be ? :
64 0 5 if @missing
69 0 5 if ($opts{'flags'})
79 5 0 if ($opts{'hfields'})
96 3 20 if ($field_num == {DESTINATION => 6, ERROR_NAME => 4, INTERFACE => 2, MEMBER => 3, PATH => 1, REPLY_SERIAL => 5, SENDER => 7, SIGNATURE => 8, UNIX_FDS => 9}->{'SIGNATURE'})
104 3 2 if ($opts{'body'}) { }
0 2 elsif ($opts{'body_sig'}) { }
105 0 3 unless $opts{'body_sig'}
131 40 0 if ($_[1] =~ tr[0-9][\000-/:-\377]c)
194 0 2 unless @names
197 0 2 unless $_[0]{'_flags'} & ({ALLOW_INTERACTIVE_AUTHORIZATION => 4, NO_AUTO_START => 2, NO_REPLY_EXPECTED => 1}->{$name} || do { my(@valids) = sort(keys %{{ALLOW_INTERACTIVE_AUTHORIZATION => 4, NO_AUTO_START => 2, NO_REPLY_EXPECTED => 1};}); die "Invalid flag name: \342\200\234$name\342\200\235 (valids are: @valids)" })
241 3 2 if ($self->{'_body_sig'})
244 0 3 $_use_be ? :
249 0 5 if $fds_ar and @$fds_ar
260 3 2 $body_m_sr ? :
263 0 5 $_use_be ? :
270 3 2 if $body_m_sr