Branch Coverage

blib/lib/Astro/FITS/HdrTrans/UFTI.pm
Criterion Covered Total %
branch 27 68 39.7


line true false branch
110 1 0 if (defined $FITS_headers->{'CDELT2'}) { }
116 0 0 if (defined $date)
117 0 0 if ($date < 19990701) { }
0 0 elsif ($date < 20010401) { }
0 0 elsif ($date < 20011115) { }
134 0 1 if (defined $FITS_headers->{'CTYPE2'} and $FITS_headers->{'CTYPE2'} eq "DEC--TAN" and abs $scale < "0.001")
154 0 2 unless (exists $FITS_headers->{'DHSVER'})
169 0 1 if (exists $FITS_headers->{'FILTER'} and $FITS_headers->{'FILTER'} =~ /pol/i) { }
197 1 0 if (exists $FITS_headers->{'RABASE'})
201 0 1 if (defined $format and $format eq 'HDS' and defined $date and $date > 20000507 and $date < 20000720) { }
231 1 0 if (defined $generic_headers->{'RA_BASE'})
234 0 1 if (defined $generic_headers->{'FILE_FORMAT'} and $generic_headers->{'FILE_FORMAT'} eq 'HDS' and defined $date and $date > 20000507 and $date < 20000720) { }
269 1 0 if (defined $FITS_headers->{'CDELT1'}) { }
275 0 0 if (defined $date)
276 0 0 if ($date < 19990701) { }
0 0 elsif ($date < 20010401) { }
0 0 elsif ($date < 20011115) { }
293 1 0 if ($scale > 0)
300 0 1 if (defined $FITS_headers->{'CTYPE1'} and $FITS_headers->{'CTYPE1'} eq "RA---TAN" and abs $scale < "0.001")
325 1 0 if (defined $generic_headers->{'RA_SCALE'})
343 5 1 if (exists $FITS_headers->{'DATE'})
350 0 5 if (ref $utdate eq "ARRAY")
372 1 0 if (exists $generic_headers->{'UTDATE'})
375 0 1 unless defined $date
393 1 0 exists $FITS_headers->{'DATE-END'} ? :
396 0 1 if (defined $dateend and not $dateend =~ /\d/)
418 2 0 exists $FITS_headers->{'DATE-OBS'} ? :
421 0 2 if (defined $dateobs and not $dateobs =~ /\d/)
447 1 0 if (exists $FITS_headers->{'RDOUT_X1'} and exists $FITS_headers->{'RDOUT_X2'}) { }
456 1 0 if ($xdim == 1024) { }
463 0 1 if ($FITS_headers->{'FILTER'} =~ /pol/)
499 1 0 if (exists $FITS_headers->{'RDOUT_Y1'} and exists $FITS_headers->{'RDOUT_Y2'}) { }
508 1 0 if ($ydim == 1024) { }
515 0 1 if ($FITS_headers->{'FILTER'} =~ /pol/)