Branch Coverage

blib/lib/WebService/MODIS.pm
Criterion Covered Total %
branch 0 184 0.0


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 0 unless &any(sub { /$product/; } , keys %modisProducts)
199 0 0 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 0 if $caller ne 'WebService::MODIS'
561 0 0 unless ($response->is_success)
568 0 0 unless /href="M/
572 0 0 if exists $lookupTable{$_}
573 0 0 if defined $lookupTable{$_}
574 0 0 if $lookupTable{$_}
587 0 0 if $caller ne 'WebService::MODIS'
596 0 0 unless ($response->is_success)
603 0 0 unless /href="20[0-9]{2}\.[0-9]{2}\.[0-9]{2}/
617 0 0 if $caller ne 'WebService::MODIS'
628 0 0 unless ($response->is_success)
635 0 0 unless /href="M/
636 0 0 if /hdf.xml/