| 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 |
|
55
|
0 |
7 |
if exists $params{'LengthCodec'} |
|
57
|
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] |