| line |
true |
false |
branch |
|
30
|
1 |
2 |
$swap ? : |
|
|
3 |
108 |
unless defined $b->volume |
|
32
|
96 |
12 |
$a->volume->filename eq $b->volume->filename || $a->volume->_file_tag eq $b->volume->_file_tag ? : |
|
38
|
1 |
107 |
$swap ? : |
|
82
|
32 |
4 |
if defined $self->{'compression'} |
|
89
|
16 |
20 |
if defined $self->{'sl_full_size'} |
|
92
|
32 |
4 |
defined $self->{'compression'} ? : |
|
101
|
1 |
2 |
if (not defined $self->{'compression'}) { } |
|
|
1 |
1 |
elsif ($self->{'compression'} eq 'IO::Uncompress::Gunzip') { } |
|
118
|
4 |
570 |
if (ref $offset) { } |
|
123
|
0 |
570 |
unless seek $handle, $offset, 0 |
|
129
|
0 |
574 |
unless defined read($handle, $magic, 6) |
|
130
|
22 |
552 |
if $magic eq '' |
|
132
|
470 |
82 |
if ($magic eq 'WARC/1') { } |
|
|
80 |
2 |
elsif (unpack('H4', $magic) eq '1f8b') { } |
|
138
|
35 |
45 |
if (unpack('x3C', $magic) & 4) |
|
139
|
0 |
35 |
unless defined read($handle, $magic, 6, 6) |
|
141
|
0 |
35 |
unless defined read($handle, $extra, $xlen) |
|
146
|
20 |
10 |
if ($extra[$i] eq 'sl' and length $extra[1 + $i] == 8) |
|
151
|
0 |
80 |
unless $handle = 'IO::Uncompress::Gunzip'->new($handle, 'Prime', $magic, 'MultiStream', 0, 'AutoClose', 1, 'Transparent', 0) |
|
166
|
0 |
550 |
unless $protocol =~ /^WARC/ |
|
193
|
0 |
93 |
if (defined $self->{'logical'}) { } |
|
|
0 |
93 |
elsif (defined $segment_header_value) { } |
|
209
|
12 |
298 |
if ($self->{'sl_packed_size'}) { } |
|
|
274 |
24 |
elsif (not defined $self->{'compression'}) { } |
|
213
|
0 |
12 |
unless seek $handle, $self->offset + $self->{'sl_packed_size'} - 4, 0 |
|
215
|
0 |
12 |
unless defined read($handle, $isize, 4) |
|
217
|
4 |
8 |
if (length $isize > 0 and $self->{'sl_full_size'} == unpack('V', $isize)) { } |
|
233
|
0 |
32 |
unless seek $handle, $self->offset, 0 |
|
236
|
0 |
32 |
unless my $zhandle = $self->{'compression'}->new($handle, 'MultiStream', 0, 'AutoClose', 0) |
|
238
|
0 |
32 |
unless seek $zhandle, $self->{'data_offset'} + $self->field('Content-Length'), 0 |
|
240
|
0 |
32 |
unless defined read($zhandle, $end, 4) |
|
242
|
0 |
32 |
unless $end eq "\r\n\r\n" |