Branch Coverage

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


line true false branch
253 0 16 unless eval { do { require Scalar::Util; "Scalar::Util"->import("dualvar"); 1 } }
536 0 48 if @args % 2
539 0 0 wantarray ? :
0 48 unless @args
542 0 48 unless (my $class = shift @args)
546 0 48 if $type_map{$class}
582 0 0 exists $attrib{$_[1]} ? :
655 0 12 if $type = $self->get("object_type")
657 1 11 unless defined(my $name = $self->get("name"))
659 0 11 if $name =~ / \A \s* \z /msx
661 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
667 3 2 if $name =~ m[ \b r/b \b ]imsx or $name =~ / \b [ap] km \b /imsx
734 59 0 unless defined $epoch
736 0 59 if ref $self and $self->{'debug'}
757 45601 0 if (ref $self) { }
758 40904 4697 unless exists $attrib{$name}
761 1 4696 $accessor{$name} ? :
763 0 0 unless exists $static{$name}
816 6 4 if exists $_[0]{&TLE_INIT}{'TLE_isdeep'}
893 0 1 unless defined(my $std_mag = $self->get("intrinsic_magnitude"))
898 0 1 unless my $illum = $self->get("illum")
905 0 1 unless $self->illuminated
912 0 1 if $elev < 0
916 1 0 $illum->isa('Astro::Coord::ECI::Sun') ? :
1113 0 29 unless my $code = $cmd_def{$cmd}
1132 5 21 if (my $effective = $self->get('effective')) { }
3 18 elsif (not $self->get('backdate')) { }
1189 0 0 $_[0]->is_deep ? :
1222 0 0 $_[0]->is_deep ? :
1262 2 13 'HASH' eq ref $args[0] ? :
1266 0 15 if ref $datum
1269 0 15 if ($datum =~ / \A \s* \[? \s* \{ /msx) { }
1274 0 96 if $line =~ / \A \s* [#] /msx
1275 96 0 if $line
1286 8 36 unless ($line =~ / \A 1 (\s* [0-9]+) /msx and length $1 == 6)
1291 0 44 if (length $line > 79 and substr($line, 79, 1) eq 'G') { }
1294 0 44 unless $line =~ /^1(\s*[0-9]+)/ and length $1 == 6
1296 44 0 if length $line < 80
1305 0 44 unless $line =~ /^2(\s*[0-9]+)/ and length $1 == 6
1307 15 29 if length $line < 80
1322 0 44 unless $ele{'id'} == $ele{'id_2'}
1360 15 0 if (keys %magnitude_table)
1362 0 44 unless defined(my $oid = $tle->get("id"))
1364 0 44 if defined $tle->get("intrinsic_magnitude")
1366 42 2 unless defined(my $std_mag = $magnitude_table{_normalize_oid($oid)})
1377 36 8 unless defined $name
1383 8 0 if $name ne ""
1591 0 14 unless defined $start
1593 0 14 unless defined $end
1602 12 2 if "ARRAY" eq ref $args[-1]
1611 0 14 unless defined $pass_start
1614 0 14 unless $pass_end >= $pass_start
1619 0 14 unless $pass_start <= $pass_end
1629 14 0 $tle->get('geometric') ? :
1635 13 1 $want_visible ? :
1637 0 14 unless defined $tle->get("intrinsic_magnitude")
1640 13 1 unless defined $pass_threshold and $pass_threshold > $horizon
1654 0 14 unless defined $period
1664 14 0 if $effective_horizon < $screening_horizon
1670 1 13 if ($pass_variant & 8) { }
1686 2 12 if $truncate
1696 82 41371 if ($time >= $sun_limit)
1710 28770 8754 if ($want_visible and not @info and not $dawn and $time < $sun_screen)
1722 6748 5935 $elev < -0.4 ? :
1732 2 661 if ($elev < $screening_horizon or @info and $elev < $effective_horizon and $info[-1]{'elevation'} >= $effective_horizon or $truncate and $time >= $pass_end)
1737 8101 3921 unless $visible
1738 11909 113 unless @info
1746 1 112 if $truncate and $time < $pass_start
1751 112 0 if $try_elev < $effective_horizon
1752 0 0 $time < $suntim ? :
1753 0 0 if 1 == $litup and not $tle->illuminated($time)
1812 3 110 if $truncate
1828 110 3 unless $truncate
1846 0 113 if $debug
1861 0 113 if ($sat_set < $pass_start)
1873 0 113 if $debug
1880 219 120 if ($sun)
1881 73 146 if not $suntim or $time >= $suntim
1885 219 0 $time < $suntim ? :
1886 48 171 if 1 == $litup and not $tle->illuminated($time)
1906 73 40 if ($sun)
1910 73 146 unless $prior
1912 110 36 if $prior->{'illumination'} == $evt->{'illumination'}
1919 282 0 $_[0] < $suntim ? :
1921 154 128 if 1 == $litup and not $tle->illuminated($_[0])
1949 269 50 if $event->{'elevation'} < $pass_threshold
1952 3 47 unless not $want_visible or $event->{'illumination'} == "lit"
1957 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 } })
1968 0 47 if ($pass_variant & 16)
1976 20 27 if ($pass_variant & 1)
1982 12 58 unless $_->{'illumination'} == "lit" or $_->{'event'} == "shdw"
1988 1 19 if ($pass_variant & 2 and not grep({$_->{'event'} == "max";} @info))
1996 1 0 $info[0]{'elevation'} > $info[-1]{'elevation'} ? :
2014 8 39 if ($pass_variant & 4)
2026 2 45 if ($truncate)
2028 1 1 if ($prior <= $pass_start)
2032 1 0 if $elevation > $effective_horizon
2036 1 1 if $info[-1]{'elevation'} > $effective_horizon and $info[-1]{'time'} >= $pass_end
2064 33 12 if $angle > $appulse_dist
2081 0 12 if $debug
2104 2 45 if ($verbose)
2112 2 30 if $events{$it}
2134 14 33 if @info > $number_of_events
2138 0 47 unless defined $culmination
2160 415 246 if ($sun) { }
2161 415 0 $time < $sun_screen ? :
2167 415 0 $time < $suntim ? :
2168 86 329 if $litup == 1 and $sun_elev_from_sat < 0
2226 44 1 unless embodies($body, "Astro::Coord::ECI::TLE")
2240 1 15 unless defined $smallest and $angle > $smallest
2279 0 0 unless @wrk
2290 0 0 unless @wrk
2297 0 0 unless (@wrk > 1)
2316 0 0 if $wrk[-1][0] < $latest
2335 0 0 $sun_elev < $twilight ? :
2489 0 87 unless __instance($tle, "Astro::Coord::ECI::TLE")
2494 0 87 unless $tle->get("reblessable")
2495 87 0 unless (@args)
2496 0 87 unless my $id = $tle->get("id")
2497 87 0 unless $id =~ / [^0-9] /msx
2502 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
2504 87 0 if $type_map{$class}
2506 0 87 unless __classisa($class, "Astro::Coord::ECI::TLE")
2581 0 216 if @args % 2
2583 216 0 if (ref $self) { }
2591 194 1918 unless (exists $extant->{$name})
2595 0 1918 unless defined $attrib{$name}
2596 684 1234 if ('CODE' eq ref $attrib{$name}) { }
2597 167 517 if $attrib{$name}->($self, $name, $val)
2603 71 145 if $clear
2646 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') { }
2648 0 0 unless $id
2651 0 0 unless $id =~ / [^0-9] /msx
2653 0 0 unless $type
2657 0 0 unless __classisa($class, "Astro::Coord::ECI::TLE")
2661 0 0 if (my $code = $class->can("__decode_operational_status"))
2676 0 0 if (not defined $type) { }
2680 0 0 unless __classisa($class, "Astro::Coord::ECI::TLE")
2684 0 0 if $status{$key}{'class'} eq $class
2688 0 0 unless my $id = $arg[0]
2701 0 0 @arg ? :
2704 0 0 if defined wantarray
2711 0 0 defined $status{$_} ? :
0 0 @arg ? :
2720 0 0 unless load_module("YAML")
2723 0 0 @arg ? :
2726 0 0 if defined wantarray
2769 0 2 if $self->is_deep
2797 0 2 if $self->{'debug'}
2836 5 2 $a > $parm->{'q0'} ? :
2843 0 7 if $self->{'debug'}
2859 0 7 if $self->{'debug'}
2874 7 20 if abs $tem5 < "1e-06" or $item3++ >= 10
2878 2 18 if $tem2 > 1
2881 0 7 if $self->{'debug'}
2895 0 7 if $self->{'debug'}
2896 2 5 if $el2 > 1
2906 0 5 if $self->{'debug'}
2985 0 2 if $self->is_deep
3027 0 2 unless ($perige >= 156)
3028 0 0 $perige > 98 ? :
3081 0 2 unless ($isimp)
3092 0 2 if $self->{'debug'}
3100 0 0 defined $d2 ? :
3101 0 0 defined $d3 ? :
3102 0 0 defined $d4 ? :
3110 0 0 defined $t2cof ? :
3111 0 0 defined $t3cof ? :
3112 0 0 defined $t4cof ? :
3113 0 0 defined $t5cof ? :
3169 0 7 unless ($parm->{'isimp'})
3189 0 7 if $self->{'debug'}
3190 2 5 if $e > 1 or $e < -1
3206 0 5 if $self->{'debug'}
3238 5 5 if abs $epw - $temp2 <= "1e-06"
3334 0 2 unless $self->is_deep
3366 2 0 unless ($perige >= 156)
3367 2 0 $perige > 98 ? :
3419 0 2 if $self->{'debug'}
3431 0 0 defined $t2cof ? :
3494 0 7 if $self->{'debug'}
3495 2 5 if $e > 1 or $e < -1
3523 5 18 if abs $epw - $temp2 <= "1e-06"
3619 0 2 if $self->is_deep
3703 2 0 if (abs $xndtn * 1440 < 0.00216) { }
3799 0 2 if $self->{'debug'}
3801 0 0 defined $a3cof ? :
3802 0 0 defined $cosi ? :
3803 0 0 defined $cosio2 ? :
3804 0 0 defined $ed ? :
3805 0 0 defined $edot ? :
3806 0 0 defined $gamma ? :
3807 0 0 defined $isimp ? :
3808 0 0 defined $omgdt ? :
3809 0 0 defined $ovgpp ? :
3810 0 0 defined $pp ? :
3811 0 0 defined $qq ? :
3812 0 0 defined $sini ? :
3813 0 0 defined $sinio2 ? :
3814 0 0 defined $theta2 ? :
3815 0 0 defined $tthmun ? :
3816 0 0 defined $unm5th ? :
3817 0 0 defined $unmth2 ? :
3818 0 0 defined $xgdt1 ? :
3819 0 0 defined $xhdt1 ? :
3820 0 0 defined $xlldot ? :
3821 0 0 defined $xmdt1 ? :
3822 0 0 defined $xnd ? :
3823 0 0 defined $xndt ? :
3824 0 0 defined $xnodot ? :
3825 0 0 defined $xnodp ? :
3865 7 0 if ($parm->{'isimp'}) { }
3890 5 20 if abs $cape - $zc2 <= "1e-06"
3899 0 7 if $self->{'debug'}
3900 2 5 if $beta2m < 0
4006 0 2 unless $self->is_deep
4141 5 33 if abs $cape - $zc2 <= "1e-06"
4150 0 7 if $self->{'debug'}
4151 2 5 if $beta2m < 0
4246 0 18318 unless my $model = $self->{'model'}
4427 0 8 $xqncl < 0.052359877 ? :
4445 4 4 unless ($lunar)
4469 4 4 $lunar ? :
4484 0 4 if ($xnq < 0.0052359877 and $xnq > 0.0034906585) { }
4 0 elsif ($xnq < 0.00826 or $xnq > 0.00924 or $eq < 0.5) { }
4526 0 0 if ($eq <= 0.65) { }
4549 0 0 $eq > 0.715 ? :
4554 0 0 if ($eq < 0.7) { }
4614 0 4 if defined $bfact
4625 0 4 if ($self->{'debug'})
4629 0 0 defined $atime ? :
4630 0 0 defined $cosiq ? :
4631 0 0 defined $d2201 ? :
4632 0 0 defined $d2211 ? :
4633 0 0 defined $d3210 ? :
4634 0 0 defined $d3222 ? :
4635 0 0 defined $d4410 ? :
4636 0 0 defined $d4422 ? :
4637 0 0 defined $d5220 ? :
4638 0 0 defined $d5232 ? :
4639 0 0 defined $d5421 ? :
4640 0 0 defined $d5433 ? :
4641 0 0 defined $del1 ? :
4642 0 0 defined $del2 ? :
4643 0 0 defined $del3 ? :
4644 0 0 defined $e3 ? :
4645 0 0 defined $ee2 ? :
4646 0 0 defined $fasx2 ? :
4647 0 0 defined $fasx4 ? :
4648 0 0 defined $fasx6 ? :
4649 0 0 defined $iresfl ? :
4650 0 0 defined $isynfl ? :
4651 0 0 defined $omgdt ? :
4652 0 0 defined $se2 ? :
4653 0 0 defined $se3 ? :
4654 0 0 defined $sgh2 ? :
4655 0 0 defined $sgh3 ? :
4656 0 0 defined $sgh4 ? :
4657 0 0 defined $sh2 ? :
4658 0 0 defined $sh3 ? :
4659 0 0 defined $si2 ? :
4660 0 0 defined $si3 ? :
4661 0 0 defined $siniq ? :
4662 0 0 defined $sl2 ? :
4663 0 0 defined $sl3 ? :
4664 0 0 defined $sl4 ? :
4665 0 0 defined $sse ? :
4666 0 0 defined $ssg ? :
4667 0 0 defined $ssh ? :
4668 0 0 defined $ssi ? :
4669 0 0 defined $ssl ? :
4670 0 0 defined $step2 ? :
4671 0 0 defined $stepn ? :
4672 0 0 defined $stepp ? :
4673 0 0 defined $thgr ? :
4674 0 0 defined $xfact ? :
4675 0 0 defined $xgh2 ? :
4676 0 0 defined $xgh3 ? :
4677 0 0 defined $xgh4 ? :
4678 0 0 defined $xh2 ? :
4679 0 0 defined $xh3 ? :
4680 0 0 defined $xi2 ? :
4681 0 0 defined $xi3 ? :
4682 0 0 defined $xl2 ? :
4683 0 0 defined $xl3 ? :
4684 0 0 defined $xl4 ? :
4685 0 0 defined $xlamo ? :
4686 0 0 defined $xli ? :
4687 0 0 defined $xni ? :
4688 0 0 defined $xnq ? :
4689 0 0 defined $zmol ? :
4690 0 0 defined $zmos ? :
4779 0 0 defined $_ ? :
4780 0 0 'SCALAR' eq ref $_ ? :
0 14 if $self->{'debug'}
4788 4 10 if (($$xinc = $self->{'inclination'} + $dpsp->{'ssi'} * $t) < 0)
4794 0 14 if ($dpsp->{'iresfl'})
4799 0 0 if (not $dpsp->{'atime'} or $t >= 0 and $dpsp->{'atime'} < 0 or $t < 0 and $dpsp->{'atime'} >= 0)
4805 0 0 $t >= 0 ? :
4811 0 0 if (abs $t >= abs $dpsp->{'atime'})
4812 0 0 $t > 0 ? :
4815 0 0 $t > 0 ? :
4827 0 0 $dpsp->{'isynfl'} ? :
4830 0 14 if $self->{'debug'}
4868 0 0 if ($dpsp->{'isynfl'}) { }
4908 0 0 if (defined $delt)
4932 0 0 defined $_ ? :
4933 0 0 'SCALAR' eq ref $_ ? :
0 14 if $self->{'debug'}
4950 12 2 unless (defined $dpsp->{'savtsn'} and abs $dpsp->{'savtsn'} - $t < 30)
4984 14 0 if ($self->{'inclination'} >= 0.2) { }
5018 0 14 if $self->{'debug'}
5254 0 418 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
5273 23 395 if ($parm->{'init'})
5287 23 395 if ($parm->{'init'})
5305 395 23 unless ($parm->{'init'})
5326 232 163 if ($$inclp >= 0.2) { }
5349 57 106 if (abs $xnoh - $$nodep > &SGP_PI)
5350 57 0 if ($$nodep < $xnoh) { }
5437 0 23 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
5439 0 23 unless my $init = $parm->{'init'}
5557 23 23 if ($lsflg == 1)
5705 0 23 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
5707 0 23 unless my $init = $parm->{'init'}
5737 6 17 if ($init->{'xn'} < "0.0052359877" and $init->{'xn'} > "0.0034906585")
5740 5 9 if ($init->{'xn'} >= "0.00826" and $init->{'xn'} <= "0.00924" and $init->{'eccm'} >= "0.5")
5753 3 20 if ($init->{'inclm'} < "0.052359877" or $init->{'inclm'} > &SGP_PI - "0.052359877")
5757 23 0 if ($init->{'sinim'} != 0)
5770 3 20 if ($init->{'inclm'} < "0.052359877" or $init->{'inclm'} > &SGP_PI - "0.052359877")
5776 23 0 if ($init->{'sinim'} != 0)
5800 11 12 if ($parm->{'irez'} != 0)
5804 5 6 if ($parm->{'irez'} == 2)
5812 1 4 if ($init->{'eccm'} <= 0.65) { }
5836 2 2 if ($init->{'eccm'} > 0.715) { }
5845 2 3 if ($init->{'eccm'} < 0.7) { }
5920 6 5 if ($parm->{'irez'} == 1)
6031 0 397 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
6080 220 177 if ($parm->{'irez'} != 0)
6083 0 0 if ($$atime == 0 or $t >= 0 and $$atime < 0 or $t < 0 and $$atime >= 0)
6085 195 25 if ($t >= 0) { }
6097 0 544 if (abs $t < abs $$atime or $iret == 351) { }
6098 0 0 if ($t >= 0) { }
6106 485 59 if ($t > 0) { }
6111 324 220 if (abs $t - $$atime >= $stepp) { }
6122 219 325 if ($parm->{'irez'} != 2) { }
6163 324 220 if ($iretn == 381)
6173 125 95 if ($parm->{'irez'} != 1) { }
6242 0 35 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
6244 0 35 unless my $init = $parm->{'init'}
6296 9 26 if ($parm->{'gsto'} < 0)
6456 0 35 if $self->{'eccentricity'} > 1
6458 0 35 if $self->{'eccentricity'} < 0
6460 0 35 if $self->{'meanmotion'} < 0
6463 1 34 if ($init->{'rp'} < 1)
6468 35 0 if ($init->{'omeosq'} >= 0 or $parm->{'meanmotion'} >= 0)
6470 16 19 if ($init->{'rp'} < 220 / $parm->{'radiusearthkm'} + 1)
6478 9 26 if ($perige < 156)
6480 3 6 if ($perige <= 98)
6500 33 2 if ($parm->{'eccentricity'} > "0.0001")
6533 33 2 if ($parm->{'eccentricity'} > "0.0001")
6539 35 0 if (abs $init->{'cosio'} + 1 > 1.5e-12) { }
6552 23 12 if (&SGP_TWOPI / $parm->{'meanmotion'} >= 225)
6570 4 31 unless ($parm->{'isimp'})
6740 85 18735 unless ($parm->{'isimp'})
6759 397 18423 if ($parm->{'deep_space'})
6767 0 18820 if ($xn <= 0)
6775 0 18820 if $self->{'debug'}
6777 4 18816 if ($eccm >= 1 or $eccm < "-0.001" or $am < "0.95")
6784 4 8 $self->can($thing) ? :
8 4 if (defined(my $value = $self->can($thing) ? $self->$thing : $self->get($thing))) { }
6790 0 8 unless defined $diag
6798 5 18811 if ($eccm < 0)
6822 395 18421 if ($parm->{'deep_space'})
6824 26 369 if ($xincp < 0)
6829 0 395 if ($eccp < 0 or $eccp > 1)
6836 395 18421 if ($parm->{'deep_space'})
6841 395 0 if (abs $cosip + 1 > 1.5e-12) { }
6868 27 56874 if ($temp > 1)
6880 0 18816 if ($pl < 0) { }
6899 395 18421 if ($parm->{'deep_space'})
6941 0 18816 if ($mr < 1)
7046 0 35 unless my $parm = $$self{&TLE_INIT}{'TLE_sgp4r'}
7048 0 35 if ($self->{'gravconst_r'} == 721)
7059 35 0 if ($self->{'gravconst_r'} == 72)
7070 0 35 if ($self->{'gravconst_r'} == 84)
7208 916 1 if (defined $time) { }
7244 0 0 if (defined(my $effective = $self->get("effective")))
7432 0 0 'CODE' eq ref $map ? :
7437 0 0 if defined $val and $val ne ""
7440 0 0 if (defined(my $tle = $self->get("tle")))
7447 0 0 if defined $lines[$line] and $lines[$line] =~ / \S /msx
7449 0 0 if (defined(my $name = $self->get("name")))
7522 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
7533 0 0 if defined $frac and $frac ne "."
7542 0 0 eval { do { require JSON; 1 } } ? :
0 0 unless defined $have_json
7546 0 0 unless $have_json
7549 0 0 'HASH' eq ref $args[0] ? :
7555 0 0 'ARRAY' eq ref $decode ? :
7573 0 0 if (exists $hash->{'SATNAME'})
7574 0 0 if warnings::enabled("deprecated")
7578 0 0 unless exists $hash->{'OBJECT_NAME'}
7583 0 0 unless defined $hash->{$key}
7589 0 0 if defined $hash->{'INTLDES'}
7593 0 0 if defined $hash->{$key}
7597 0 0 if defined $hash->{'EPOCH_MICROSECONDS'}
7619 0 0 unless my $attr = $json_map{$key}
7627 0 0 unless defined $hash->{$key}
7665 0 0 'HASH' eq ref $args[0] ? :
7667 0 0 if (@args) { }
7672 0 0 if eval { do { foreach my $time (sort {$a <=> $b;} keys %args) { $self->universal($time); } ; 1 } }
7678 0 0 unless $opt->{'quiet'}
7691 8 21 if $rslt < 0
7721 3 39 unless $sun
7725 38 58 if $evt->{'time'} > $when
7739 15 15 if $tle->get("lazy_pass_position")
7761 2 1 $self->{'inertial'} ? :
7771 0 3 unless &looks_like_number($number)
7773 0 3 if $number =~ / \A nan \z /imsx
7775 0 3 if $number =~ / \A [+-]? inf (?: inity )? \z /imsx
7829 0 0 if (defined $name)
7831 0 0 if $name ne ""
7835 0 0 if (my $code = $self->can("__encode_operational_status"))
7840 0 0 unless defined(my $value = $self->get($name))
7843 0 0 if @line0
7849 0 0 if defined($ele{$_} = $self->get($_))
7854 0 0 if (@missing_fields)
7857 0 0 if @required_fields == @missing_fields
7860 0 0 defined $oid ? :
7884 0 0 if ($ele{$key}) { }
7932 0 0 if ($_ eq '-') { }
0 0 elsif (/ [0-9] /msx) { }
7948 0 63 if $oid =~ / [^0-9] /msx
7964 108 0 unless (ref $body)
7965 108 0 if $type_map{$body}
7968 0 108 unless embodies($body, "Astro::Coord::ECI")
7974 108 0 unless ref $body
7982 31 13 if (defined $val and $val =~ / \S /msx)
7993 32 30 unless $working =~ / \A $re \z /msx
7997 11 19 $year < 57 ? :
30 0 if $year < 100
8057 3 1 defined $val ? :
8065 3 1 unless $intldes{'launch_year'} eq ""
8069 1 3 $intldes{'launch_year'} eq '' ? :
1 3 $intldes{'launch_num'} eq '' ? :
8096 0 0 if (defined $value) { }
8097 0 0 if ($value =~ / \A [0-9]+ \z /msx) { }
8102 0 0 unless (defined $self->{$name})
8121 0 3 if (defined $value and not _looks_like_real($value))
8137 0 0 if (defined $value and $value =~ / [^0-9] /msx)
8147 0 95 unless ref $sta
8150 0 95 unless defined $suntim
8152 42 53 unless $dawn
8154 53 42 $dawn ? :