| line |
true |
false |
branch |
|
31
|
0 |
0 |
if (my $tuple = 'Net::Netrc'->lookup($uri->host)) { } |
|
77
|
0 |
0 |
if $self->{'product'} ne '' |
|
78
|
0 |
0 |
if $self->{'version'} ne '' |
|
79
|
0 |
0 |
if @{$self->{'dates'};} != 0 |
|
80
|
0 |
0 |
if @{$self->{'h'};} != 0 |
|
81
|
0 |
0 |
if @{$self->{'v'};} != 0 |
|
82
|
0 |
0 |
if $self->{'ifExactDates'} != 0 |
|
83
|
0 |
0 |
if $self->{'ifExactHV'} != 0 |
|
128
|
0 |
0 |
if $arg |
|
129
|
0 |
0 |
unless -d $cacheDir |
|
131
|
0 |
0 |
if (-s "$cacheDir/$modisProductsFile") { } |
|
133
|
0 |
0 |
if (-s "$cacheDir/$modisDatesFile") { } |
|
135
|
0 |
0 |
if (-s "$cacheDir/$modisGlobalFile") { } |
|
155
|
0 |
0 |
if $arg |
|
157
|
0 |
0 |
if $cacheState eq '' |
|
158
|
0 |
0 |
if $cacheState eq 'file' |
|
160
|
0 |
0 |
unless (-d $cacheDir) |
|
161
|
0 |
0 |
unless make_path($cacheDir) |
|
166
|
0 |
0 |
unless open $fhd, '>', "$cacheDir/$modisProductsFile" |
|
171
|
0 |
0 |
unless close $fhd |
|
173
|
0 |
0 |
unless open $fhd, '>', "$cacheDir/$modisDatesFile" |
|
178
|
0 |
0 |
unless close $fhd |
|
180
|
0 |
0 |
unless open $fhd, '>', "$cacheDir/$modisGlobalFile" |
|
199
|
0 |
0 |
unless /$product/ |
|
211
|
0 |
0 |
unless &any(sub {
/$product/;
}
, keys %modisProducts) |
|
216
|
0 |
0 |
if $teststr =~ /h[0-9]{2}v[0-9]{2}/ |
|
227
|
0 |
0 |
if (@_) |
|
228
|
0 |
0 |
if ($cacheState eq '') { } |
|
232
|
0 |
0 |
if &any(sub {
/$_[0]\.[0-9]{3}/;
}
, keys %modisProducts) |
|
233
|
0 |
0 |
if $failed |
|
245
|
0 |
0 |
if (@_) |
|
247
|
0 |
0 |
if ($self->{'product'} eq '') { } |
|
251
|
0 |
0 |
if (&none(sub {
/$self->{'version'}/;
}
, @vers)) |
|
264
|
0 |
0 |
if (@_) |
|
266
|
0 |
0 |
if ($self->{'product'} eq '') { } |
|
280
|
0 |
0 |
if (@_) |
|
282
|
0 |
0 |
unless $_ < 0 |
|
|
0 |
0 |
if (&any(sub {
$_ > 35 unless $_ < 0;
}
, @$refH)) |
|
294
|
0 |
0 |
if (@_) |
|
296
|
0 |
0 |
unless $_ < 0 |
|
|
0 |
0 |
if (&any(sub {
$_ > 17 unless $_ < 0;
}
, @$refV)) |
|
308
|
0 |
0 |
if (@_) |
|
310
|
0 |
0 |
if $nDates == 0 |
|
320
|
0 |
0 |
if (@_) |
|
324
|
0 |
0 |
if $nH == 0 or $nV == 0 |
|
329
|
0 |
0 |
if ($self->{'ifExactHV'}) |
|
332
|
0 |
0 |
if $nH == 0 or $nV == 0 |
|
333
|
0 |
0 |
if $nH != $nV |
|
352
|
0 |
0 |
unless &any(sub {
/$product/;
}
, keys %modisProducts) |
|
358
|
0 |
0 |
if ($version ne '') { } |
|
359
|
0 |
0 |
if (&any(sub {
/$version/;
}
, @availVersions)) { } |
|
367
|
0 |
0 |
if int $_ > int $version |
|
374
|
0 |
0 |
if ($self->{'ifExactDates'}) { } |
|
379
|
0 |
0 |
if &none(sub {
/$_/;
}
, @{$modisDates{$product};}) |
|
380
|
0 |
0 |
if ($failed) |
|
402
|
0 |
0 |
if $modisDate - &min(@newDates) < 0 |
|
403
|
0 |
0 |
if $modisDate - &max(@newDates) > 0 |
|
410
|
0 |
0 |
unless ($modisGlobal{$product}) |
|
413
|
0 |
0 |
if ($self->{'ifExactHV'}) { } |
|
416
|
0 |
0 |
if ($nH != $nV) |
|
417
|
0 |
0 |
if $nH != $nV |
|
438
|
0 |
0 |
if (not $modisGlobal{$product}) { } |
|
444
|
0 |
0 |
if (/$pat/) |
|
449
|
0 |
0 |
if ($nNewUrl == 1) { } |
|
|
0 |
0 |
elsif ($nNewUrl < 1) { } |
|
464
|
0 |
0 |
if (int $_ > $createDate) |
|
474
|
0 |
0 |
if ($nUrl == 1) { } |
|
|
0 |
0 |
elsif ($nUrl < 1) { } |
|
489
|
0 |
0 |
if (int $_ > $createDate) |
|
507
|
0 |
0 |
if $arg |
|
509
|
0 |
0 |
if $arg |
|
513
|
0 |
0 |
if $nUrl == 0 |
|
516
|
0 |
0 |
unless (-d $self->{'targetDir'}) |
|
517
|
0 |
0 |
unless make_path($self->targetDir) |
|
525
|
0 |
0 |
if $self->{'forceReload'} and -f $file |
|
526
|
0 |
0 |
unless open my $fh, '>>:raw', $file |
|
529
|
0 |
0 |
if ($bytes and not $self->{'forceReload'}) { } |
|
546
|
0 |
0 |
if ($status =~ /^(200|206|416)/) { } |
|
563
|
0 |
0 |
if $caller ne 'WebService::MODIS' |
|
570
|
0 |
0 |
unless ($response->is_success) |
|
577
|
0 |
0 |
unless /href="M/ |
|
581
|
0 |
0 |
if exists $lookupTable{$_} |
|
582
|
0 |
0 |
if defined $lookupTable{$_} |
|
583
|
0 |
0 |
if $lookupTable{$_} |
|
596
|
0 |
0 |
if $caller ne 'WebService::MODIS' |
|
605
|
0 |
0 |
unless ($response->is_success) |
|
612
|
0 |
0 |
unless /href="20[0-9]{2}\.[0-9]{2}\.[0-9]{2}/ |
|
626
|
0 |
0 |
if $caller ne 'WebService::MODIS' |
|
637
|
0 |
0 |
unless ($response->is_success) |
|
644
|
0 |
0 |
unless /href="M/ |
|
645
|
0 |
0 |
if /hdf.xml/ |