view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Iridium 61 spare
    - Iridium 62 spare
    - Iridium 68 failed
    - Iridium 81 spare
    - Iridium 90 failed
    - Iridium 96 failed
    - Iridium 97 spare

Decays are from Space Track. Other status changes are from Dr. T. S.
Kelso's Celestrak web site. "Spare" conflates several Celestrak
statuses; the above spares are typically "[B]" (backup) or "[P]" (partly
operational).

0.096		2018-05-23	T. R. Wyant
    Link to metacpan.org rather than search.cpan.org.

    Canned status updates:
    - Decay of Iridium 25
    - Decay of Iridium 72
    - Iridium 64 now spare per Kelso
    - Iridium 66 now spare per Kelso

Changes  view on Meta::CPAN

    include:

    * Refactoring illumination and periodic position calculations in the
      pass() method;

    * Add public method intrinsic_events(), which returns events
      intrinsic to the body, rather than observational ones like rise
      and set, and call it in the pass() method;

    * Add protected (and therefore doubly experimental) method
      __pass_backup_earliest() to limit how hard the pass() method tries
      to find a rise time when the pass starts with the body above the
      horizon.

    I have no idea whether the class this is in support of will ever see
    the light of day.

  Improve Astro::Coord::ECI::Utils::find_first_true() documentation.

0.060		2013-12-18	T. R. Wyant
  In eg/almanac, correct the handling of -sun and -moon when exactly one

script/satpass  view on Meta::CPAN

        inconvenience.

eod

my $set_loc = @_;
my $loc = shift @_ || $parm{location};

#	Manufacture an LWP::UserAgent object.

my $ua = LWP::UserAgent->new ();
foreach my $url (qw{http://geocoder.ca/ http://backup-geocoder.ca/}) {
    my $rslt = $ua->post  ($url,
	{locate => $loc, geoit => 'XML'});
    next unless $rslt->is_success ();
    $cmdopt{debug} and warn "Debug - Parsing ", $rslt->content;

    my @xml = _parse_xml ($rslt->content, 'geocode_ca');
    @xml = @{_find_first_tag (\@xml, 'geodata')};
    my @rslt;
    my $point = {};
    foreach (@xml) {