Branch Coverage

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


line true false branch
25 3 0 unless ($self->{'_bodysz'})
26 3 0 if (defined recv($self->{'_s'}, my $peek, 16, 2)) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
27 0 3 if (not length $peek) { }
3 0 elsif (16 == length $peek) { }
31 0 3 0 == index($peek, 'B') ? :
46 3 0 if (defined $self->{'_bodysz'} and not defined $self->{'_unix_fds'})
47 3 0 if (defined recv($self->{'_s'}, my $full_hdr, 16 + $self->{'_hdrsz'}, 2)) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
48 3 0 if (length $full_hdr == 16 + $self->{'_hdrsz'})
57 2 1 if ($hdr->[4])
58 0 2 unless defined $body_sig
67 3 0 if (defined $self->{'_unix_fds'})
73 0 3 if ($self->{'_unix_fds'}) { }
86 0 0 if (defined $got)
88 0 0 if ($self->{'_pending_unix_fds'})
106 3 0 if (defined $got) { }
0 0 elsif (not $!{'EAGAIN'} || $!{'EWOULDBLOCK'}) { }
107 3 0 if ($got >= $needed_bytes) { }
0 0 elsif (not $got) { }
108 0 3 if $self->{'_preserve_variant_signatures'}
113 0 3 unless $msg
134 0 0 if (@_)