diff --git a/lib/Astro/Montenbruck/RiseSet.pm b/lib/Astro/Montenbruck/RiseSet.pm index a9253a9..2ee6ec2 100644 --- a/lib/Astro/Montenbruck/RiseSet.pm +++ b/lib/Astro/Montenbruck/RiseSet.pm @@ -358,7 +358,7 @@ L . =item * -B - array of B (astronomical, zero-based), B [1..12] and B, [1..31]. +B - array of B (astronomical, zero-based), B [1..12] and B, [1..31], in UTC. =item * @@ -484,7 +484,7 @@ or C<$TWILIGHT_CIVIL>, see L - array of B (astronomical, zero-based), B [1..12] and B, [1..31]. +B - array of B (astronomical, zero-based), B [1..12] and B, [1..31], in UTC. =item * diff --git a/script/moon_almanac.pl b/script/moon_almanac.pl index 1924878..7ed8059 100755 --- a/script/moon_almanac.pl +++ b/script/moon_almanac.pl @@ -11,6 +11,7 @@ our $VERSION = 0.01; use Getopt::Long qw/GetOptions/; +use Pod::Usage qw/pod2usage/; use POSIX qw/strftime floor/; use Carp qw/croak/; use DateTime; @@ -65,7 +66,7 @@ sub rise_set_transit { $MO, on_event => sub { my ( $evt, $jd_evt ) = @_; - $report{$evt} = jd2str( $jd_evt, $tz, format => '%H:%M %Z' ); + $report{$evt} = jd2str( $jd_evt, $tz, format => '%F %H:%M %Z' ); }, on_noevent => sub { my ( $evt, $state ) = @_; @@ -109,6 +110,10 @@ sub sun_moon_positions { 'place:s{2}' => \@place, ) or pod2usage(2); +pod2usage(1) if $help; +pod2usage( -verbose => 2 ) if $man; + + my $tz = DateTime::TimeZone->new( name => $tzone ); my $dt = parse_date( $start, $tzone ); @place = @DEFAULT_PLACE unless @place; @@ -130,7 +135,7 @@ sub sun_moon_positions { for (my $jd = $jd_start; $jd < $jd_end; $jd+=$step) { my @date = jd2cal($jd); - say sprintf( 'Date : %s', sprintf('%d-%02d-%02d', @date) ); + say sprintf( 'Date: %s', sprintf('%d-%02d-%02d UTC', @date) ); say ''; my %rst = rise_set_transit(@date, $lat, $lon, $tz); @@ -144,7 +149,7 @@ sub sun_moon_positions { my ($phase, $deg, $days) = moon_phase(moon => $mo, sun => $su); say sprintf("Phase: %s\nAge: %5.2f deg. = %d days", $phase, $deg, $days); - say "\n---\n" + say "\n---\n" ; } @@ -187,20 +192,22 @@ =head1 OPTIONS =item B<--timezone> -Time zone name, e.g.: C, C, C etc. -or I in format B<+HHMM> / B<-HHMM>, like C<+0300>. +I