Branch Coverage

blib/lib/Protocol/DBus/Parser.pm
Criterion Covered Total %
branch 16 44 36.3


line true false branch
25 3 0 unless ($self->{'_bodysz'})
26 3 0 if (defined recv($self->{'_s'}, my $peek, 16, &Socket::MSG_PEEK())) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
27 3 0 if (16 == length $peek)
28 0 3 0 == index($peek, 'B') ? :
43 3 0 if (defined $self->{'_bodysz'} and not defined $self->{'_unix_fds'})
44 3 0 if (defined recv($self->{'_s'}, my $full_hdr, 16 + $self->{'_hdrsz'}, &Socket::MSG_PEEK())) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
45 3 0 if (length $full_hdr == 16 + $self->{'_hdrsz'})
54 2 1 if ($hdr->[4])
55 0 2 unless defined $body_sig
64 3 0 if (defined $self->{'_unix_fds'})
70 0 3 if ($self->{'_unix_fds'}) { }
83 0 0 if (defined $got)
85 0 0 if ($self->{'_pending_unix_fds'})
103 3 0 if (defined $got) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
104 3 0 if ($got >= $needed_bytes) { }
0 0 elsif (not $got) { }
105 0 3 if $self->{'_preserve_variant_signatures'}
110 0 3 unless $msg
131 0 0 if (@_)