Astro-App-Satpass2

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
  Correct Astro::App::Satpass2::FormatTime::DateTime documentation.
 
  Try to fix test failure under DragonFly BSD 3.1.0. I believe the
    failure is cosmetic, but ...
 
0.010           2012-10-26      T. R. Wyant
  Workaround for Date::Manip bug 80435: Date::Manip clobbers $ENV{PATH}
    on *nix.
 
0.009           2012-10-09      T. R. Wyant
  Have the Astro::App::Satpass2 spacetrack() method _not_ pass the
    options hash to Astro::SpaceTrack method spacetrack_query_v2().
 
0.008           2012-09-28      T. R. Wyant
  Fix MSWin32 test failures due to equivocation on which slash is used
    for a path delimiter.
 
  Skip output redirection test under MSWin32. I think the failure is a
    testing problem, but am not sure, so a note was added to the docs on
    this.

inc/My/Module/Recommend.pm  view on Meta::CPAN

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
EOD
    __any( 'Date::Manip'                => <<'EOD' .
      This module is not required, but the alternative to installing it
      is to specify times in ISO 8601 format.  See 'SPECIFYING TIMES' in
      the 'Astro::App::Satpass2' documentation for the details.
EOD
        ( $is_5_010 ? '' : <<'EOD' ) ),
 
      Unfortunately, the current Date::Manip requires Perl 5.10. Since
      you are running an earlier Perl, you can try installing Date-Manip
      5.54, which is the most recent version that does _not_ require
      Perl 5.10. This version of Date::Manip does not understand summer
      time (a.k.a. daylight saving time).
EOD
    __all( qw{ DateTime DateTime::TimeZone }    => <<'EOD' ),
      These modules are used to format times, and provide full time zone
      support. If they are not installed, POSIX::strftime() will be
      used, and you may find that you can not display correct local
      times for zones other than your system's default zone or GMT. They
      will also be used (if available) by the ISO8601 time parser
      because they go farther into the past than Time::Local does.

lib/Astro/App/Satpass2/Format.pm  view on Meta::CPAN

110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
        return $_[0]->time_formatter()->TIME_FORMAT()
    },
);
 
foreach my $key ( keys %static ) {
    $original_value{ $key } ||= sub {
        return $static{$key};
    };
}
 
my %not_part_of_config = map { $_ => 1 } qw{ parent warner };
 
sub config {
    my ( $self, %args ) = @_;
    my @data;
 
    foreach my $name ( $self->attribute_names() ) {
 
        $not_part_of_config{$name}
            and next;
 
        my $val = $self->$name();
        $args{decode}
            and ref $val
            and $val = $self->decode( $name );
 
        no warnings qw{ uninitialized };
 
        next if $args{changes} &&

lib/Astro/App/Satpass2/FormatValue.pm  view on Meta::CPAN

693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
#       {dimension} - A hash specifying the dimension of the value to be
#           formatted. This must contain a {dimension} key specifying
#           the name of the dimension, and may contain a {units} value
#           overriding the default units.
#
#       {fetch} - A code reference which returns the value to be
#           formatted. It will be passed arguments ( $self, $name, $arg
#           ), where $self is the invocant, $name is the name of the
#           formatter method, and $arg is a refernce to the arguments
#           hash, which has already had _apply_defaults() called on it.
#           This code is _not_ called if the invocant was initialized
#           with title => 1.
#
#       {locale} - A hash specifying last-ditch localization
#           information. The keys are locale, the formatter name
#           (yes, this is a duplicate) and the item name.
 
my %formatter_data = (  # For generating formatters
 
    almanac     => {
        default => {

t/format_value.t  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
use Astro::Coord::ECI 0.059;
use Astro::Coord::ECI::Moon 0.059;
use Astro::Coord::ECI::TLE 0.059;
use Astro::Coord::ECI::Utils 0.059 qw{ deg2rad PI };
 
use Astro::App::Satpass2::FormatTime;
use Astro::App::Satpass2::FormatValue;
 
 
# Note that the following are _not_ real Keplerian elements for the
# International Space Station, or in fact any other orbiting body. The
# only data known to be real are the id, the name, and the internatinal
# launch designator. Instead of doing an actual position calculation, we
# simply set the model to 'null', and then set the ECI position we want.
 
my $time = 1223594621;  # 09-Oct-2008 23:23:41
my $epoch = 1223549582; # 09-Oct-2008 10:53:02
 
my $body = Astro::Coord::ECI::TLE->new(
    model => 'null',