Branch Coverage

blib/lib/WebService/MODIS.pm
Criterion Covered Total %
branch 20 184 10.8


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/