view release on metacpan or  search on metacpan

script/solequ.pl  view on Meta::CPAN

) or pod2usage(2);

pod2usage(1) if $help;
pod2usage(-verbose => 2) if $man;

# Initialize default options

$theme //= Astro::Montenbruck::Utils::Theme->create('dark');

$theme->print_data('Year', $year, title_width => 14);
$theme->print_data('Time Zone', $tzone, title_width => 14);
say();

for my $evt (@SOLEQU_EVENTS) {
    my $jd = solequ($year, $evt);
    my $dt = DateTime->from_epoch(epoch => jd2unix($jd))->set_time_zone($tzone); 
    $theme->print_data(
        $EVT_NAMES[$evt], 
        $dt->strftime('%F %T'), 
        title_width => 18,
        highlited => 1
    );
}

print "\n";


__END__

=pod

=encoding UTF-8

=head1 NAME

phases — calculate date/time of solstices and equinoxes for a given year.

=head1 SYNOPSIS

  solequ [options]

=head1 OPTIONS

=over 4

=item B<--help>

Prints a brief help message and exits.

=item B<--year>

Year, astronomical (zero-year allowed)

  --year=2021

=item B<--timezone>

Time zone name, e.g.: C<EST>, C<UTC>, C<Europe/Berlin> etc. 
or I<offset from Greenwich> in format B<+HHMM> / B<-HHMM>, like C<+0300>.

    --timezone=CET # Central European Time
    --timezone=EST # Eastern Standard Time
    --timezone=UTC # Universal Coordinated Time
    --timezone=GMT # Greenwich Mean Time, same as the UTC
    --timezone=+0300 # UTC + 3h (eastward from Greenwich)
    --timezone="Europe/Moscow"

By default, local timezone by default.

Please, note: Windows platform does not recognize some time zone names, C<MSK> for instance.
In such cases use I<offset from Greenwich> format, as described above.


=item B<--theme>: color theme

=over

=item * 

B<dark> (default): for dark consoles

=item * 

B<light>: for light consoles

=item 

* B<colorless>: without colors, for terminals that do not support ANSI color codes

=back

=item B<--no-colors>: do not use colors, same as C<--theme=colorless>

=back

=head1 DESCRIPTION

B<solequ> computes solstices and equinoxes for a given year.

=cut