| line |
true |
false |
branch |
|
233
|
511 |
1051 |
if (exists $args{'planet'} and defined $args{'planet'})
|
|
238
|
1051 |
511 |
unless (defined $obj)
|
|
243
|
5 |
1046 |
if (exists $args{'elements'} and defined $args{'elements'} && (UNIVERSAL::isa($args{'elements'}, 'HASH') && (exists $args{'elements'}{'EPOCH'} && defined $args{'elements'}{'EPOCH'} || exists $args{'elements'}{'EPOCHPERIH'} && defined $args{'elements'}{'EPOCHPERIH'})) || ref $args{'elements'} eq 'ARRAY' && $args{'elements'}[0] eq 'ELEMENTS') { }
|
|
|
4 |
1042 |
elsif (exists $args{'mjd1'}) { }
|
|
|
1029 |
13 |
elsif (exists $args{'type'} and defined $args{'type'}) { }
|
|
|
11 |
2 |
elsif (exists $args{'az'} or exists $args{'el'} or exists $args{'ha'}) { }
|
|
|
2 |
0 |
elsif (scalar keys %args == 0) { }
|
|
296
|
4 |
5053 |
if (@_)
|
|
317
|
1534 |
42460 |
if (@_)
|
|
319
|
0 |
1534 |
unless UNIVERSAL::isa($tel, 'Astro::Telescope')
|
|
363
|
12330 |
64402 |
if (@_)
|
|
367
|
0 |
0 |
ref $time ? :
|
|
|
0 |
12330 |
if defined $time and not UNIVERSAL::can($time, 'mjd')
|
|
376
|
76657 |
75 |
if (defined $self->{'DateTime'} and not $self->usenow) { }
|
|
414
|
12331 |
91204 |
if (@_)
|
|
435
|
2202 |
15647 |
if (@_)
|
|
456
|
0 |
7 |
if (@_)
|
|
460
|
7 |
0 |
unless defined $com
|
|
489
|
1042 |
1 |
if (@_)
|
|
492
|
1043 |
0 |
defined $self->{'NativeMethod'} ? :
|
|
517
|
6157 |
1 |
unless (defined $az and defined $el)
|
|
522
|
5965 |
192 |
defined $tel ? :
|
|
549
|
7510 |
4129 |
unless (defined $ra)
|
|
572
|
6037 |
3220 |
unless (defined $dec)
|
|
601
|
6160 |
34 |
unless (defined $ha)
|
|
626
|
14 |
33 |
unless (defined $az)
|
|
649
|
6126 |
46 |
unless (defined $el)
|
|
689
|
9 |
0 |
if ($sys eq 'FK5') { }
|
|
|
0 |
0 |
elsif ($sys eq 'FK4') { }
|
|
915
|
0 |
3 |
$self->has_datetime ? :
|
|
980
|
0 |
25 |
defined $tel ? :
|
|
1005
|
0 |
15 |
unless defined $tel
|
|
1010
|
15 |
0 |
if (exists $limits{'type'}) { }
|
|
1012
|
12 |
3 |
if ($limits{'type'} eq 'AZEL') { }
|
|
|
3 |
0 |
elsif ($limits{'type'} eq 'HADEC') { }
|
|
1017
|
8 |
4 |
if ($el > $limits{'el'}{'min'} and $el < $limits{'el'}{'max'}) { }
|
|
1028
|
2 |
1 |
if ($ha > $limits{'ha'}{'min'} and $ha < $limits{'ha'}{'max'}) { }
|
|
1031
|
1 |
1 |
if ($dec > $limits{'dec'}{'min'} and $dec < $limits{'dec'}{'max'}) { }
|
|
1097
|
0 |
1 |
unless $j == 0
|
|
1099
|
0 |
1 |
if (wantarray) { }
|
|
1124
|
5 |
1 |
if $self->name
|
|
1129
|
6 |
0 |
if ($self->type ne 'CAL')
|
|
1142
|
6 |
0 |
defined $mt ? :
|
|
1146
|
6 |
0 |
defined $t_el ? :
|
|
1149
|
6 |
0 |
defined $ha_set ? :
|
|
1152
|
6 |
0 |
if defined $t
|
|
1154
|
6 |
0 |
if defined $t
|
|
1158
|
6 |
0 |
if ($self->can('radec'))
|
|
1165
|
6 |
0 |
if (defined $self->telescope)
|
|
1166
|
6 |
0 |
defined $self->telescope->fullname ? :
|
|
1169
|
3 |
3 |
if ($self->isObservable) { }
|
|
1225
|
0 |
1 |
unless exists $opt{'start'}
|
|
1226
|
0 |
1 |
unless exists $opt{'end'}
|
|
1227
|
0 |
1 |
unless exists $opt{'inc'}
|
|
1231
|
0 |
1 |
if (UNIVERSAL::can($inc, 'seconds'))
|
|
1234
|
0 |
1 |
unless $inc > 0
|
|
1238
|
0 |
1 |
if not $dateclass or $dateclass ne 'Time::Piece' and $dateclass ne 'DateTime'
|
|
1247
|
1 |
0 |
unless $usenow
|
|
1270
|
25 |
0 |
if (defined $opt{'units'})
|
|
1287
|
0 |
1 |
if ($usenow) { }
|
|
1426
|
3034 |
30 |
defined $opt{'horizon'} ? :
|
|
1432
|
3034 |
30 |
defined $tel ? :
|
|
1443
|
2 |
1059 |
if (defined $self->name and lc $self->name eq 'moon' and abs $cos_ha0 > 1)
|
|
1450
|
2 |
0 |
if ($self->transit_el > $horizon)
|
|
1451
|
2 |
0 |
$self->has_datetime ? :
|
|
1454
|
0 |
2 |
if $Astro::Coords::DEBUG
|
|
1457
|
0 |
2 |
unless $convok
|
|
1464
|
518 |
2546 |
if abs $cos_ha0 > 1
|
|
1471
|
912 |
143 |
unless defined $self->name and lc $self->name eq 'sun' and $self->isa('Astro::Coords::Planet')
|
|
1527
|
2564 |
0 |
$self->has_datetime ? :
|
|
1542
|
2561 |
3 |
if ($event == 1 or $event == -1) { }
|
|
|
3 |
0 |
elsif ($event == 0) { }
|
|
1558
|
3 |
0 |
if (defined $prev and defined $next) { }
|
|
|
0 |
0 |
elsif (defined $prev) { }
|
|
|
0 |
0 |
elsif (defined $next) { }
|
|
1562
|
3 |
0 |
if ($prev_diff < $next_diff) { }
|
|
1587
|
0 |
1075 |
if (not defined $event or $event != 1 and $event != -1)
|
|
1611
|
157 |
918 |
if defined $self->name and lc $self->name eq 'moon'
|
|
1620
|
0 |
1075 |
if $Astro::Coords::DEBUG
|
|
1624
|
2903 |
1075 |
if (defined $mtime)
|
|
1629
|
0 |
3978 |
if $Astro::Coords::DEBUG
|
|
1641
|
1048 |
2930 |
if ($diff > 0)
|
|
1642
|
0 |
1048 |
if $Astro::Coords::DEBUG
|
|
1646
|
1023 |
25 |
if ($dtime) { }
|
|
1655
|
2903 |
1075 |
if (defined $prevtime and defined $mtime)
|
|
1656
|
1075 |
1828 |
if abs $mtime->epoch - $prevtime->epoch <= $tol
|
|
1661
|
0 |
1075 |
if $count > $max
|
|
1694
|
3485 |
493 |
unless defined $self->name and lc $self->name eq 'sun' and $self->isa('Astro::Coords::Planet')
|
|
1699
|
5370 |
100 |
if ($self->_isdt) { }
|
|
1731
|
8 |
0 |
if $self->has_datetime
|
|
1764
|
0 |
7 |
unless UNIVERSAL::isa($offset, 'Astro::Coords::Offset')
|
|
1767
|
0 |
7 |
unless $offset->projection eq 'TAN'
|
|
1772
|
5 |
2 |
if ($offset->system eq 'J2000') { }
|
|
|
2 |
0 |
elsif ($offset->system eq 'GAL') { }
|
|
1802
|
0 |
7 |
unless defined $coordsoffset
|
|
1808
|
8 |
20 |
unless defined $value
|
|
1809
|
7 |
13 |
if $method eq 'comment' and $value eq ''
|
|
1843
|
9 |
1 |
defined $self->{'RadialVelocity'} ? :
|
|
1872
|
2 |
0 |
if ($vd eq 'REDSHIFT' or $vd eq 'OPTICAL') { }
|
|
|
0 |
0 |
elsif ($vd eq 'RELATIVISTIC') { }
|
|
1880
|
0 |
0 |
if ($rv > 2997.92458) { }
|
|
1893
|
0 |
1 |
unless defined $z
|
|
1914
|
9 |
0 |
defined $self->{'VelocityDefinition'} ? :
|
|
1922
|
2 |
0 |
if (defined $defn)
|
|
1950
|
8 |
3 |
defined $self->{'VelocityFrame'} ? :
|
|
1957
|
2 |
0 |
if (defined $frame)
|
|
2040
|
1 |
1 |
if ($vdefn eq 'RADIO') { }
|
|
|
1 |
0 |
elsif ($vdefn eq 'OPTICAL' or $vdefn eq 'REDSHIFT') { }
|
|
|
0 |
0 |
elsif ($vdefn eq 'RELATIVISTIC') { }
|
|
2043
|
1 |
0 |
if ($obsvel > 2997.92458) { }
|
|
2103
|
0 |
4 |
if $f1 eq $f2
|
|
2140
|
18 |
23 |
defined $tel ? :
|
|
2171
|
5 |
31 |
$usebary ? :
|
|
2309
|
2958 |
8758 |
if defined $cachedlst
|
|
2315
|
8537 |
221 |
defined $tel ? :
|
|
2319
|
8649 |
109 |
if ($time->can('nanosecond'))
|
|
2361
|
3 |
15256 |
unless defined $input
|
|
2363
|
319 |
14937 |
if (UNIVERSAL::isa($input, 'Time::Piece')) { }
|
|
|
14937 |
0 |
elsif (UNIVERSAL::isa($input, 'DateTime')) { }
|
|
2389
|
0 |
25 |
if UNIVERSAL::can($delta, 'seconds')
|
|
2392
|
25 |
0 |
if (UNIVERSAL::isa($date, 'Time::Piece')) { }
|
|
2397
|
0 |
0 |
if (abs $delta > 1) { }
|
|
2425
|
0 |
0 |
defined $t1 ? :
|
|
2426
|
0 |
0 |
defined $t2 ? :
|
|
2470
|
518 |
2540 |
unless defined $ha_set
|
|
2475
|
0 |
2540 |
unless grep {$_ == $event;} -1, 0, 1
|
|
2481
|
2526 |
14 |
if ($self->_isdt)
|
|
2491
|
2516 |
24 |
defined $opt{'horizon'} ? :
|
|
2522
|
0 |
2645 |
if $estimate->[2]
|
|
2524
|
1327 |
1318 |
$rise ? :
|
|
|
2644 |
1 |
if ($self->_iterative_el($refel, $rise ? 1 : -1)) { }
|
|
2530
|
0 |
1 |
if $Astro::Coords::DEBUG
|
|
2541
|
0 |
4848 |
unless defined $a->[0] and defined $b->[0]
|
|
2542
|
4705 |
143 |
if abs $b->[1] - $a->[1] > $safety_seconds or $b->[2] and $a->[2]
|
|
2544
|
143 |
0 |
unless $a->[2]
|
|
2545
|
0 |
143 |
unless $b->[2]
|
|
2546
|
0 |
143 |
unless defined $a->[0] and defined $b->[0]
|
|
2558
|
0 |
0 |
$direction == -1 ? :
|
|
|
0 |
2540 |
if $Astro::Coords::DEBUG
|
|
2564
|
1270 |
1270 |
if ($rise) { }
|
|
2572
|
0 |
0 |
$rise ? :
|
|
|
0 |
2540 |
if $Astro::Coords::DEBUG
|
|
2578
|
856 |
1684 |
if (not $event) { }
|
|
2582
|
1484 |
200 |
if not defined $cmp or $cmp * $event > 0
|
|
2586
|
0 |
0 |
$direction == -1 ? :
|
|
|
0 |
2540 |
if $Astro::Coords::DEBUG
|
|
2589
|
856 |
1684 |
if ($direction > 0) { }
|
|
2598
|
1684 |
856 |
if ($direction < 0)
|
|
2602
|
0 |
0 |
$rise ? :
|
|
|
0 |
2540 |
if $Astro::Coords::DEBUG
|
|
2608
|
1684 |
856 |
if ($event) { }
|
|
2611
|
856 |
0 |
if (defined $event[0][0] and defined $event[1][0]) { }
|
|
2612
|
0 |
0 |
if (defined $event[0][0]) { }
|
|
|
0 |
0 |
elsif (defined $event[1][0]) { }
|
|
2623
|
35 |
821 |
if (abs $diff[0] - $diff[1] < $safety_seconds) { }
|
|
2627
|
35 |
0 |
if (defined $event[0][0]) { }
|
|
|
0 |
0 |
elsif (defined $event[1][0]) { }
|
|
2628
|
35 |
0 |
if (defined $event[1][0]) { }
|
|
2631
|
16 |
19 |
$diff[0] < $diff[1] ? :
|
|
2646
|
414 |
407 |
$diff[0] < $diff[1] ? :
|
|
2650
|
0 |
821 |
unless (defined $event[$closer][0])
|
|
2665
|
830 |
854 |
if $event == -1
|
|
2668
|
0 |
3164 |
unless defined $t->[0]
|
|
2670
|
0 |
3164 |
unless defined $cmp
|
|
2671
|
1684 |
1480 |
if ($cmp == $event or $cmp == 0)
|
|
2672
|
1611 |
73 |
unless $t->[2]
|
|
2680
|
2540 |
0 |
$havetime ? :
|
|
2749
|
1054 |
47 |
if (abs $el - $refel > $tol)
|
|
2750
|
0 |
1054 |
if ($Astro::Coords::DEBUG)
|
|
2754
|
0 |
0 |
$grad > 0 ? :
|
|
2759
|
149 |
905 |
if defined $self->name and lc $self->name eq 'moon'
|
|
2762
|
534 |
520 |
($el <=> $refel) != $grad ? :
|
|
2775
|
2381 |
1054 |
if (defined $prevel)
|
|
2812
|
909 |
1472 |
if ($diff_to_curr < 0) { }
|
|
2825
|
52 |
2329 |
if ($has_straddled) { }
|
|
2827
|
2 |
50 |
if $inc < $smallinc
|
|
2830
|
26 |
24 |
if $diff_to_prev / $diff_to_curr < 0
|
|
2833
|
1 |
2328 |
if ($inc < $smallinc)
|
|
2840
|
2324 |
4 |
if (abs $deltat > 0 and abs $deltael > 0) { }
|
|
2848
|
1938 |
386 |
if ($newinc < $maxinc) { }
|
|
2851
|
0 |
1938 |
if $inc < $smallinc
|
|
2855
|
214 |
172 |
if abs $diff_to_prev < abs $diff_to_curr
|
|
2860
|
1 |
3 |
if abs $diff_to_prev < abs $diff_to_curr
|
|
2868
|
241 |
2137 |
if ($reverse)
|
|
2881
|
36 |
3396 |
if (not $use_dt) { }
|
|
2889
|
2835 |
561 |
if (abs $delta > 1) { }
|
|
2899
|
0 |
3432 |
if $Astro::Coords::DEBUG
|
|
2929
|
11678 |
0 |
unless defined $test
|
|
2934
|
151 |
11527 |
if ($test->isa('Time::Piece')) { }
|
|
|
11527 |
0 |
elsif ($test->isa('DateTime')) { }
|
|
2968
|
5 |
5099 |
if (exists $opt{'nearest'}) { }
|
|
2969
|
5 |
0 |
if ($opt{'nearest'}) { }
|
|
2974
|
0 |
0 |
if ($opt{'event'} == 0) { }
|
|
3004
|
0 |
10 |
unless defined $in
|
|
3010
|
1 |
6 |
if $in eq 'LSRK' or $in eq 'LSRD' or $in eq 'LG'
|
|
3016
|
0 |
6 |
unless $trunc =~ /^(GEO|TOP|HEL|LSR|GAL|BAR)/
|
|
3020
|
1 |
5 |
if $trunc eq 'LSR'
|
|
3043
|
0 |
2 |
unless defined $in
|
|
3052
|
1 |
1 |
if ($trunc eq 'RAD') { }
|
|
|
0 |
1 |
elsif ($trunc eq 'OPT') { }
|
|
|
1 |
0 |
elsif ($trunc eq 'RED') { }
|
|
|
0 |
0 |
elsif ($trunc eq 'REL') { }
|
|
3085
|
116 |
0 |
if ($str =~ /^([BJ]?)(\d+(\.\d+)?)$/i) { }
|
|
3087
|
2 |
114 |
$typ eq 'B' ? :
|
|
3121
|
1 |
1 |
if ($equ != 1950)
|
|
3178
|
18158 |
7741 |
unless defined $primary
|
|
3182
|
4486 |
3255 |
unless (exists $C->{$primary})
|
|
3209
|
31757 |
21322 |
unless defined $primary
|
|
3213
|
13807 |
7515 |
unless exists $C->{$primary}
|
|
3215
|
0 |
7515 |
unless defined $local
|
|
3221
|
40 |
7475 |
wantarray ? :
|
|
3243
|
1137 |
13409 |
if (not $self->has_datetime or $self->usenow or $self->datetime_is_unsafe)
|
|
3251
|
13002 |
407 |
defined $tel ? :
|
|
3253
|
0 |
13409 |
if $Astro::Coords::DEBUG
|
|
3261
|
13202 |
207 |
if $dt->can('nanosecond')
|
|
3279
|
16067 |
99452 |
if (@_)
|
|
3302
|
4556 |
7160 |
unless defined $key
|
|
3317
|
0 |
8758 |
unless defined $value
|
|
3319
|
4556 |
4202 |
unless defined $key
|
|
3320
|
2072 |
2130 |
if (1000 < scalar @_cache_global_lst)
|
|
3338
|
1530 |
27533 |
unless (exists $self->{$KEY})
|