| line |
true |
false |
branch |
|
41
|
1 |
4 |
unless defined $fn_in |
|
43
|
0 |
3 |
unless tie *$fh, $class, $fn_in |
|
63
|
1 |
13 |
unless $self->{'fn_in'} = $fn_in |
|
67
|
2 |
11 |
unless open my $fh, "<:raw", $fn_in |
|
84
|
6 |
5 |
if (-e "$fn_in.gzi") { } |
|
113
|
24 |
76 |
if defined $block_offset and $block_offset == $self->{'block_offset'} |
|
116
|
32 |
44 |
unless (defined $block_offset) |
|
123
|
0 |
76 |
if $self->{'block_offset'} > $self->{'file_size'} |
|
124
|
14 |
62 |
if ($self->{'block_offset'} == $self->{'file_size'}) |
|
162
|
1 |
98 |
if $magic ne "\37\213\b\4" |
|
171
|
98 |
0 |
if ($field_id eq "BC") |
|
172
|
0 |
98 |
if $field_len != 2 |
|
173
|
0 |
98 |
if defined $block_size |
|
180
|
0 |
98 |
if $l != $len_extra |
|
181
|
0 |
98 |
unless defined $block_size |
|
186
|
62 |
36 |
if ($do_unpack) { } |
|
191
|
0 |
62 |
if $status != Z_OK() |
|
193
|
0 |
62 |
if $status != Z_STREAM_END() |
|
197
|
0 |
62 |
if $crc_given != crc32($content) |
|
204
|
0 |
97 |
if defined $content and $size_given != length $content |
|
207
|
62 |
35 |
if defined $content |
|
227
|
0 |
6 |
if $r < $bytes and $self->{'buffer_len'} > -1 |
|
229
|
0 |
6 |
if $r < 1 |
|
254
|
12 |
33 |
if (defined $offset and $offset != 0) |
|
256
|
1 |
11 |
if $offset > length $$buf |
|
269
|
19 |
45 |
if ($self->{'buffer_offset'} + $remaining <= $self->{'buffer_len'}) { } |
|
273
|
0 |
19 |
if $self->{'buffer_offset'} == $self->{'buffer_len'} |
|
276
|
26 |
19 |
if $self->{'buffer_len'} < 0 |
|
307
|
23 |
1036 |
if $self->{'buffer_len'} < 0 |
|
313
|
1032 |
4 |
if ($self->{'buffer'} =~ m[$/]g) |
|
321
|
0 |
1032 |
if $pos == $self->{'buffer_len'} |
|
335
|
1034 |
21 |
length $data > 0 ? : |
|
355
|
0 |
6 |
unless defined $fn_out |
|
357
|
0 |
6 |
unless defined $self->{'idx'} |
|
393
|
0 |
6 |
unless defined $fn_in |
|
397
|
0 |
6 |
unless open my $fh_in, "<:raw", $fn_in |
|
398
|
0 |
6 |
unless read $fh_in, my $n_offsets, 8 |
|
403
|
0 |
26 |
unless read $fh_in, my $buff, 16 |
|
426
|
0 |
4 |
if $u > 0 |
|
434
|
0 |
6 |
if $c_size != $self->{'file_size'} |
|
471
|
24 |
1 |
if $uncompressed_size > 0 |
|
518
|
6 |
84 |
if $whence == 1 |
|
519
|
21 |
69 |
if $whence == 2 |
|
521
|
10 |
80 |
if $pos < 0 |
|
522
|
18 |
62 |
if ($pos >= $self->{'u_file_size'}) |
|
538
|
2 |
62 |
if ($pos < $self->{'idx'}[$idx][1]) |
|
542
|
0 |
62 |
if ($idx + 1 < $s and $pos >= $self->{'idx'}[$idx + 1][1]) |
|
585
|
6 |
6 |
unless defined $self->{'ridx'}{$block_o} |
|
610
|
1 |
516 |
if $r != $len |