| line |
true |
false |
branch |
|
82
|
0 |
9 |
if ($dayno < 1 or $dayno > 366 or $dayno > 365 and not &leap($year)) { } |
|
83
|
0 |
0 |
unless $Astro::Time::Quiet |
|
94
|
0 |
11 |
if ($month > 12 or $month < 1) { } |
|
95
|
0 |
0 |
unless $Astro::Time::Quiet |
|
107
|
0 |
10 |
if (&leap($year)) { } |
|
113
|
0 |
10 |
if ($day < 1 or $day > $days[$month]) { } |
|
114
|
0 |
0 |
unless $Astro::Time::Quiet |
|
125
|
0 |
9 |
if ($ut < 0 or $ut >= 1) { } |
|
126
|
0 |
0 |
unless $Astro::Time::Quiet |
|
136
|
0 |
2 |
$x < 0 ? : |
|
169
|
0 |
67 |
if ($mode ne 'H' and $mode ne 'D') |
|
173
|
58 |
9 |
unless defined $strsep |
|
177
|
27 |
40 |
if ($mode eq 'H') { } |
|
183
|
4 |
63 |
if ($angle < 0) { } |
|
204
|
39 |
28 |
if ($secfract >= 10 ** $sig) |
|
207
|
1 |
38 |
if ($wholesec >= 60) |
|
210
|
0 |
1 |
if ($min >= 60) |
|
218
|
0 |
67 |
if ($Astro::Time::StrZero > 0) { } |
|
225
|
0 |
67 |
if ($strsep eq 'HMS') { } |
|
|
9 |
58 |
elsif ($strsep eq 'hms') { } |
|
|
3 |
55 |
elsif ($strsep eq 'deg') { } |
|
226
|
0 |
0 |
if ($mode eq 'H') { } |
|
234
|
9 |
0 |
if ($mode eq 'H') { } |
|
250
|
9 |
58 |
if ($sig > 0) { } |
|
260
|
4 |
63 |
if ($sign == -1) |
|
329
|
0 |
4 |
unless (defined $str) |
|
334
|
0 |
4 |
if ($mode ne 'H' and $mode ne 'D') |
|
345
|
1 |
3 |
if ($str =~ /^\s*(?:([+-])\s*)? # Sign (optional)
(\d*): # Hours degrees
(\d{0,2})(?:: # Minutes
(\d{0,2}(?:\.\d*)?))? # Seconds and fractions (both optional)
/x) { } |
|
|
1 |
2 |
elsif ($str =~ /^\s*(?:([+-])\s*)? # Sign (optional)
(\d+)\s*(h)\s* # Hours
(?:(\d{0,2})\s*m\s* # Minutes optional
(?:(\d{0,2} # Seconds and fractions (optional)
(?:\.\d*)?)\s*s)?)?
/x) { } |
|
|
1 |
1 |
elsif ($str =~ /^\s*(?:([+-])\s*)? # Sign (optional)
(\d+)\s*([d])\s* # Degrees
(?:(\d{0,2})\s*[m']\s* # Minutes optional
(?:(\d{0,2} # Seconds and fractions (optional)
(?:\.\d*)?)\s*[s"])?)?
/x) { } |
|
|
1 |
0 |
elsif ($str =~ /^\s*(?:([+-])\s*)? # Sign (optional)
(\d+)\s+ # Hours degrees
(\d{0,2})(?:\s+ # Minutes
(\d{0,2}(?:\.\d*)?))? # Seconds and fractions
/x) { } |
|
|
0 |
0 |
elsif ($str =~ /^\s*(?:([+-])\s*)?(\d+(?:\.\d*)?)/) { } |
|
350
|
0 |
1 |
if $debug |
|
351
|
0 |
1 |
if defined $1 and $1 eq '-' |
|
352
|
1 |
0 |
if $2 |
|
353
|
1 |
0 |
if $3 |
|
354
|
1 |
0 |
if $4 |
|
364
|
0 |
1 |
if $debug |
|
365
|
0 |
1 |
if defined $1 and $1 eq '-' |
|
366
|
1 |
0 |
if $2 |
|
368
|
1 |
0 |
if $4 |
|
369
|
1 |
0 |
if $5 |
|
378
|
0 |
1 |
if $debug |
|
379
|
0 |
1 |
if defined $1 and $1 eq '-' |
|
380
|
1 |
0 |
if $2 |
|
383
|
1 |
0 |
if $4 |
|
384
|
1 |
0 |
if $5 |
|
392
|
0 |
1 |
if $debug |
|
393
|
1 |
0 |
if defined $1 and $1 eq '-' |
|
394
|
1 |
0 |
if $2 |
|
395
|
1 |
0 |
if $3 |
|
396
|
1 |
0 |
if $4 |
|
400
|
0 |
0 |
if $debug |
|
401
|
0 |
0 |
if defined $1 and $1 eq '-' |
|
402
|
0 |
0 |
if $2 |
|
408
|
2 |
2 |
if ($mode eq 'H') { } |
|
414
|
0 |
4 |
if $debug |
|
471
|
1 |
0 |
unless defined $mode |
|
474
|
1 |
0 |
if ($mode eq 'H' or $mode eq 'h') { } |
|
|
0 |
0 |
elsif ($mode eq 'D' or $mode eq 'd') { } |
|
507
|
0 |
0 |
if ($mode ne 'H' and $mode ne 'D') |
|
514
|
0 |
0 |
if ($mode eq 'H') { } |
|
520
|
0 |
0 |
if ($angle < 0) { } |
|
541
|
0 |
0 |
if ($secfract >= 10 ** $sig) |
|
544
|
0 |
0 |
if ($wholesec >= 60) |
|
547
|
0 |
0 |
if ($min >= 60) |
|
556
|
0 |
0 |
if ($sig > 0) { } |
|
601
|
63 |
0 |
if (@ret == 1) { } |
|
|
0 |
0 |
elsif (@ret == 0) { } |
|
626
|
2 |
0 |
if (@ret == 1) { } |
|
|
0 |
0 |
elsif (@ret == 0) { } |
|
651
|
0 |
0 |
if (@ret == 1) { } |
|
|
0 |
0 |
elsif (@ret == 0) { } |
|
676
|
4 |
0 |
if (@ret == 1) { } |
|
|
0 |
0 |
elsif (@ret == 0) { } |
|
697
|
0 |
3 |
unless monthOK $month |
|
698
|
0 |
3 |
unless dayOK $day, $month, $year |
|
702
|
0 |
3 |
if (&leap($year)) { } |
|
729
|
0 |
5 |
unless daynoOK $dayno, $year |
|
731
|
0 |
5 |
if (&leap($year)) { } |
|
783
|
0 |
1 |
if (scalar @_ == 2) { } |
|
785
|
0 |
0 |
unless daynoOK $dayno, $year |
|
788
|
0 |
1 |
unless monthOK $month |
|
789
|
0 |
1 |
unless dayOK $day, $month, $year |
|
794
|
0 |
1 |
if ($dayno == 0) |
|
796
|
0 |
0 |
if (leap $year) { } |
|
803
|
0 |
1 |
if (scalar @_ == 2) { } |
|
829
|
1 |
0 |
if (scalar @_ == 2) { } |
|
831
|
0 |
1 |
unless daynoOK $dayno, $year |
|
834
|
0 |
0 |
unless monthOK $month |
|
835
|
0 |
0 |
unless dayOK $day, $month, $year |
|
840
|
0 |
1 |
if ($dayno == 366 and not leap $year or $dayno == 367) |
|
845
|
1 |
0 |
if (scalar @_ == 2) { } |
|
873
|
0 |
2 |
if ($ut < 0) |
|
911
|
0 |
6 |
unless defined $ut |
|
913
|
0 |
6 |
unless monthOK $month |
|
914
|
0 |
6 |
unless dayOK $day, $month, $year |
|
915
|
0 |
6 |
unless utOK $ut |
|
918
|
0 |
6 |
if ($month <= 2) { } |
|
969
|
0 |
3 |
unless defined $ut |
|
971
|
0 |
3 |
unless daynoOK $dayno, $year |
|
972
|
0 |
3 |
unless utOK $ut |
|
1036
|
0 |
0 |
unless defined $np |
|
1055
|
0 |
0 |
unless defined $np |
|
1095
|
4 |
2 |
unless defined $dUT1 |
|
1096
|
0 |
6 |
if ($dUT1 > 0.5 or $dUT1 < -0.5) |
|
1100
|
0 |
6 |
if (defined $eqenx) |
|
1115
|
0 |
6 |
if ($sidtim < 0) |
|
1153
|
0 |
5 |
unless defined $lst |
|
1178
|
0 |
1 |
unless defined $mjd |
|
1196
|
0 |
1 |
unless defined $mjd |
|
1241
|
0 |
1 |
if $z > $z_limit |
|
1247
|
0 |
1 |
if $z < $z_limit |
|
1256
|
0 |
1 |
if $lst_rise < 0 |
|
1257
|
0 |
1 |
if $lst_set >= 2 * $Astro::Time::PI |
|
1285
|
1 |
0 |
unless defined $dUT1 |
|
1294
|
0 |
1 |
if ($delay < 0) |
|
1319
|
0 |
1 |
unless monthOK $mon |
|
1321
|
0 |
1 |
if ($long) { } |
|
1361
|
1 |
0 |
if ($long) { } |
|
1386
|
0 |
0 |
if ($month eq uc $MonthStr[$i] or $month eq uc $MonthShortStr[$i]) |