| line |
true |
false |
branch |
|
139
|
0 |
172 |
if ref $static{'sun'} |
|
140
|
140 |
32 |
if @args |
|
142
|
172 |
0 |
unless exists $self->{'almanac_horizon'} |
|
143
|
0 |
172 |
if ($self->{'debug'}) |
|
187
|
0 |
1205 |
unless ref $B and $B->represents("Astro::Coord::ECI") and ref $C and $C->represents("Astro::Coord::ECI") |
|
193
|
1 |
1204 |
$self->{'inertial'} ? : |
|
195
|
1 |
1204 |
$self->{'inertial'} ? : |
|
224
|
0 |
0 |
exists $mutator{$_[1]} ? : |
|
262
|
0 |
16905 |
if @_ > 2 |
|
265
|
0 |
16905 |
$_[2] ? : |
|
357
|
0 |
21993 |
if ($self->{'debug'}) |
|
375
|
16896 |
5097 |
if (defined $velocity[2]) |
|
377
|
16895 |
1 |
unless (defined $freq) |
|
379
|
0 |
16895 |
if defined $freq |
|
384
|
1 |
16895 |
if (defined $freq) |
|
392
|
1466 |
20527 |
if $offset |
|
398
|
21993 |
0 |
if $self->{'refraction'} |
|
450
|
21076 |
1 |
ref $self ? : |
|
457
|
5961 |
15116 |
if ($elevation > $horizon - "0.0349065850398866") |
|
477
|
0 |
5961 |
if $self->get("debug") |
|
506
|
917 |
0 |
$h >= 0 ? : |
|
533
|
58315 |
129 |
unless (@args) |
|
534
|
0 |
58315 |
unless ref $self |
|
544
|
129 |
0 |
if (@args == 1) { } |
|
546
|
12 |
117 |
unless ref $self |
|
612
|
55526 |
2114 |
unless (@args) |
|
614
|
25605 |
29921 |
if $cache->{'fixed'}{'ecef'} |
|
615
|
29921 |
0 |
if $self->{'inertial'} |
|
621
|
2114 |
0 |
if @args == 3 |
|
623
|
2114 |
0 |
if (@args == 6) { } |
|
695
|
32740 |
34163 |
unless (@args) |
|
697
|
32733 |
7 |
if $cache->{'inertial'}{'eci'} |
|
698
|
7 |
0 |
if $self->{'specified'} |
|
707
|
34163 |
0 |
if (@args == 3 or @args == 6) { } |
|
758
|
13058 |
1362 |
if (@args) { } |
|
759
|
0 |
13058 |
if @args % 3 |
|
785
|
237 |
1125 |
if $self->{'_ECI_cache'}{'inertial'}{'ecliptic_cartesian'} |
|
847
|
13058 |
1378 |
if (@args) { } |
|
849
|
0 |
13058 |
if @args % 3 |
|
897
|
0 |
1 |
if (&looks_like_number($self)) |
|
902
|
0 |
1 |
unless defined $time |
|
1003
|
3 |
3385 |
if @args and embodies($args[0], "Astro::Coord::ECI") |
|
1008
|
3385 |
3 |
unless $body |
|
1010
|
2253 |
1135 |
if (@args) { } |
|
|
3 |
1132 |
elsif ($body) { } |
|
1011
|
0 |
2253 |
if @args % 3 |
|
1013
|
0 |
2253 |
if $body |
|
1055
|
0 |
1 |
unless $station ||= $self->get("station") |
|
1116
|
4 |
0 |
if ($body) { } |
|
1119
|
0 |
4 |
@pos < @base ? : |
|
1126
|
0 |
0 |
if $self->{'_ECI_cache'}{'inertial'}{'equatorial_unreduced'} |
|
1175
|
3 |
1 |
if (@pos >= 6) |
|
1191
|
0 |
4 |
unless $body |
|
1201
|
3 |
1 |
if (@rslt >= 6) |
|
1223
|
31897 |
0 |
if (@_ > 1) { } |
|
1268
|
14557 |
2107 |
unless (@args) |
|
1270
|
6700 |
7857 |
unless ($self->{'_ECI_cache'}{'fixed'}{'geocentric'}) |
|
1278
|
0 |
6700 |
if $self->get("debug") |
|
1296
|
2107 |
0 |
if (@args == 3) { } |
|
1304
|
0 |
2107 |
if $self->get("debug") |
|
1379
|
0 |
27116 |
@args == 1 || @args == 4 ? : |
|
1381
|
0 |
27116 |
$elps ? : |
|
1386
|
0 |
27116 |
if $elps |
|
1390
|
25011 |
2105 |
unless (@args) |
|
1396
|
23171 |
1840 |
if $self->{'_ECI_cache'}{'fixed'}{'geodetic'} and not $elps |
|
1397
|
0 |
1840 |
if ($self->{'debug'}) |
|
1406
|
0 |
1840 |
$elps ? : |
|
1407
|
0 |
1840 |
if ($self->{'debug'}) |
|
1423
|
3 |
1837 |
if $z < 0 |
|
1444
|
0 |
1840 |
$vp * $vp >= abs $P ? : |
|
1447
|
1840 |
0 |
$D >= 0 ? : |
|
1462
|
3 |
1837 |
if $X < 0 |
|
1474
|
0 |
1840 |
unless $elps |
|
1478
|
0 |
1840 |
if $self->get("debug") |
|
1508
|
2105 |
0 |
if (@args == 3) { } |
|
1512
|
0 |
2105 |
if $elps |
|
1530
|
2105 |
0 |
$rhocoslatprime ? : |
|
1592
|
1 |
99517 |
unless ref $self |
|
1595
|
0 |
99518 |
unless exists $mutator{$name} |
|
1597
|
1263 |
98255 |
if ($accessor{$name}) { } |
|
1603
|
32669 |
66849 |
wantarray ? : |
|
1623
|
3 |
0 |
if @vector > 3 |
|
1641
|
0 |
6 |
unless my $station = $self->get("station") |
|
1674
|
0 |
0 |
if (@args == 3) { } |
|
|
0 |
0 |
elsif (@args) { } |
|
1680
|
0 |
0 |
unless my $sun = $self->get("sun") |
|
1694
|
0 |
0 |
if $self->{'_ECI_cache'}{'inertial'}{'heliocentric_ecliptic_cartesian'} |
|
1696
|
0 |
0 |
unless my $sun = $self->get("sun") |
|
1722
|
0 |
0 |
if (@args) { } |
|
1723
|
0 |
0 |
if @args % 3 |
|
1750
|
0 |
21999 |
if ($self->{'debug'}) |
|
1799
|
16902 |
5097 |
if (@tgt > 5) |
|
1840
|
0 |
2 |
unless ref $self |
|
1844
|
1 |
1 |
unless (@args) |
|
1845
|
0 |
1 |
unless $self->{'universal'} |
|
1850
|
1 |
0 |
unless defined $self->{'local_mean_time'} |
|
1854
|
1 |
0 |
if (@args == 1) { } |
|
1856
|
0 |
1 |
unless $self->{'specified'} |
|
1859
|
0 |
1 |
if $self->{'inertial'} |
|
1956
|
1042 |
1043 |
if (@args > 1 or defined $args[0] and $args[0] =~ / [^0-9] /msx) { } |
|
1958
|
1042 |
0 |
unless defined $alt |
|
1961
|
0 |
1042 |
if $precision % 2 |
|
1971
|
4166 |
2084 |
if ($base > 10) { } |
|
1972
|
0 |
4166 |
if (my $inx = index($alpha, lc $chr)) < 0 |
|
1975
|
2082 |
2084 |
@chars > 1 ? : |
|
1976
|
0 |
4166 |
if $inx > $limit |
|
1983
|
0 |
2084 |
if $chr =~ / [^0-9] /msx |
|
2001
|
0 |
1043 |
unless defined $precision and $precision > 0 |
|
2027
|
4168 |
2084 |
$base > 10 ? : |
|
2034
|
1043 |
0 |
if @rslt |
|
2035
|
1043 |
0 |
if @rslt > 1 |
|
2049
|
4167 |
2084 |
$inx % 2 ? : |
|
2069
|
264 |
264 |
$self->can('period') ? : |
|
2090
|
0 |
0 |
unless ref $self |
|
2094
|
0 |
0 |
unless $body->represents("Astro::Coord::ECI") |
|
2100
|
0 |
0 |
$want ? : |
|
|
0 |
0 |
if defined $want |
|
2105
|
0 |
0 |
if ($denom = abs $denom) < "1e-11" |
|
2131
|
0 |
0 |
$mid_angle >= 3.1415926535897931 ? : |
|
2181
|
0 |
241 |
unless ref $self |
|
2185
|
0 |
241 |
unless $body->represents("Astro::Coord::ECI") |
|
2191
|
204 |
37 |
unless defined $upper |
|
2192
|
31 |
210 |
$upper ? : |
|
2206
|
241 |
0 |
unless ($elev < $angle || 0) == $rise |
|
2208
|
0 |
0 |
if $end - $original > $give_up |
|
2217
|
1755 |
1934 |
($elev < $angle || 0) == $rise ? : |
|
2223
|
225 |
16 |
wantarray ? : |
|
2288
|
0 |
264 |
unless ref $self |
|
2292
|
0 |
264 |
unless $body->represents("Astro::Coord::ECI") |
|
2297
|
184 |
57 |
$want ? : |
|
|
241 |
23 |
if defined $want |
|
2301
|
0 |
264 |
$denom >= 0 ? : |
|
2302
|
0 |
264 |
if ($denom = abs $denom) < "1e-11" |
|
2312
|
74 |
190 |
mod2pi(($body->universal($begin)->geocentric)[1] - ($self->universal($begin)->geocentric)[1]) >= 3.1415926535897931 ? : |
|
2321
|
108 |
156 |
if (defined $want and $want != $above) |
|
2323
|
59 |
49 |
$opposite ? : |
|
2333
|
1606 |
1696 |
mod2pi($long - $merid + $opposite) < 3.1415926535897931 ? : |
|
2340
|
256 |
8 |
wantarray ? : |
|
2358
|
1124 |
14861 |
unless defined $time |
|
2398
|
0 |
14185 |
if (&looks_like_number($self)) |
|
2403
|
14183 |
2 |
unless defined $time |
|
2424
|
2 |
0 |
if $_[1] |
|
2460
|
0 |
1127 |
unless $end |
|
2465
|
0 |
1127 |
unless $self->get("inertial") |
|
2468
|
0 |
1127 |
unless defined(my $start = $self->get("equinox_dynamical")) |
|
2474
|
1 |
1126 |
if ($sta = $self->get("station") and $sta->get("inertial")) |
|
2476
|
0 |
1 |
if $sta->get("station") |
|
2482
|
2 |
1125 |
if $start == $end |
|
2636
|
0 |
0 |
unless my $name = pop @args |
|
2639
|
0 |
0 |
if (@args == 0) { } |
|
|
0 |
0 |
elsif (@args == 2) { } |
|
2640
|
0 |
0 |
unless $known_ellipsoid{$name} |
|
2678
|
42462 |
46 |
__classisa($_[0]->represents, $_[1]) ? : |
|
|
42508 |
42510 |
defined $_[1] ? : |
|
2702
|
18 |
1600 |
unless ref $self |
|
2704
|
0 |
1618 |
if @args % 2 |
|
2710
|
0 |
1647 |
unless exists $mutator{$name} |
|
2712
|
0 |
1647 |
unless "CODE" eq ref $mutator{$name} |
|
2718
|
7 |
1610 |
if ref $self and $self->{'specified'} and $action & 1 |
|
2762
|
0 |
172 |
unless defined $value |
|
2764
|
0 |
172 |
if ($special{$value}) { } |
|
|
172 |
0 |
elsif (&looks_like_number($value) and $value >= -1.5707963267948966 and $value <= 1.5707963267948966) { } |
|
2804
|
0 |
1 |
unless defined $value |
|
2805
|
1 |
0 |
unless &looks_like_number($value) and $value >= "-1.5707963267949" and $value <= "1.5707963267949" |
|
2816
|
12 |
0 |
if (defined $value) |
|
2817
|
0 |
12 |
unless embodies($value, "Astro::Coord::ECI") |
|
2820
|
0 |
12 |
if $value->get("station") |
|
2831
|
0 |
2 |
unless embodies($value, $self->SUN_CLASS) |
|
2834
|
2 |
0 |
unless ref $value |
|
2845
|
90 |
49 |
if $_[0]->can("rebless") |
|
2855
|
0 |
31 |
unless defined $value |
|
2858
|
0 |
31 |
unless exists $known_ellipsoid{$value} |
|
2893
|
0 |
140693 |
if @args |
|
2899
|
65243 |
75450 |
if (defined $time) { } |
|
2902
|
0 |
75450 |
unless ref $self |
|
2907
|
0 |
75450 |
unless defined $self->{'universal'} |
|
2918
|
0 |
84084 |
unless defined $time |
|
2920
|
6 |
84078 |
unless ref $self |
|
2923
|
25754 |
58330 |
if defined $self->{'universal'} and $time == $self->{'universal'} |
|
2926
|
57787 |
543 |
if $run_model |
|
2936
|
58230 |
114 |
if ($self->{'specified'}) |
|
2937
|
31846 |
26384 |
if ($self->{'inertial'}) { } |
|
2948
|
0 |
30 |
unless "ARRAY" eq ref $tplt |
|
3013
|
26424 |
31492 |
unless $self->can("time_set") |
|
3015
|
31374 |
118 |
unless ($self->{'_no_set'}++) |
|
3016
|
14 |
31360 |
unless eval {
do {
$self->time_set;
1
}
} |
|
3019
|
31374 |
118 |
unless --$self->{'_no_set'} |
|
3020
|
14 |
31478 |
if ($exception) |
|
3046
|
14 |
200553 |
unless (ref $self) |
|
3047
|
0 |
14 |
unless @$args |
|
3054
|
0 |
200567 |
if ($self->{'debug'}) |
|
3063
|
263135 |
0 |
if defined $_ |
|
3067
|
0 |
0 |
unless defined $_ |
|
3076
|
17 |
200550 |
if @$args % 3 == 1 |
|
3078
|
198107 |
2460 |
if ($self->{'specified'}) |
|
3079
|
66398 |
131709 |
if (@$args) { } |
|
|
4 |
131705 |
elsif ($self->{'_need_purge'}) { } |
|
3103
|
0 |
6465 |
unless -&PIOVER2 <= $_[1] and $_[1] <= &PIOVER2 |
|
3117
|
0 |
4212 |
unless -&TWOPI <= $_[1] and $_[1] <= &TWOPI |
|
3131
|
0 |
2253 |
unless 0 <= $_[1] and $_[1] <= &TWOPI |
|
3158
|
0 |
15312 |
unless @sph_data and not @sph_data % 3 |
|
3183
|
1 |
15311 |
if (@sph_data) |
|
3257
|
0 |
24487 |
unless @cart_data and not @cart_data % 3 |
|
3266
|
24486 |
1 |
$cart_pos[0] || $cart_pos[1] ? : |
|
3269
|
24486 |
1 |
$range ? : |
|
3277
|
16898 |
7589 |
if (@cart_data) |
|
3315
|
16898 |
0 |
if ($range > 0) { } |
|
3318
|
16898 |
0 |
if ($diag > 0) { } |
|
3391
|
0 |
7 |
if $self->{'debug'} |
|
3399
|
0 |
7 |
if $self->{'debug'} |
|
3403
|
7 |
0 |
if (@data > 5) |
|
3432
|
0 |
29921 |
if (abs $equi - $dyn > $EQUINOX_TOLERANCE) |
|
3442
|
18309 |
11612 |
if (@ecef > 3) |
|
3452
|
0 |
29921 |
unless defined wantarray |
|
3466
|
17 |
39386 |
unless (embodies($args[1], "Astro::Coord::ECI")) |
|
3468
|
0 |
17 |
unless embodies($args[0], "Astro::Coord::ECI") |
|
3471
|
17 |
0 |
if defined $args[1]{'universal'} |