Branch Coverage

blib/lib/Astro/Coord/ECI/TLE.pm
Criterion Covered Total %
branch 401 920 43.5


line true false branch
255 0 16 unless eval { do { require Scalar::Util; "Scalar::Util"->import("dualvar"); 1 } }
538 0 48 if @args % 2
541 0 0 wantarray ? :
0 48 unless @args
544 0 48 unless (my $class = shift @args)
548 0 48 if $type_map{$class}
584 0 0 exists $attrib{$_[1]} ? :
657 0 12 if $type = $self->get("object_type")
659 1 11 unless defined(my $name = $self->get("name"))
661 0 11 if $name =~ / \A \s* \z /msx
663 2 5 if $name =~ / \b deb \b /imsx or $name =~ / \b debris \b /imsx or $name =~ / \b coolant \b /imsx or $name =~ / \b shroud \b /imsx or $name =~ / \b westford \s+ needles \b /imsx
669 3 2 if $name =~ m[ \b r/b \b ]imsx or $name =~ / \b [ap] km \b /imsx
736 59 0 unless defined $epoch
738 0 59 if ref $self and $self->{'debug'}
759 45601 0 if (ref $self) { }
760 40904 4697 unless exists $attrib{$name}
763 1 4696 $accessor{$name} ? :
765 0 0 unless exists $static{$name}
818 6 4 if exists $_[0]{&TLE_INIT}{'TLE_isdeep'}
895 0 1 unless defined(my $std_mag = $self->get("intrinsic_magnitude"))
900 0 1 unless my $illum = $self->get("illum")
907 0 1 unless $self->illuminated
914 0 1 if $elev < 0
918 1 0 $illum->isa('Astro::Coord::ECI::Sun') ? :
1115 0 29 unless my $code = $cmd_def{$cmd}
1134 5 21 if (my $effective = $self->get('effective')) { }
3 18 elsif (not $self->get('backdate')) { }
1191 0 0 $_[0]->is_deep ? :
1224 0 0 $_[0]->is_deep ? :
1264 2 13 'HASH' eq ref $args[0] ? :
1268 0 15 if ref $datum
1271 0 15 if ($datum =~ / \A \s* \[? \s* \{ /msx) { }
1276 0 96 if $line =~ / \A \s* [#] /msx
1277 96 0 if $line
1288 8 36 unless ($line =~ / \A 1 (\s* [0-9]+) /msx and length $1 == 6)
1293 0 44 if (length $line > 79 and substr($line, 79, 1) eq 'G') { }
1296 0 44 unless $line =~ /^1(\s*[0-9]+)/ and length $1 == 6
1298 44 0 if length $line < 80
1307 0 44 unless $line =~ /^2(\s*[0-9]+)/ and length $1 == 6
1309 15 29 if length $line < 80
1324 0 44 unless $ele{'id'} == $ele{'id_2'}
1362 15 0 if (keys %magnitude_table)
1364 0 44 unless defined(my $oid = $tle->get("id"))
1366 0 44 if defined $tle->get("intrinsic_magnitude")
1368 42 2 unless defined(my $std_mag = $magnitude_table{_normalize_oid($oid)})
1379 36 8 unless defined $name
1385 8 0 if $name ne ""
1593 0 14 unless defined $start
1595 0 14 unless defined $end
1604 12 2 if "ARRAY" eq ref $args[-1]
1613 0 14 unless defined $pass_start
1616 0 14 unless $pass_end >= $pass_start
1621 0 14 unless $pass_start <= $pass_end
1631 14 0 $tle->get('geometric') ? :
1637 13 1 $want_visible ? :
1639 0 14 unless defined $tle->get("intrinsic_magnitude")
1642 13 1 unless defined $pass_threshold and $pass_threshold > $horizon
1656 0 14 unless defined $period
1666 14 0 if $effective_horizon < $screening_horizon
1672 1 13 if ($pass_variant & 8) { }
1688 2 12 if $truncate
1698 82 41371 if ($time >= $sun_limit)
1712 28770 8754 if ($want_visible and not @info and not $dawn and $time < $sun_screen)
1724 6748 5935 $elev < -0.4 ? :
1734 2 661 if ($elev < $screening_horizon or @info and $elev < $effective_horizon and $info[-1]{'elevation'} >= $effective_horizon or $truncate and $time >= $pass_end)
1739 8101 3921 unless $visible
1740 11909 113 unless @info
1748 1 112 if $truncate and $time < $pass_start
1753 112 0 if $try_elev < $effective_horizon
1754 0 0 $time < $suntim ? :
1755 0 0 if 1 == $litup and not $tle->illuminated($time)
1814 3 110 if $truncate
1830 110 3 unless $truncate
1848 0 113 if $debug
1863 0 113 if ($sat_set < $pass_start)
1875 0 113 if $debug
1882 219 120 if ($sun)
1883 73 146 if not $suntim or $time >= $suntim
1887 219 0 $time < $suntim ? :
1888 48 171 if 1 == $litup and not $tle->illuminated($time)
1908 73 40 if ($sun)
1912 73 146 unless $prior
1914 110 36 if $prior->{'illumination'} == $evt->{'illumination'}
1921 282 0 $_[0] < $suntim ? :
1923 154 128 if 1 == $litup and not $tle->illuminated($_[0])
1951 269 50 if $event->{'elevation'} < $pass_threshold
1954 3 47 unless not $want_visible or $event->{'illumination'} == "lit"
1959 66 47 unless (eval { do { foreach my $event (@info) { next if $event->{'elevation'} < $pass_threshold; next unless not $want_visible or $event->{'illumination'} == "lit"; return 1; } ; return 0 } })
1970 0 47 if ($pass_variant & 16)
1978 20 27 if ($pass_variant & 1)
1984 12 58 unless $_->{'illumination'} == "lit" or $_->{'event'} == "shdw"
1990 1 19 if ($pass_variant & 2 and not grep({$_->{'event'} == "max";} @info))
1998 1 0 $info[0]{'elevation'} > $info[-1]{'elevation'} ? :
2016 8 39 if ($pass_variant & 4)
2028 2 45 if ($truncate)
2030 1 1 if ($prior <= $pass_start)
2034 1 0 if $elevation > $effective_horizon
2038 1 1 if $info[-1]{'elevation'} > $effective_horizon and $info[-1]{'time'} >= $pass_end
2066 33 12 if $angle > $appulse_dist
2083 0 12 if $debug
2106 2 45 if ($verbose)
2114 2 30 if $events{$it}
2136 14 33 if @info > $number_of_events
2140 0 47 unless defined $culmination
2162 415 246 if ($sun) { }
2163 415 0 $time < $sun_screen ? :
2169 415 0 $time < $suntim ? :
2170 86 329 if $litup == 1 and $sun_elev_from_sat < 0
2228 44 1 unless embodies($body, "Astro::Coord::ECI::TLE")
2242 1 15 unless defined $smallest and $angle > $smallest
2281 0 0 unless @wrk
2292 0 0 unless @wrk
2299 0 0 unless (@wrk > 1)
2318 0 0 if $wrk[-1][0] < $latest
2337 0 0 $sun_elev < $twilight ? :
2491 0 87 unless __instance($tle, __PACKAGE__)
2496 0 87 unless $tle->get("reblessable")
2497 87 0 unless (@args)
2498 0 87 unless my $id = $tle->get("id")
2499 87 0 unless $id =~ / [^0-9] /msx
2504 0 87 'HASH' eq ref $args[0] ? :
0 87 unless my $class = "HASH" eq ref $args[0] ? $args[0]{'class'} || $args[0]{'type'} : shift @args
2506 87 0 if $type_map{$class}
2508 0 87 unless __classisa($class, __PACKAGE__)
2583 0 216 if @args % 2
2585 216 0 if (ref $self) { }
2593 194 1918 unless (exists $extant->{$name})
2597 0 1918 unless defined $attrib{$name}
2598 684 1234 if ('CODE' eq ref $attrib{$name}) { }
2599 167 517 if $attrib{$name}->($self, $name, $val)
2605 71 145 if $clear
2648 0 0 if ($cmd eq 'add') { }
0 0 elsif ($cmd eq 'clear') { }
0 0 elsif ($cmd eq 'drop') { }
0 0 elsif ($cmd eq 'dump') { }
0 0 elsif ($cmd eq 'show') { }
0 0 elsif ($cmd eq 'yaml') { }
2650 0 0 unless $id
2653 0 0 unless $id =~ / [^0-9] /msx
2655 0 0 unless $type
2659 0 0 unless __classisa($class, __PACKAGE__)
2663 0 0 if (my $code = $class->can("__decode_operational_status"))
2678 0 0 if (not defined $type) { }
2682 0 0 unless __classisa($class, __PACKAGE__)
2686 0 0 if $status{$key}{'class'} eq $class
2690 0 0 unless my $id = $arg[0]
2703 0 0 @arg ? :
2706 0 0 if defined wantarray
2713 0 0 defined $status{$_} ? :
0 0 @arg ? :
2722 0 0 unless load_module("YAML")
2725 0 0 @arg ? :
2728 0 0 if defined wantarray
2771 0 2 if $self->is_deep
2799 0 2 if $self->{'debug'}
2838 5 2 $a > $parm->{'q0'} ? :
2845 0 7 if $self->{'debug'}
2861 0 7 if $self->{'debug'}
2876 7 20 if abs $tem5 < "1e-06" or $item3++ >= 10
2880 2 18 if $tem2 > 1
2883 0 7 if $self->{'debug'}
2897 0 7 if $self->{'debug'}
2898 2 5 if $el2 > 1
2908 0 5 if $self->{'debug'}
2987 0 2 if $self->is_deep
3029 0 2 unless ($perige >= 156)
3030 0 0 $perige > 98 ? :
3083 0 2 unless ($isimp)
3094 0 2 if $self->{'debug'}
3102 0 0 defined $d2 ? :
3103 0 0 defined $d3 ? :
3104 0 0 defined $d4 ? :
3112 0 0 defined $t2cof ? :
3113 0 0 defined $t3cof ? :
3114 0 0 defined $t4cof ? :
3115 0 0 defined $t5cof ? :
3171 0 7 unless ($parm->{'isimp'})
3191 0 7 if $self->{'debug'}
3192 2 5 if $e > 1 or $e < -1
3208 0 5 if $self->{'debug'}
3240 5 5 if abs $epw - $temp2 <= "1e-06"
3336 0 2 unless $self->is_deep
3368 2 0 unless ($perige >= 156)
3369 2 0 $perige > 98 ? :
3421 0 2 if $self->{'debug'}
3433 0 0 defined $t2cof ? :
3496 0 7 if $self->{'debug'}
3497 2 5 if $e > 1 or $e < -1
3525 5 18 if abs $epw - $temp2 <= "1e-06"
3621 0 2 if $self->is_deep
3705 2 0 if (abs $xndtn * 1440.0 < 0.00216) { }
3801 0 2 if $self->{'debug'}
3803 0 0 defined $a3cof ? :
3804 0 0 defined $cosi ? :
3805 0 0 defined $cosio2 ? :
3806 0 0 defined $ed ? :
3807 0 0 defined $edot ? :
3808 0 0 defined $gamma ? :
3809 0 0 defined $isimp ? :
3810 0 0 defined $omgdt ? :
3811 0 0 defined $ovgpp ? :
3812 0 0 defined $pp ? :
3813 0 0 defined $qq ? :
3814 0 0 defined $sini ? :
3815 0 0 defined $sinio2 ? :
3816 0 0 defined $theta2 ? :
3817 0 0 defined $tthmun ? :
3818 0 0 defined $unm5th ? :
3819 0 0 defined $unmth2 ? :
3820 0 0 defined $xgdt1 ? :
3821 0 0 defined $xhdt1 ? :
3822 0 0 defined $xlldot ? :
3823 0 0 defined $xmdt1 ? :
3824 0 0 defined $xnd ? :
3825 0 0 defined $xndt ? :
3826 0 0 defined $xnodot ? :
3827 0 0 defined $xnodp ? :
3867 7 0 if ($parm->{'isimp'}) { }
3892 5 20 if abs $cape - $zc2 <= "1e-06"
3901 0 7 if $self->{'debug'}
3902 2 5 if $beta2m < 0
4008 0 2 unless $self->is_deep
4143 5 33 if abs $cape - $zc2 <= "1e-06"
4152 0 7 if $self->{'debug'}
4153 2 5 if $beta2m < 0
4248 0 18318 unless my $model = $self->{'model'}
4429 0 8 $xqncl < 0.052359877 ? :
4447 4 4 unless ($lunar)
4471 4 4 $lunar ? :
4486 0 4 if ($xnq < 0.0052359877 and $xnq > 0.0034906585) { }
4 0 elsif ($xnq < 0.00826 or $xnq > 0.00924 or $eq < 0.5) { }
4528 0 0 if ($eq <= 0.65) { }
4551 0 0 $eq > 0.715 ? :
4556 0 0 if ($eq < 0.7) { }
4616 0 4 if defined $bfact
4627 0 4 if ($self->{'debug'})
4631 0 0 defined $atime ? :
4632 0 0 defined $cosiq ? :
4633 0 0 defined $d2201 ? :
4634 0 0 defined $d2211 ? :
4635 0 0 defined $d3210 ? :
4636 0 0 defined $d3222 ? :
4637 0 0 defined $d4410 ? :
4638 0 0 defined $d4422 ? :
4639 0 0 defined $d5220 ? :
4640 0 0 defined $d5232 ? :
4641 0 0 defined $d5421 ? :
4642 0 0 defined $d5433 ? :
4643 0 0 defined $del1 ? :
4644 0 0 defined $del2 ? :
4645 0 0 defined $del3 ? :
4646 0 0 defined $e3 ? :
4647 0 0 defined $ee2 ? :
4648 0 0 defined $fasx2 ? :
4649 0 0 defined $fasx4 ? :
4650 0 0 defined $fasx6 ? :
4651 0 0 defined $iresfl ? :
4652 0 0 defined $isynfl ? :
4653 0 0 defined $omgdt ? :
4654 0 0 defined $se2 ? :
4655 0 0 defined $se3 ? :
4656 0 0 defined $sgh2 ? :
4657 0 0 defined $sgh3 ? :
4658 0 0 defined $sgh4 ? :
4659 0 0 defined $sh2 ? :
4660 0 0 defined $sh3 ? :
4661 0 0 defined $si2 ? :
4662 0 0 defined $si3 ? :
4663 0 0 defined $siniq ? :
4664 0 0 defined $sl2 ? :
4665 0 0 defined $sl3 ? :
4666 0 0 defined $sl4 ? :
4667 0 0 defined $sse ? :
4668 0 0 defined $ssg ? :
4669 0 0 defined $ssh ? :
4670 0 0 defined $ssi ? :
4671 0 0 defined $ssl ? :
4672 0 0 defined $step2 ? :
4673 0 0 defined $stepn ? :
4674 0 0 defined $stepp ? :
4675 0 0 defined $thgr ? :
4676 0 0 defined $xfact ? :
4677 0 0 defined $xgh2 ? :
4678 0 0 defined $xgh3 ? :
4679 0 0 defined $xgh4 ? :
4680 0 0 defined $xh2 ? :
4681 0 0 defined $xh3 ? :
4682 0 0 defined $xi2 ? :
4683 0 0 defined $xi3 ? :
4684 0 0 defined $xl2 ? :
4685 0 0 defined $xl3 ? :
4686 0 0 defined $xl4 ? :
4687 0 0 defined $xlamo ? :
4688 0 0 defined $xli ? :
4689 0 0 defined $xni ? :
4690 0 0 defined $xnq ? :
4691 0 0 defined $zmol ? :
4692 0 0 defined $zmos ? :
4781 0 0 defined $_ ? :
4782 0 0 if ('SCALAR' eq ref $_) { }
0 14 if $self->{'debug'}
4790 4 10 if (($$xinc = $self->{'inclination'} + $dpsp->{'ssi'} * $t) < 0)
4796 0 14 if ($dpsp->{'iresfl'})
4801 0 0 if (not $dpsp->{'atime'} or $t >= 0 and $dpsp->{'atime'} < 0 or $t < 0 and $dpsp->{'atime'} >= 0)
4807 0 0 $t >= 0 ? :
4813 0 0 if (abs $t >= abs $dpsp->{'atime'})
4814 0 0 $t > 0 ? :
4817 0 0 $t > 0 ? :
4829 0 0 $dpsp->{'isynfl'} ? :
4832 0 14 if $self->{'debug'}
4870 0 0 if ($dpsp->{'isynfl'}) { }
4910 0 0 if (defined $delt)
4934 0 0 defined $_ ? :
4935 0 0 if ('SCALAR' eq ref $_) { }
0 14 if $self->{'debug'}
4952 12 2 unless (defined $dpsp->{'savtsn'} and abs $dpsp->{'savtsn'} - $t < 30)
4986 14 0 if ($self->{'inclination'} >= 0.2) { }
5020 0 14 if $self->{'debug'}
5256 0 418 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
5275 23 395 if ($parm->{'init'})
5289 23 395 if ($parm->{'init'})
5307 395 23 unless ($parm->{'init'})
5328 232 163 if ($$inclp >= 0.2) { }
5351 57 106 if (abs $xnoh - $$nodep > &SGP_PI)
5352 57 0 if ($$nodep < $xnoh) { }
5439 0 23 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
5441 0 23 unless my $init = $parm->{'init'}
5559 23 23 if ($lsflg == 1)
5707 0 23 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
5709 0 23 unless my $init = $parm->{'init'}
5739 6 17 if ($init->{'xn'} < "0.0052359877" and $init->{'xn'} > "0.0034906585")
5742 5 9 if ($init->{'xn'} >= "0.00826" and $init->{'xn'} <= "0.00924" and $init->{'eccm'} >= "0.5")
5755 3 20 if ($init->{'inclm'} < "0.052359877" or $init->{'inclm'} > &SGP_PI - "0.052359877")
5759 23 0 if ($init->{'sinim'} != 0)
5772 3 20 if ($init->{'inclm'} < "0.052359877" or $init->{'inclm'} > &SGP_PI - "0.052359877")
5778 23 0 if ($init->{'sinim'} != 0)
5802 11 12 if ($parm->{'irez'} != 0)
5806 5 6 if ($parm->{'irez'} == 2)
5814 1 4 if ($init->{'eccm'} <= 0.65) { }
5838 2 2 if ($init->{'eccm'} > 0.715) { }
5847 2 3 if ($init->{'eccm'} < 0.7) { }
5922 6 5 if ($parm->{'irez'} == 1)
6033 0 397 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
6082 220 177 if ($parm->{'irez'} != 0)
6085 0 0 if ($$atime == 0 or $t >= 0 and $$atime < 0 or $t < 0 and $$atime >= 0)
6087 195 25 if ($t >= 0) { }
6099 0 544 if (abs $t < abs $$atime or $iret == 351) { }
6100 0 0 if ($t >= 0) { }
6108 485 59 if ($t > 0) { }
6113 324 220 if (abs $t - $$atime >= $stepp) { }
6124 219 325 if ($parm->{'irez'} != 2) { }
6165 324 220 if ($iretn == 381)
6175 125 95 if ($parm->{'irez'} != 1) { }
6244 0 35 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
6246 0 35 unless my $init = $parm->{'init'}
6298 9 26 if ($parm->{'gsto'} < 0)
6458 0 35 if $self->{'eccentricity'} > 1
6460 0 35 if $self->{'eccentricity'} < 0
6462 0 35 if $self->{'meanmotion'} < 0
6465 1 34 if ($init->{'rp'} < 1)
6470 35 0 if ($init->{'omeosq'} >= 0 or $parm->{'meanmotion'} >= 0)
6472 16 19 if ($init->{'rp'} < 220 / $parm->{'radiusearthkm'} + 1)
6480 9 26 if ($perige < 156)
6482 3 6 if ($perige <= 98)
6502 33 2 if ($parm->{'eccentricity'} > "0.0001")
6535 33 2 if ($parm->{'eccentricity'} > "0.0001")
6541 35 0 if (abs $init->{'cosio'} + 1 > 1.5e-12) { }
6554 23 12 if (&SGP_TWOPI / $parm->{'meanmotion'} >= 225)
6572 4 31 unless ($parm->{'isimp'})
6742 85 18735 unless ($parm->{'isimp'})
6761 397 18423 if ($parm->{'deep_space'})
6769 0 18820 if ($xn <= 0)
6777 0 18820 if $self->{'debug'}
6779 4 18816 if ($eccm >= 1 or $eccm < "-0.001" or $am < "0.95")
6786 4 8 $self->can($thing) ? :
8 4 if (defined(my $value = $self->can($thing) ? $self->$thing : $self->get($thing))) { }
6792 0 8 unless defined $diag
6800 5 18811 if ($eccm < 0)
6824 395 18421 if ($parm->{'deep_space'})
6826 26 369 if ($xincp < 0)
6831 0 395 if ($eccp < 0 or $eccp > 1)
6838 395 18421 if ($parm->{'deep_space'})
6843 395 0 if (abs $cosip + 1 > 1.5e-12) { }
6870 27 56874 if ($temp > 1)
6882 0 18816 if ($pl < 0) { }
6901 395 18421 if ($parm->{'deep_space'})
6943 0 18816 if ($mr < 1)
7048 0 35 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
7050 0 35 if ($self->{'gravconst_r'} == 721)
7061 35 0 if ($self->{'gravconst_r'} == 72)
7072 0 35 if ($self->{'gravconst_r'} == 84)
7210 916 1 if (defined $time) { }
7246 0 0 if (defined(my $effective = $self->get("effective")))
7434 0 0 'CODE' eq ref $map ? :
7439 0 0 if defined $val and $val ne ""
7442 0 0 if (defined(my $tle = $self->get("tle")))
7449 0 0 if defined $lines[$line] and $lines[$line] =~ / \S /msx
7451 0 0 if (defined(my $name = $self->get("name")))
7524 0 0 unless $string =~ / \A \s* ( [0-9]+ ) [^0-9]+ ( [0-9]+ ) [^0-9]+ ( [0-9]+ ) [^0-9]+ ( [0-9]+ ) [^0-9]+ ( [0-9]+ ) [^0-9]+ ( [0-9]+ ) (?: ( [.] [0-9]* ) )? \s* \z /msx
7535 0 0 if defined $frac and $frac ne "."
7544 0 0 eval { do { require JSON; 1 } } ? :
0 0 unless defined $have_json
7548 0 0 unless $have_json
7551 0 0 'HASH' eq ref $args[0] ? :
7557 0 0 'ARRAY' eq ref $decode ? :
7575 0 0 if (exists $hash->{'SATNAME'})
7576 0 0 if warnings::enabled("deprecated")
7580 0 0 unless exists $hash->{'OBJECT_NAME'}
7585 0 0 unless defined $hash->{$key}
7591 0 0 if defined $hash->{'INTLDES'}
7595 0 0 if defined $hash->{$key}
7599 0 0 if defined $hash->{'EPOCH_MICROSECONDS'}
7621 0 0 unless my $attr = $json_map{$key}
7629 0 0 unless defined $hash->{$key}
7667 0 0 'HASH' eq ref $args[0] ? :
7669 0 0 if (@args) { }
7674 0 0 if eval { do { foreach my $time (sort {$a <=> $b;} keys %args) { $self->universal($time); } ; 1 } }
7680 0 0 unless $opt->{'quiet'}
7693 8 21 if $rslt < 0
7723 3 39 unless $sun
7727 38 58 if $evt->{'time'} > $when
7741 15 15 if $tle->get("lazy_pass_position")
7763 2 1 $self->{'inertial'} ? :
7773 0 3 unless &looks_like_number($number)
7775 0 3 if $number =~ / \A nan \z /imsx
7777 0 3 if $number =~ / \A [+-]? inf (?: inity )? \z /imsx
7831 0 0 if (defined $name)
7833 0 0 if $name ne ""
7837 0 0 if (my $code = $self->can("__encode_operational_status"))
7842 0 0 unless defined(my $value = $self->get($name))
7845 0 0 if @line0
7851 0 0 if defined($ele{$_} = $self->get($_))
7856 0 0 if (@missing_fields)
7859 0 0 if @required_fields == @missing_fields
7862 0 0 defined $oid ? :
7886 0 0 if ($ele{$key}) { }
7937 0 0 if ($_ eq '-') { }
0 0 elsif (/ [0-9] /msx) { }
7953 0 63 if $oid =~ / [^0-9] /msx
7969 108 0 unless (ref $body)
7970 108 0 if $type_map{$body}
7973 0 108 unless embodies($body, "Astro::Coord::ECI")
7979 108 0 unless ref $body
7987 31 13 if (defined $val and $val =~ / \S /msx)
7998 32 30 unless $working =~ / \A $re \z /msx
8002 11 19 $year < 57 ? :
30 0 if $year < 100
8062 3 1 defined $val ? :
8070 3 1 unless $intldes{'launch_year'} eq ""
8074 1 3 $intldes{'launch_year'} eq '' ? :
1 3 $intldes{'launch_num'} eq '' ? :
8101 0 0 if (defined $value) { }
8102 0 0 if ($value =~ / \A [0-9]+ \z /msx) { }
8107 0 0 unless (defined $self->{$name})
8126 0 3 if (defined $value and not _looks_like_real($value))
8142 0 0 if (defined $value and $value =~ / [^0-9] /msx)
8152 0 95 unless ref $sta
8155 0 95 unless defined $suntim
8157 42 53 unless $dawn
8159 53 42 $dawn ? :