Branch Coverage

blib/lib/Data/BitStream/String.pm

Criterion	Covered	Total	%
branch	86	122	70.4

line	true	false	branch
48	0	80401	if $self->writing
50	0	80401	unless defined $bits and $bits > 0 and $bits <= $self->maxbits
56	97	80304	if $pos >= $len
57	0	80304	if not $peek and $pos + $bits > $len
63	268	80036	if $strlen < $bits
73	75255	5049	unless $peek
78	0	40890	unless $self->writing
80	0	40890	unless defined $bits and $bits > 0
82	0	40890	unless defined $val and $val >= 0
86	5594	35296	if ($val == 0) { }
	1711	33585	elsif ($val == 1) { }
89	1186	525	if $bits > 1
93	0	33585	if $bits > $self->maxbits
105	2437	31148	if ($bits > 32) { }
121	0	5861	unless $self->writing
127	0	6463	unless defined $val and $val >= 0
137	0	20356	if $self->writing
139	20343	13	if (not defined $count) { }
	9	4	elsif ($count < 0) { }
	2	2	elsif ($count == 0) { }
149	68	20914	if $pos >= $len
151	0	20914	if $onepos == -1
157	10	20344	wantarray ? :
162	0	4823	unless $self->writing
168	0	5408	unless defined $val and $val >= 0
178	0	4879	if $self->writing
180	4871	8	if (not defined $count) { }
	8	0	elsif ($count < 0) { }
	0	0	elsif ($count == 0) { }
190	39	5433	if $pos >= $len
192	0	5433	if $onepos == -1
198	7	4872	wantarray ? :
203	0	12958	unless $self->writing
210	0	19953	unless defined $val and $val >= 0
212	2299	17654	if ($val == 0) { }
	1040	16614	elsif ($val == 1) { }
	940	15674	elsif ($val == 2) { }
	2	15672	elsif ($val == $maxval) { }
220	626	15046	if ($base > 32) { }
237	0	13173	if $self->writing
239	11477	1696	if (not defined $count) { }
	11	1685	elsif ($count < 0) { }
	0	1685	elsif ($count == 0) { }
250	96	18730	if $pos >= $len
252	0	18730	if $onepos == -1
255	2441	16289	if ($base == 0) { }
	2	16287	elsif ($base == $maxbits) { }
	0	16287	elsif ($base > $maxbits) { }
259	0	16287	if $pos + $base > $len
268	1696	11477	wantarray ? :
273	0	2415	unless $self->writing
279	0	2415	unless defined $str
280	0	2415	if $str =~ tr[01][\000-/2-\377]c
282	0	2415	unless $bits > 0
292	0	2	if $self->writing
294	0	2	unless defined $bits and $bits >= 0
298	0	2	unless $bits <= $len - $pos
314	0	2867	if $str =~ tr[01][\000-/2-\377]c
331	0	3	unless $self->writing
337	0	3	if $strlen > $bits
338	0	3	if ($strlen < $bits)