Branch Coverage

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


line true false branch
27 14 0 if (my($hdr, $hdr_len, $is_be) = Protocol::DBus::Message::Header::parse_simple($buf_sr))
29 14 0 if (length $$buf_sr >= $hdr_len + $hdr->[4])
33 10 4 if ($hdr->[4])
34 0 10 unless defined $body_sig
39 10 4 if ($body_sig)
42 0 10 $is_be ? :
64 0 8 if @missing
69 0 8 if ($opts{'flags'})
79 8 0 if ($opts{'hfields'})
96 5 32 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 5 3 if ($opts{'body'}) { }
0 3 elsif ($opts{'body_sig'}) { }
105 0 5 unless $opts{'body_sig'}
131 55 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 5 3 if ($self->{'_body_sig'})
244 0 5 $_use_be ? :
249 0 8 if $fds_ar and @$fds_ar
260 5 3 $body_m_sr ? :
263 0 8 $_use_be ? :
270 5 3 if $body_m_sr