| line |
true |
false |
branch |
|
44
|
2 |
7 |
if ($self->{'utf8'}) { } |
|
71
|
1 |
0 |
if $self->{'_default_cb'} |
|
95
|
0 |
38 |
unless length $self->{'_buffer'} |
|
98
|
25 |
13 |
unless ($self->{'_parse_state'}) |
|
101
|
2 |
23 |
if ($type eq '+') { } |
|
|
3 |
20 |
elsif ($type eq '-') { } |
|
|
4 |
16 |
elsif ($type eq ':') { } |
|
|
3 |
13 |
elsif ($type eq '$') { } |
|
|
13 |
0 |
elsif ($type eq '*') { } |
|
124
|
7 |
204 |
unless length $self->{'_buffer'} >= 2 |
|
125
|
8 |
196 |
if ($self->{'_parse_state'} == $READ_LINE) { } |
|
|
5 |
191 |
elsif ($self->{'_parse_state'} == $READ_ERROR) { } |
|
|
25 |
166 |
elsif ($self->{'_parse_state'} == $READ_NUMBER) { } |
|
|
35 |
131 |
elsif ($self->{'_parse_state'} == $READ_BULK_LEN) { } |
|
|
35 |
96 |
elsif ($self->{'_parse_state'} == $READ_BULK) { } |
|
|
26 |
70 |
elsif ($self->{'_parse_state'} == $READ_MBLK_LEN) { } |
|
|
70 |
0 |
elsif ($self->{'_parse_state'} == $WAIT_BUCKS) { } |
|
126
|
2 |
6 |
unless defined(my $line = $self->_read_line) |
|
127
|
3 |
3 |
if $self->_reply_completed($line) |
|
130
|
1 |
4 |
unless defined(my $line = $self->_read_line) |
|
132
|
3 |
1 |
if $self->_reply_completed($err) |
|
135
|
1 |
24 |
unless defined(my $line = $self->_read_line) |
|
136
|
1 |
23 |
unless $line =~ /^-?[0-9]+$/ |
|
137
|
4 |
19 |
if $self->_reply_completed(0 + $line) |
|
140
|
0 |
35 |
unless defined(my $len = $self->_read_line) |
|
141
|
33 |
2 |
if ($len >= 0) { } |
|
|
2 |
0 |
elsif ($len == -1) { } |
|
146
|
1 |
1 |
if $self->_reply_completed(undef) |
|
150
|
2 |
33 |
unless length $self->{'_buffer'} >= 2 + $self->{'_parse_bulk_len'} |
|
153
|
4 |
29 |
if ($self->{'utf8'}) |
|
161
|
10 |
22 |
if $self->_reply_completed($bulk) |
|
164
|
0 |
26 |
unless defined(my $len = $self->_read_line) |
|
165
|
21 |
5 |
if ($len > 0) { } |
|
|
5 |
0 |
elsif ($len == 0 or $len == -1) { } |
|
172
|
2 |
3 |
$len ? : |
|
|
2 |
3 |
if $self->_reply_completed($len ? undef : []) |
|
180
|
32 |
38 |
if ($char eq '$') { } |
|
|
20 |
18 |
elsif ($char eq ':') { } |
|
|
4 |
14 |
elsif ($char eq '+') { } |
|
|
1 |
13 |
elsif ($char eq '-') { } |
|
|
13 |
0 |
elsif ($char eq '*') { } |
|
210
|
95 |
4 |
if ($pos >= 0) |
|
225
|
49 |
20 |
if (--$self->{'_parse_mblk_len'}) { } |
|
|
10 |
10 |
elsif (--$self->{'_parse_mblk_level'}) { } |
|
245
|
59 |
13 |
if ($self->{'_parse_mblk_level'}) |
|
246
|
49 |
10 |
if $self->_mblk_item($reply) |