Branch Coverage
lib/Remote/Perl/Protocol.pm
Criterion
Covered
Total
%
branch
6
6
100.0
line
true
false
branch
89
543
917
length $body > 1 ? :
136
1
10456
if length $self->{'buf'} < 6 + $len
138
4703
5753
$len ? :