| line |
true |
false |
branch |
|
117
|
3 |
15 |
if (exists $FITS_headers->{'OBSID'} and defined $FITS_headers->{'OBSID'}) { }
|
|
127
|
15 |
0 |
if (defined $dateobs and defined $obsnum)
|
|
168
|
16 |
74 |
unless (exists $FITS_headers->{$outkey})
|
|
170
|
0 |
40 |
if (exists $FITS_headers->{$key})
|
|
172
|
0 |
0 |
if (defined $date)
|
|
189
|
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)/) { }
|
|
204
|
0 |
0 |
if (uc $7 eq 'AM' and $hour == 12) { }
|
|
|
0 |
0 |
elsif (uc $7 eq 'PM' and $hour < 12) { }
|