| line |
true |
false |
branch |
|
114
|
1 |
0 |
if (exists $FITS_headers->{'TELESCOP'} and $FITS_headers->{'TELESCOP'} =~ /UKIRT/ and exists $FITS_headers->{'FILENAME'} and exists $FITS_headers->{'RAJ2000'})
|
|
146
|
0 |
1 |
if (exists $FITS_headers->{'DHSVER'}) { }
|
|
171
|
1 |
0 |
if (exists $FITS_headers->{'EXPOSED'} and defined $FITS_headers->{'EXPOSED'}) { }
|
|
|
0 |
0 |
elsif (exists $FITS_headers->{'DEXPTIME'} and defined $FITS_headers->{'DEXPTIME'}) { }
|
|
|
0 |
0 |
elsif (exists $FITS_headers->{'EXP_TIME'} and defined $FITS_headers->{'EXP_TIME'}) { }
|
|
192
|
1 |
0 |
if (exists $FITS_headers->{'EQUINOX'})
|
|
193
|
0 |
1 |
if ($FITS_headers->{'EQUINOX'} =~ /1950/) { }
|
|
|
1 |
0 |
elsif ($FITS_headers->{'EQUINOX'} =~ /2000/) { }
|
|
210
|
0 |
1 |
if (exists $FITS_headers->{'GRATING'}) { }
|
|
|
1 |
0 |
elsif (exists $FITS_headers->{'GRISM'}) { }
|
|
226
|
0 |
1 |
if (exists $FITS_headers->{'GLAMBDA'}) { }
|
|
|
0 |
1 |
elsif (exists $FITS_headers->{'CENWAVL'}) { }
|
|
245
|
0 |
1 |
if (exists $FITS_headers->{'SANGLE'}) { }
|
|
|
0 |
1 |
elsif (exists $FITS_headers->{'SLIT_PA'}) { }
|
|
265
|
0 |
1 |
if (exists $FITS_headers->{'SLIT'}) { }
|
|
|
1 |
0 |
elsif (exists $FITS_headers->{'SLITNAME'}) { }
|
|
283
|
0 |
1 |
if (exists $FITS_headers->{'SPD_GAIN'}) { }
|
|
|
1 |
0 |
elsif (exists $FITS_headers->{'WAVEFORM'}) { }
|
|
286
|
0 |
1 |
if ($FITS_headers->{'WAVEFORM'} =~ /thermal/i) { }
|
|
313
|
1 |
0 |
if (exists $FITS_headers->{'STANDARD'} and length $FITS_headers->{'STANDARD'} . '' > 0) { }
|
|
|
0 |
0 |
elsif (exists $FITS_headers->{'OBJECT'} and $FITS_headers->{'OBJECT'} =~ /^[bf]s/i or exists $FITS_headers->{'RECIPE'} and $FITS_headers->{'RECIPE'} =~ /^standard/i) { }
|
|
316
|
0 |
1 |
if ($FITS_headers->{'STANDARD'} =~ /^[tf]$/i) { }
|
|
|
1 |
0 |
elsif ($FITS_headers->{'STANDARD'} =~ /^[01]$/) { }
|
|
348
|
1 |
0 |
if (exists $FITS_headers->{'UT_DATE'})
|
|
351
|
0 |
1 |
unless defined $return
|
|
372
|
2 |
0 |
if (exists $FITS_headers->{'DATE_OBS'}) { }
|
|
|
0 |
0 |
elsif (exists $FITS_headers->{'UT_DATE'} and defined $FITS_headers->{'UT_DATE'} and exists $FITS_headers->{'RUTSTART'} and defined $FITS_headers->{'RUTSTART'}) { }
|
|
400
|
0 |
0 |
if (exists $generic_headers->{'UTSTART'})
|
|
425
|
1 |
0 |
if (exists $FITS_headers->{'DATE_END'}) { }
|
|
|
0 |
0 |
elsif (exists $FITS_headers->{'UT_DATE'} and defined $FITS_headers->{'UT_DATE'} and exists $FITS_headers->{'RUTEND'} and defined $FITS_headers->{'RUTEND'}) { }
|
|
453
|
0 |
0 |
if (exists $generic_headers->{'UTEND'})
|
|
476
|
1 |
0 |
if (exists $FITS_headers->{'RABASE'})
|
|
493
|
0 |
0 |
if (exists $generic_headers->{'X_BASE'})
|
|
510
|
1 |
0 |
if (exists $FITS_headers->{'RABASE'})
|
|
527
|
0 |
0 |
if (exists $generic_headers->{'RA_BASE'})
|
|
549
|
1 |
0 |
if (defined $FITS_headers->{'DATE_OBS'})
|
|
552
|
1 |
0 |
if (defined $FITS_headers->{'DATE_END'})
|
|
578
|
0 |
1 |
if UNIVERSAL::isa($date, 'Time::Piece')
|
|
590
|
0 |
1 |
if ($date =~ /\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d/) { }
|
|
|
0 |
1 |
elsif ($date =~ /\d\d\d\d-\d\d-\d\d/) { }
|
|
|
0 |
1 |
elsif ($date =~ /^\d\d\d\d\d\d\d\d\b/) { }
|
|
601
|
0 |
0 |
if ($date =~ /T/)
|
|
605
|
0 |
0 |
$n == 2 ? :
|
|
620
|
0 |
1 |
if ($@) { }
|
|
630
|
0 |
1 |
if ($time->[10])
|