line |
true |
false |
branch |
60
|
0 |
0 |
if $$self{'product'} ne '' |
61
|
0 |
0 |
if $$self{'version'} ne '' |
62
|
0 |
0 |
if @{$$self{'dates'};} != 0 |
63
|
0 |
0 |
if @{$$self{'h'};} != 0 |
64
|
0 |
0 |
if @{$$self{'v'};} != 0 |
65
|
0 |
0 |
if $$self{'ifExactDates'} != 0 |
66
|
0 |
0 |
if $$self{'ifExactHV'} != 0 |
111
|
0 |
0 |
if $arg |
112
|
0 |
0 |
unless -d $cacheDir |
114
|
0 |
0 |
if (-s "$cacheDir/$modisProductsFile") { } |
116
|
0 |
0 |
if (-s "$cacheDir/$modisDatesFile") { } |
118
|
0 |
0 |
if (-s "$cacheDir/$modisGlobalFile") { } |
138
|
0 |
0 |
if $arg |
140
|
0 |
0 |
if $cacheState eq '' |
141
|
0 |
0 |
if $cacheState eq 'file' |
143
|
0 |
0 |
unless (-d $cacheDir) |
144
|
0 |
0 |
unless make_path($cacheDir) |
149
|
0 |
0 |
unless open $fhd, '>', "$cacheDir/$modisProductsFile" |
154
|
0 |
0 |
unless close $fhd |
156
|
0 |
0 |
unless open $fhd, '>', "$cacheDir/$modisDatesFile" |
161
|
0 |
0 |
unless close $fhd |
163
|
0 |
0 |
unless open $fhd, '>', "$cacheDir/$modisGlobalFile" |
182
|
0 |
0 |
unless /$product/ |
194
|
0 |
99 |
unless any sub {
/$product/;
}
, keys %modisProducts |
199
|
62 |
37 |
if $teststr =~ /h[0-9]{2}v[0-9]{2}/ |
210
|
0 |
0 |
if (@_) |
211
|
0 |
0 |
if ($cacheState eq '') { } |
215
|
0 |
0 |
if any sub {
/$_[0]\.[0-9]{3}/;
}
, keys %modisProducts |
216
|
0 |
0 |
if $failed |
228
|
0 |
0 |
if (@_) |
230
|
0 |
0 |
if ($$self{'product'} eq '') { } |
234
|
0 |
0 |
if (none sub {
/$$self{'version'}/;
}
, @vers) |
247
|
0 |
0 |
if (@_) |
249
|
0 |
0 |
if ($$self{'product'} eq '') { } |
263
|
0 |
0 |
if (@_) |
265
|
0 |
0 |
unless $_ < 0 |
|
0 |
0 |
if (any sub {
$_ > 35 unless $_ < 0;
}
, @$refH) |
277
|
0 |
0 |
if (@_) |
279
|
0 |
0 |
unless $_ < 0 |
|
0 |
0 |
if (any sub {
$_ > 17 unless $_ < 0;
}
, @$refV) |
291
|
0 |
0 |
if (@_) |
293
|
0 |
0 |
if $nDates == 0 |
303
|
0 |
0 |
if (@_) |
307
|
0 |
0 |
if $nH == 0 or $nV == 0 |
312
|
0 |
0 |
if ($$self{'ifExactHV'}) |
315
|
0 |
0 |
if $nH == 0 or $nV == 0 |
316
|
0 |
0 |
if $nH != $nV |
335
|
0 |
0 |
unless any sub {
/$product/;
}
, keys %modisProducts |
341
|
0 |
0 |
if ($version ne '') { } |
342
|
0 |
0 |
if (any sub {
/$version/;
}
, @availVersions) { } |
350
|
0 |
0 |
if int $_ > int $version |
357
|
0 |
0 |
if ($$self{'ifExactDates'}) { } |
362
|
0 |
0 |
if none sub {
/$_/;
}
, @{$modisDates{$product};} |
363
|
0 |
0 |
if ($failed) |
385
|
0 |
0 |
if $modisDate - min(@newDates) < 0 |
386
|
0 |
0 |
if $modisDate - max(@newDates) > 0 |
393
|
0 |
0 |
unless ($modisGlobal{$product}) |
396
|
0 |
0 |
if ($$self{'ifExactHV'}) { } |
399
|
0 |
0 |
if ($nH != $nV) |
400
|
0 |
0 |
if $nH != $nV |
421
|
0 |
0 |
if (not $modisGlobal{$product}) { } |
427
|
0 |
0 |
if (/$pat/) |
432
|
0 |
0 |
if ($nNewUrl == 1) { } |
|
0 |
0 |
elsif ($nNewUrl < 1) { } |
447
|
0 |
0 |
if (int $_ > $createDate) |
457
|
0 |
0 |
if ($nUrl == 1) { } |
|
0 |
0 |
elsif ($nUrl < 1) { } |
472
|
0 |
0 |
if (int $_ > $createDate) |
490
|
0 |
0 |
if $arg |
492
|
0 |
0 |
if $arg |
496
|
0 |
0 |
if $nUrl == 0 |
499
|
0 |
0 |
unless (-d $$self{'targetDir'}) |
501
|
0 |
0 |
if make_path($self->targetDir) |
502
|
0 |
0 |
if ($failed) |
512
|
0 |
0 |
if $$self{'forceReload'} and -f $file |
514
|
0 |
0 |
if open my $fh, '>>:raw', $file |
515
|
0 |
0 |
if ($failed) |
520
|
0 |
0 |
if ($bytes and not $$self{'forceReload'}) { } |
537
|
0 |
0 |
if ($status =~ /^(200|206|416)/) { } |
554
|
0 |
1 |
if $caller ne 'WebService::MODIS' |
561
|
0 |
3 |
unless ($response->is_success) |
568
|
63 |
99 |
unless /href="M/ |
572
|
0 |
99 |
if exists $lookupTable{$_} |
573
|
0 |
99 |
if defined $lookupTable{$_} |
574
|
0 |
99 |
if $lookupTable{$_} |
587
|
0 |
1 |
if $caller ne 'WebService::MODIS' |
596
|
0 |
99 |
unless ($response->is_success) |
603
|
2079 |
149268 |
unless /href="20[0-9]{2}\.[0-9]{2}\.[0-9]{2}/ |
617
|
0 |
99 |
if $caller ne 'WebService::MODIS' |
628
|
0 |
99 |
unless ($response->is_success) |
635
|
30643 |
40302 |
unless /href="M/ |
636
|
20151 |
20151 |
if /hdf.xml/ |