line |
true |
false |
branch |
28
|
1 |
2 |
$swap ? : |
|
3 |
131 |
unless defined $b->volume |
30
|
119 |
12 |
$a->volume->filename eq $b->volume->filename || $a->volume->_file_tag eq $b->volume->_file_tag ? : |
36
|
1 |
130 |
$swap ? : |
93
|
32 |
4 |
if defined $self->{'compression'} |
100
|
16 |
20 |
if defined $self->{'sl_full_size'} |
103
|
32 |
4 |
defined $self->{'compression'} ? : |
112
|
1 |
2 |
if (not defined $self->{'compression'}) { } |
|
1 |
1 |
elsif ($self->{'compression'} eq 'IO::Uncompress::Gunzip') { } |
126
|
1 |
1 |
if @_ |
136
|
1 |
669 |
unless defined $class |
138
|
1 |
668 |
unless defined $volume |
140
|
1 |
667 |
unless defined $offset |
144
|
4 |
663 |
if (ref $offset) { } |
149
|
0 |
663 |
unless seek $handle, $offset, 0 |
155
|
0 |
667 |
unless defined read($handle, $magic, 6) |
156
|
29 |
638 |
if $magic eq '' |
158
|
546 |
92 |
if ($magic eq 'WARC/1') { } |
|
90 |
2 |
elsif (unpack('H4', $magic) eq '1f8b') { } |
164
|
35 |
55 |
if (unpack('x3C', $magic) & 4) |
165
|
0 |
35 |
unless defined read($handle, $magic, 6, 6) |
167
|
0 |
35 |
unless defined read($handle, $extra, $xlen) |
172
|
20 |
10 |
if ($extra[$i] eq 'sl' and length $extra[1 + $i] == 8) |
177
|
0 |
90 |
unless $handle = 'IO::Uncompress::Gunzip'->new($handle, 'Prime', $magic, 'MultiStream', 0, 'AutoClose', 1, 'Transparent', 0) |
192
|
0 |
636 |
unless $protocol =~ /^WARC/ |
219
|
0 |
174 |
if (defined $self->{'logical'}) { } |
|
0 |
174 |
elsif (defined $segment_header_value) { } |
228
|
36 |
36 |
if (wantarray) { } |
235
|
12 |
368 |
if ($self->{'sl_packed_size'}) { } |
|
336 |
32 |
elsif (not defined $self->{'compression'}) { } |
239
|
0 |
12 |
unless seek $handle, $self->offset + $self->{'sl_packed_size'} - 4, 0 |
241
|
0 |
12 |
unless defined read($handle, $isize, 4) |
243
|
4 |
8 |
if (length $isize > 0 and $self->{'sl_full_size'} == unpack('V', $isize)) { } |
259
|
0 |
40 |
unless seek $handle, $self->offset, 0 |
262
|
0 |
40 |
unless my $zhandle = $self->{'compression'}->new($handle, 'MultiStream', 0, 'AutoClose', 0) |
264
|
0 |
40 |
unless seek $zhandle, $self->{'data_offset'} + $self->field('Content-Length'), 0 |
266
|
0 |
40 |
unless defined read($zhandle, $end, 4) |
268
|
0 |
40 |
unless $end eq "\r\n\r\n" |
308
|
0 |
8 |
unless $replay |