Astro-MoonPhase-Simple

 view release on metacpan or  search on metacpan

lib/Astro/MoonPhase/Simple.pm  view on Meta::CPAN

package Astro::MoonPhase::Simple;

use 5.006;
use strict;
use warnings;

use DateTime;
use DateTime::Format::ISO8601;
use DateTime::TimeZone;
use Data::Roundtrip qw/perl2dump no-unicode-escape-permanently/;
####
# Note that we require conditionally Geo::Location::TimeZone, see below
####

# the real heavy lifter!!! thank you :
use Astro::MoonPhase;

our $VERSION = '0.03';

use Exporter 'import';

script/moon-phase-calculator.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Getopt::Long qw/:config no_ignore_case/;
use Data::Roundtrip qw/perl2dump no-unicode-escape-permanently/;

use Astro::MoonPhase::Simple;

my $VERBOSITY = 0;

my $params = {};
my $OUTFILE;
if( ! Getopt::Long::GetOptions(
	"date|d=s" => sub {
		die "date does not parse YYYY-MM-DD : $_[1]"

t/100-calculate_moon_phase.t  view on Meta::CPAN

use warnings;

our $VERSION = '0.03';

use Test::More;

use FindBin;

use lib ($FindBin::Bin, 'blib/lib');

use Data::Roundtrip qw/perl2dump no-unicode-escape-permanently/;
use Config;

use Astro::MoonPhase::Simple;

my $VERBOSITY = 10;

###### WARNING These expected values expect
# that $dt->set_time_zone('UTC'); is used
# in lib/Astro/MoonPhase/Simple.pm
############################################

t/900-pod-examples.t  view on Meta::CPAN

use warnings;

our $VERSION = '0.03';

use Test::More;

use FindBin;

use lib ($FindBin::Bin, 'blib/lib');

use Data::Roundtrip qw/perl2dump no-unicode-escape-permanently/;
use Config;

use Astro::MoonPhase::Simple;

my $VERBOSITY = 10;

###### WARNING These expected values expect
# that $dt->set_time_zone('UTC'); is used
# in lib/Astro/MoonPhase/Simple.pm
############################################