Branch Coverage

blib/lib/Protocol/DBus/Parser.pm
Criterion Covered Total %
branch 17 46 36.9


line true false branch
26 6 0 unless ($self->{'_bodysz'})
27 6 0 if (defined recv($self->{'_s'}, my $peek, 16, 2)) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
28 0 6 if (not length $peek) { }
6 0 elsif (16 == length $peek) { }
32 0 6 0 == index($peek, 'B') ? :
47 6 0 if (defined $self->{'_bodysz'} and not defined $self->{'_unix_fds'})
48 6 0 if (defined recv($self->{'_s'}, my $full_hdr, 16 + $self->{'_hdrsz'}, 2)) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
49 6 0 if (length $full_hdr == 16 + $self->{'_hdrsz'})
58 4 2 if ($hdr->[4])
59 0 4 unless defined $body_sig
68 6 0 if (defined $self->{'_unix_fds'})
74 0 6 if ($self->{'_unix_fds'}) { }
87 0 0 if (defined $got)
89 0 0 if ($self->{'_pending_unix_fds'})
107 6 0 if (defined $got) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
108 6 0 if ($got >= $needed_bytes) { }
0 0 elsif (not $got) { }
109 0 6 if $self->{'_preserve_variant_signatures'}
114 0 6 unless $msg
135 0 0 if (@_)