DateTime::Event::Sunrise 0.0501

DateTime::Event::Sunrise is a Perl DateTime extension for computing the sunrise/sunset on a given day.

SYNOPSIS

use DateTime;
use DateTime::Event::Sunrise;

my $dt = DateTime->new( year => 2000,
month => 6,
day => 20,
);

my $sunrise = DateTime::Event::Sunrise ->sunrise (
longitude =>-118,
latitude =>33,
altitude => -0.833,
iteration => 1
);

my $sunset = DateTime::Event::Sunrise ->sunset (
longitude =>-118,
latitude =>33,
altitude => -0.833,
iteration => 1
);

my $tmp_rise = $sunrise->next( $dt );

my $dt2 = DateTime->new( year => 2000,
month => 12,
day => 31,
);

# iterator
my $dt_span = DateTime::Span->new( start =>$dt1, end=>$dt2 );
my $set = $sunrise->intersection($dt_span);
my $iter = $set->iterator;
while ( my $dt = $iter->next ) {
print ,$dt->datetime;
}

# is it day or night?
my $day_set = DateTime::SpanSet->from_sets(
start_set => $sunrise, end_set => $sunset );
print $day_set->contains( $dt ) ? day : night;

my $dt = DateTime->new( year => 2000, month => 6, day => 20, time_zone => America/Los_Angeles, );
my $sunrise = DateTime::Event::Sunrise ->new( longitude =>-118 , latitude => 33, altitude => -0.833, iteration => 1
);

my $tmp = $sunrise->sunrise_sunset_span($dt); print "Sunrise is:" , $tmp->start->datetime , "n"; print "Sunset is:" , $tmp->end->datetime;
my $dt1 = $sunrise->sunrise_datetime( $dt ); print "Sunrise is:" , $dt1->datetime , "n"; my $dt2 = $sunrise->sunset_datetime( $dt ); print "Sunset is:" , $dt2->datetime , "n";