| 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) |