| line |
true |
false |
branch |
|
50
|
2 |
112202 |
if $self->writing |
|
52
|
6 |
112196 |
unless defined $bits and $bits > 0 and $bits <= $self->maxbits |
|
58
|
158 |
112038 |
if $pos >= $len |
|
59
|
7 |
112031 |
if not $peek and $pos + $bits > $len |
|
66
|
86644 |
25387 |
if ($bpos <= 32 - $bits) { } |
|
72
|
37407 |
25387 |
$bpos + $bits_left > 32 ? : |
|
86
|
94488 |
17543 |
unless $peek |
|
91
|
1 |
54116 |
unless $self->writing |
|
93
|
2 |
54114 |
unless defined $bits and $bits > 0 |
|
95
|
0 |
54114 |
unless defined $val and $val >= 0 |
|
100
|
5642 |
48472 |
if ($val == 0) |
|
105
|
1749 |
46723 |
if ($val == 1) |
|
107
|
1 |
48471 |
if $bits > $self->maxbits |
|
114
|
31070 |
17401 |
if ($bpos <= $wlen) { } |
|
118
|
24835 |
17401 |
$bpos + $bits > 32 ? : |
|
140
|
0 |
5874 |
unless $self->writing |
|
146
|
2 |
6474 |
unless defined $val and $val >= 0 |
|
163
|
0 |
40076 |
if $self->writing |
|
165
|
40063 |
13 |
if (not defined $count) { } |
|
|
9 |
4 |
elsif ($count < 0) { } |
|
|
2 |
2 |
elsif ($count == 0) { } |
|
175
|
179 |
40523 |
if $pos >= $len |
|
182
|
22521 |
18002 |
if ($v & 4026531840) |
|
183
|
4732 |
2860 |
$v & 536870912 ? : |
|
|
6646 |
7592 |
$v & 1073741824 ? : |
|
|
8283 |
14238 |
$v & 2147483648 ? : |
|
190
|
6853 |
11149 |
if ($v == 0) |
|
194
|
1526 |
5327 |
if ($v == 0) |
|
213
|
30 |
17972 |
if $onepos >= $len |
|
214
|
0 |
17972 |
if $v == 0 |
|
216
|
1845 |
16127 |
if (($v & 4294901760) == 0) |
|
217
|
6584 |
11388 |
if (($v & 4278190080) == 0) |
|
218
|
9175 |
8797 |
if (($v & 4026531840) == 0) |
|
219
|
5750 |
12222 |
if (($v & 3221225472) == 0) |
|
220
|
8819 |
9153 |
if (($v & 2147483648) == 0) |
|
225
|
10 |
40034 |
wantarray ? : |
|
231
|
1 |
13477 |
unless $self->writing |
|
238
|
2 |
17481 |
unless defined $val and $val >= 0 |
|
243
|
2296 |
15185 |
if ($val == 0) { } |
|
|
2 |
15183 |
elsif ($val == $maxval) { } |
|
257
|
11221 |
3962 |
if ($val < 511) { } |
|
258
|
1068 |
1616 |
$val < 255 ? : |
|
|
878 |
2684 |
$val < 127 ? : |
|
|
1030 |
3562 |
$val < 63 ? : |
|
|
1277 |
4592 |
$val < 31 ? : |
|
|
1169 |
5869 |
$val < 15 ? : |
|
|
2205 |
7038 |
$val < 7 ? : |
|
|
1978 |
9243 |
$val < 3 ? : |
|
|
0 |
11221 |
$val < 1 ? : |
|
273
|
9643 |
5540 |
if ($bpos <= 32 - $bits) |
|
301
|
3570 |
5540 |
$bpos + $bits > 32 ? : |
|
327
|
1 |
2456 |
unless $self->writing |
|
333
|
0 |
2456 |
unless defined $str |
|
334
|
0 |
2456 |
if $str =~ tr[01][\000-/2-\377]c |
|
336
|
0 |
2456 |
unless $bits > 0 |
|
342
|
241 |
2215 |
$bpos == 0 ? : |
|
343
|
2215 |
241 |
if ($bpos > 0) { } |
|
351
|
75 |
166 |
if $wpos > 0 |
|
354
|
2006 |
450 |
if ($bits_to_write > 0) |
|
372
|
0 |
2874 |
if $strlen > $len |
|
373
|
7 |
2867 |
if ($strlen < $len) |
|
381
|
0 |
2867 |
if $str =~ tr[01][\000-/2-\377]c |