| line |
true |
false |
branch |
|
118
|
0 |
1 |
unless defined $arg->{'BasePath'} |
|
122
|
0 |
1 |
unless (-d $basepath) |
|
124
|
0 |
0 |
if ($@) |
|
142
|
1 |
0 |
unless ($initialized++) |
|
180
|
2 |
0 |
if scalar keys %args == 0 |
|
194
|
3 |
0 |
if ($r->method eq 'GET' and not defined $r->header('If-Modified-Since') and not defined $content_cb) { } |
|
197
|
0 |
3 |
if $verbose |
|
202
|
0 |
3 |
if defined $r->header('Range') |
|
210
|
2 |
1 |
if (-s $filename) |
|
211
|
0 |
2 |
unless $fh = 'IO::File'->new("< $filename") |
|
216
|
2 |
0 |
if ($meta->{'Url'} eq $url) { } |
|
218
|
2 |
0 |
unless defined $meta->{'Range'} |
|
222
|
2 |
0 |
if (not defined $r->header('Range') or $r->header('Range') eq $meta->{'Range'}) |
|
225
|
2 |
0 |
if exists $meta->{'Last-Modified'} |
|
228
|
2 |
0 |
if exists $meta->{'ETag'} |
|
236
|
1 |
2 |
if (defined $meta->{'X-HCT-LastUpdated'} and $noupdate > time - $meta->{'X-HCT-LastUpdated'}) |
|
238
|
0 |
1 |
if $verbose |
|
244
|
1 |
0 |
if defined $fh |
|
255
|
1 |
1 |
if ($res->code == 304) { } |
|
|
0 |
1 |
elsif (defined $meta->{'X-HCT-LastUpdated'} and not &{$approvecontent;}($res)) { } |
|
256
|
0 |
1 |
if $verbose |
|
261
|
1 |
0 |
if defined $fh |
|
270
|
0 |
0 |
if $verbose |
|
275
|
0 |
0 |
if defined $fh |
|
283
|
0 |
1 |
if defined $fh |
|
287
|
0 |
1 |
unless defined $content |
|
289
|
0 |
1 |
if (defined $meta->{'MD5'} and md5_hex($content) eq $meta->{'MD5'}) |
|
292
|
0 |
0 |
if $verbose |
|
296
|
0 |
1 |
if $verbose |
|
299
|
1 |
0 |
if $res->code == 200 or $res->code == 206 |
|
324
|
0 |
2 |
unless defined $content |
|
331
|
2 |
0 |
if ($HTTP::Message::VERSION >= 1.44) { } |
|
340
|
2 |
0 |
if (defined $meta->{'Code'}) { } |
|
350
|
6 |
4 |
if defined $meta->{$h} |
|
367
|
16 |
2 |
if defined $value |
|
389
|
0 |
2 |
unless my $fh = 'IO::File'->new("> $out_filename") |
|
394
|
2 |
0 |
if defined $res->header('ETag') |
|
398
|
0 |
2 |
unless defined $content |
|
401
|
0 |
2 |
if defined $req->header('Range') |
|
407
|
6 |
4 |
if defined $res->header($h) |
|
416
|
0 |
2 |
unless move($out_filename, $filename) |
|
426
|
1 |
1 |
if (defined $basepath and -d $basepath) |
|
432
|
0 |
1 |
if (not $file =~ /^[0-9a-f]{32}$/) { } |
|
439
|
0 |
1 |
if (defined $age and $age * 24 > $maxage) |
|
440
|
0 |
0 |
if $verbose |