| 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
|
602 |
182 |
if (not $arg{'precise'}) { }
|
|
130
|
0 |
602 |
if ($trace)
|
|
140
|
0 |
452 |
if ($h1 eq 'day' or $h1 eq 'night' or $h2 eq 'day' or $h2 eq 'night')
|
|
152
|
0 |
182 |
if ($trace)
|
|
168
|
150 |
119 |
if ($h2_utc eq 'day' or $h2_utc eq 'night')
|
|
173
|
32 |
87 |
if (equal($h1_utc, $h2_utc, 5))
|
|
182
|
0 |
182 |
if ($trace)
|
|
198
|
150 |
97 |
if ($h4_utc eq 'day' or $h4_utc eq 'night')
|
|
203
|
32 |
65 |
if (equal($h3_utc, $h4_utc, 5))
|
|
294
|
300 |
968 |
if ($hour_ut eq 'day' or $hour_ut eq 'night')
|
|
299
|
0 |
968 |
if ($isdst)
|
|
304
|
2 |
966 |
if ($hour_local < 0) { }
|
|
|
20 |
946 |
elsif ($hour_local > 24) { }
|
|
315
|
7 |
961 |
if ($min >= 60)
|
|
318
|
0 |
7 |
if $hour >= 24
|
|
328
|
0 |
1118 |
if ($trace)
|
|
343
|
0 |
1118 |
if ($trace)
|
|
351
|
485 |
633 |
if ($upper_limb)
|
|
362
|
0 |
1118 |
if ($trace)
|
|
369
|
142 |
976 |
if ($cost >= 1) { }
|
|
|
320 |
656 |
elsif ($cost <= -1) { }
|
|
370
|
138 |
4 |
if ($polar eq 'retval')
|
|
377
|
312 |
8 |
if ($polar eq 'retval')
|
|
386
|
0 |
656 |
if ($trace)
|
|
395
|
0 |
668 |
if ($trace)
|
|
455
|
0 |
1118 |
if ($trace)
|
|
530
|
447 |
671 |
if ($True_solar_longitude >= 360)
|
|
643
|
0 |
0 |
if ($is_lmt) { }
|
|
667
|
0 |
0 |
if ($dur < 0)
|
|
684
|
0 |
0 |
if ($angle < 0)
|