| line |
true |
false |
branch |
|
28
|
20 |
28 |
unless ($$stuff =~ s/^(\d+)\0//s) |
|
29
|
0 |
20 |
if $$stuff =~ s/^(\D+)//s |
|
44
|
0 |
30 |
if @_ & 1 |
|
51
|
7 |
21 |
if (defined $block_size) { } |
|
52
|
0 |
7 |
if $block_size < 1 |
|
54
|
0 |
7 |
if exists $params{'LengthCodec'} |
|
56
|
0 |
7 |
if exists $params{'MaxLength'} |
|
61
|
1 |
20 |
if ($codec) { } |
|
62
|
0 |
1 |
unless ref $codec eq 'ARRAY' |
|
64
|
0 |
1 |
unless @$codec == 2 |
|
67
|
0 |
1 |
unless ref $encoder eq 'CODE' |
|
69
|
0 |
1 |
unless ref $decoder eq 'CODE' |
|
77
|
1 |
18 |
unless $max_buffer >= $max_length + length($max_length) + 1 |
|
82
|
0 |
25 |
if scalar keys %params |
|
110
|
1 |
56 |
if $$self[6] < length $$self[0] |
|
118
|
4 |
0 |
if eval {
do {
require bytes
}
} |
|
123
|
48 |
62 |
if (defined $$self[1]) |
|
124
|
22 |
26 |
unless length $$self[0] >= $$self[1] |
|
133
|
58 |
4 |
unless (defined $$self[2]) |
|
135
|
1 |
57 |
if defined $$self[2] and $$self[2] > $$self[5] |
|
139
|
36 |
25 |
if (defined $$self[2]) |
|
140
|
4 |
32 |
if length $$self[0] < $$self[2] |
|
161
|
4 |
0 |
if eval {
do {
require bytes
}
} |
|
168
|
16 |
26 |
if (defined $$self[1]) { } |
|
189
|
8 |
4 |
unless length $$self[0] |