Branch Coverage

blib/lib/Astro/FITS/HdrTrans/IRIS2.pm
Criterion Covered Total %
branch 0 70 0.0


line true false branch
137 0 0 if (exists $FITS_headers->{'ZDEND'})
155 0 0 if (exists $generic_headers->{'AIRMASS_END'})
172 0 0 if (exists $FITS_headers->{'ZDSTART'})
190 0 0 if (exists $generic_headers->{'AIRMASS_START'})
207 0 0 if (exists $FITS_headers->{'EQUINOX'})
208 0 0 if ($FITS_headers->{'EQUINOX'} =~ /1950/) { }
0 0 elsif ($FITS_headers->{'EQUINOX'} =~ /2000/) { }
231 0 0 if ($cd11 * $cd22 - $cd12 * $cd21 < 0) { }
250 0 0 if ($FITS_headers->{'IR2_FILT'} =~ /^OPEN$/i) { }
276 0 0 if ($obsmode eq "spectroscopy")
277 0 0 if (uc $filter eq 'K' or uc $filter eq 'KS') { }
0 0 elsif (uc $filter eq 'JS') { }
0 0 elsif (uc $filter eq 'J' or uc $filter eq 'JL') { }
0 0 elsif (uc $filter eq 'H' or uc $filter eq 'HS' or uc $filter eq 'HL') { }
309 0 0 if ($obsmode eq "spectroscopy")
310 0 0 if (uc $filter eq 'K' or uc $filter eq 'KS') { }
0 0 elsif (uc $filter eq 'JS') { }
0 0 elsif (uc $filter eq 'J' or uc $filter eq 'JL') { }
0 0 elsif (uc $filter eq 'H' or uc $filter eq 'HS' or uc $filter eq 'HL') { }
336 0 0 if (exists $FITS_headers->{'IR2_GRSM'}) { }
0 0 elsif (exists $FITS_headers->{'IR2_SLIT'}) { }
337 0 0 $FITS_headers->{'IR2_GRSM'} =~ /^(SAP|SIL)/i ? :
339 0 0 $FITS_headers->{'IR2_SLIT'} eq 'OPEN1' ? :
369 0 0 if (exists $FITS_headers->{'UTDATE'})
388 0 0 if (exists $generic_headers->{'UTDATE'})
390 0 0 unless defined $date
408 0 0 if (exists $FITS_headers->{'UTDATE'} and exists $FITS_headers->{'UTEND'})
428 0 0 if (exists $generic_headers->{'UTEND'})
449 0 0 if (exists $FITS_headers->{'UTDATE'} and exists $FITS_headers->{'UTSTART'})
469 0 0 if (exists $generic_headers->{'UTSTART'})
490 0 0 if (exists $FITS_headers->{'RABASE'})
507 0 0 if (exists $generic_headers->{'X_BASE'})
527 0 0 if (exists $FITS_headers->{'CD1_2'} and exists $FITS_headers->{'CD2_2'})
550 0 0 if (exists $FITS_headers->{'CD1_1'} and exists $FITS_headers->{'CD1_2'} and exists $FITS_headers->{'CD2_1'} and exists $FITS_headers->{'CD2_2'})
559 0 0 if ($cd11 * $cd22 - $cd12 * $cd21 < 0) { }