| line |
true |
false |
branch |
|
115
|
3 |
15 |
if (exists $FITS_headers->{'OBSID'} and defined $FITS_headers->{'OBSID'}) { }
|
|
124
|
15 |
0 |
if (defined $dateobs and defined $obsnum and defined $instrume)
|
|
165
|
16 |
74 |
unless (exists $FITS_headers->{$outkey})
|
|
167
|
0 |
40 |
if (exists $FITS_headers->{$key})
|
|
169
|
0 |
0 |
if (defined $date)
|
|
186
|
0 |
0 |
if ($date =~ /\s*(\d\d\d\d)-(\d\d)-(\d\d)\s+(\d{1,2}):(\d\d):(\d\d)/) { }
|
|
|
0 |
0 |
elsif ($date =~ /\s*(\w+)\s+(\d{1,2})\s+(\d{4})\s+(\d{1,2}):(\d\d):(\d\d)(?::\d\d\d)?(AM|PM)/) { }
|
|
201
|
0 |
0 |
if (uc $7 eq 'AM' and $hour == 12) { }
|
|
|
0 |
0 |
elsif (uc $7 eq 'PM' and $hour < 12) { }
|