Branch Coverage

blib/lib/RedisDB/Parser/PP.pm

Criterion	Covered	Total	%
branch	83	92	90.2

line	true	false	branch
44	2	7	if ($$self{'utf8'}) { }
71	1	0	if $$self{'_default_cb'}
93	0	38	unless length $$self{'_buffer'}
96	25	13	unless ($$self{'_parse_state'})
99	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 '*') { }
122	7	204	unless length $$self{'_buffer'} >= 2
123	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) { }
124	2	6	unless defined(my $line = $self->_read_line)
125	3	3	if $self->_reply_completed($line)
128	1	4	unless defined(my $line = $self->_read_line)
130	3	1	if $self->_reply_completed($err)
133	1	24	unless defined(my $line = $self->_read_line)
134	1	23	unless $line =~ /^-?[0-9]+$/
135	4	19	if $self->_reply_completed(0 + $line)
138	0	35	unless defined(my $len = $self->_read_line)
139	33	2	if ($len >= 0) { }
	2	0	elsif ($len == -1) { }
144	1	1	if $self->_reply_completed(undef)
148	2	33	unless length $$self{'_buffer'} >= 2 + $$self{'_parse_bulk_len'}
151	4	29	if ($$self{'utf8'})
159	10	22	if $self->_reply_completed($bulk)
162	0	26	unless defined(my $len = $self->_read_line)
163	21	5	if ($len > 0) { }
	5	0	elsif ($len == 0 or $len == -1) { }
170	2	3	$len ? :
	2	3	if $self->_reply_completed($len ? undef : [])
178	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 '*') { }
208	95	4	if ($pos >= 0)
223	49	20	if (--$$self{'_parse_mblk_len'}) { }
	10	10	elsif (--$$self{'_parse_mblk_level'}) { }
243	59	13	if ($$self{'_parse_mblk_level'})
244	49	10	if $self->_mblk_item($reply)