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";.

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Datetime,  Datetimeeventsunrise,  Day,  Dt,  Libraries,  New,  Perl Datetime,  Print,  Programming,  Sunrise,  Sunset
Users rating:	0/10