| line |
true |
false |
branch |
|
112
|
1 |
0 |
if (exists $FITS_headers->{'TELESCOP'} and $FITS_headers->{'TELESCOP'} =~ /UKIRT/ and exists $FITS_headers->{'FILENAME'} and exists $FITS_headers->{'RAJ2000'})
|
|
144
|
0 |
1 |
if (exists $FITS_headers->{'DHSVER'}) { }
|
|
169
|
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'}) { }
|
|
190
|
1 |
0 |
if (exists $FITS_headers->{'EQUINOX'})
|
|
191
|
0 |
1 |
if ($FITS_headers->{'EQUINOX'} =~ /1950/) { }
|
|
|
1 |
0 |
elsif ($FITS_headers->{'EQUINOX'} =~ /2000/) { }
|
|
208
|
0 |
1 |
if (exists $FITS_headers->{'GRATING'}) { }
|
|
|
1 |
0 |
elsif (exists $FITS_headers->{'GRISM'}) { }
|
|
224
|
0 |
1 |
if (exists $FITS_headers->{'GLAMBDA'}) { }
|
|
|
0 |
1 |
elsif (exists $FITS_headers->{'CENWAVL'}) { }
|
|
243
|
0 |
1 |
if (exists $FITS_headers->{'SANGLE'}) { }
|
|
|
0 |
1 |
elsif (exists $FITS_headers->{'SLIT_PA'}) { }
|
|
263
|
0 |
1 |
if (exists $FITS_headers->{'SLIT'}) { }
|
|
|
1 |
0 |
elsif (exists $FITS_headers->{'SLITNAME'}) { }
|
|
281
|
0 |
1 |
if (exists $FITS_headers->{'SPD_GAIN'}) { }
|
|
|
1 |
0 |
elsif (exists $FITS_headers->{'WAVEFORM'}) { }
|
|
284
|
0 |
1 |
if ($FITS_headers->{'WAVEFORM'} =~ /thermal/i) { }
|
|
311
|
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) { }
|
|
314
|
0 |
1 |
if ($FITS_headers->{'STANDARD'} =~ /^[tf]$/i) { }
|
|
|
1 |
0 |
elsif ($FITS_headers->{'STANDARD'} =~ /^[01]$/) { }
|
|
346
|
1 |
0 |
if (exists $FITS_headers->{'UT_DATE'})
|
|
349
|
0 |
1 |
unless defined $return
|
|
370
|
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'}) { }
|
|
398
|
0 |
0 |
if (exists $generic_headers->{'UTSTART'})
|
|
423
|
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'}) { }
|
|
451
|
0 |
0 |
if (exists $generic_headers->{'UTEND'})
|
|
474
|
1 |
0 |
if (exists $FITS_headers->{'RABASE'})
|
|
491
|
0 |
0 |
if (exists $generic_headers->{'X_BASE'})
|
|
508
|
1 |
0 |
if (exists $FITS_headers->{'RABASE'})
|
|
525
|
0 |
0 |
if (exists $generic_headers->{'RA_BASE'})
|
|
547
|
1 |
0 |
if (defined $FITS_headers->{'DATE_OBS'})
|
|
550
|
1 |
0 |
if (defined $FITS_headers->{'DATE_END'})
|
|
576
|
0 |
1 |
if UNIVERSAL::isa($date, "Time::Piece")
|
|
588
|
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/) { }
|
|
599
|
0 |
0 |
if ($date =~ /T/)
|
|
603
|
0 |
0 |
$n == 2 ? :
|
|
618
|
0 |
1 |
if ($@) { }
|
|
628
|
0 |
1 |
if ($time->[10])
|