| line |
true |
false |
branch |
|
43
|
11 |
8 |
if (ref $_[0] eq 'HASH') { }
|
|
55
|
19 |
0 |
unless ($INC{'DateTime'})
|
|
57
|
0 |
19 |
if $@
|
|
62
|
8 |
11 |
defined $arg{'alt'} ? :
|
|
63
|
8 |
11 |
defined $arg{'offset'} ? :
|
|
64
|
4 |
15 |
defined $arg{'time_zone'} ? :
|
|
69
|
1 |
18 |
unless defined $longitude
|
|
71
|
1 |
17 |
unless defined $latitude
|
|
74
|
1 |
16 |
if $arg{'polar'} ne 'warn' and $arg{'polar'} ne 'retval'
|
|
102
|
672 |
118 |
if (ref $_[0] eq 'HASH') { }
|
|
110
|
666 |
124 |
defined $arg{'alt'} ? :
|
|
115
|
1 |
789 |
unless defined $year
|
|
117
|
1 |
788 |
unless defined $month
|
|
119
|
1 |
787 |
unless defined $day
|
|
121
|
1 |
786 |
unless defined $lon
|
|
123
|
1 |
785 |
unless defined $lat
|
|
126
|
1 |
784 |
if $arg{'polar'} ne 'warn' and $arg{'polar'} ne 'retval'
|
|
128
|
182 |
602 |
if ($arg{'precise'}) { }
|
|
132
|
0 |
182 |
if ($trace)
|
|
141
|
150 |
117 |
if ($h2 eq 'day' or $h2 eq 'night')
|
|
145
|
31 |
86 |
if (equal($h1, $h2, 5))
|
|
153
|
0 |
182 |
if ($trace)
|
|
162
|
150 |
106 |
if ($h4 eq 'day' or $h4 eq 'night')
|
|
166
|
31 |
75 |
if (equal($h3, $h4, 5))
|
|
178
|
0 |
602 |
if ($trace)
|
|
183
|
0 |
452 |
if ($h1 eq 'day' or $h1 eq 'night' or $h2 eq 'day' or $h2 eq 'night')
|
|
267
|
300 |
968 |
if ($hour_ut eq 'day' or $hour_ut eq 'night')
|
|
272
|
0 |
968 |
if ($isdst)
|
|
277
|
1 |
967 |
if ($hour_local < 0) { }
|
|
|
21 |
946 |
elsif ($hour_local > 24) { }
|
|
288
|
7 |
961 |
if ($min >= 60)
|
|
291
|
0 |
7 |
if $hour >= 24
|
|
309
|
0 |
1125 |
if ($trace)
|
|
314
|
486 |
639 |
if ($upper_limb)
|
|
326
|
142 |
983 |
if ($cost >= 1) { }
|
|
|
320 |
663 |
elsif ($cost <= -1) { }
|
|
327
|
138 |
4 |
if ($polar eq 'retval')
|
|
334
|
312 |
8 |
if ($polar eq 'retval')
|
|
343
|
0 |
663 |
if ($trace)
|
|
352
|
0 |
675 |
if ($trace)
|
|
412
|
0 |
1125 |
if ($trace)
|
|
487
|
447 |
678 |
if ($True_solar_longitude >= 360)
|