| line |
true |
false |
branch |
|
108
|
11 |
5 |
unless ($$stuff =~ s/^(\d+)\0//s) |
|
109
|
0 |
11 |
if $$stuff =~ s/^(\D+)//s |
|
128
|
0 |
5 |
if @_ & 1 |
|
133
|
3 |
2 |
if (defined $block_size) { } |
|
134
|
0 |
3 |
if $block_size < 1 |
|
137
|
0 |
3 |
if exists $params{'LengthCodec'} |
|
141
|
1 |
1 |
if ($codec) { } |
|
142
|
0 |
1 |
unless ref $codec eq 'ARRAY' |
|
144
|
0 |
1 |
unless @$codec == 2 |
|
147
|
0 |
1 |
unless ref $encoder eq 'CODE' |
|
149
|
0 |
1 |
unless ref $decoder eq 'CODE' |
|
189
|
0 |
2 |
if (length $self->[1]) |
|
190
|
0 |
0 |
if (not defined $self->[2] and defined $self->[3]) { } |
|
197
|
1 |
1 |
@ret ? : |
|
207
|
23 |
35 |
if defined $data |
|
211
|
1 |
0 |
if eval {
do {
require bytes
}
} |
|
216
|
16 |
42 |
if (defined $self->[2]) |
|
217
|
9 |
7 |
unless length $self->[1] >= $self->[2] |
|
226
|
18 |
24 |
if (defined $self->[3] or defined($self->[3] = $self->[5]->(\$self->[1]))) |
|
232
|
8 |
10 |
if length $self->[1] < $self->[3] |
|
250
|
1 |
0 |
if eval {
do {
require bytes
}
} |
|
256
|
7 |
16 |
if (defined $self->[2]) |