DateTime::Event::Sunrise Beta number 3

[Hill, Ronald]

Hi All,

I have just completed the third beta for the Sunrise module. I have added
a set method (no documentation yet)I used the set API from
Rick's easter module (Thanks Rick!!)Here is the perl
script I used to test:

#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
use DateTime::Event::Sunrise;


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

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

my $sunrise = DateTime::Event::Sunrise ->new(
                     Longitude =>'-118' ,
                     Latitude => '33',
);

my @set = $sunrise->set(from=>$dt1, to=>$dt2, inclusive=>0);

foreach my $tmp(@set)   {
    $tmp->set_time_zone( 'America/Los_Angeles' );
    print $tmp->datetime ."\n";
}


This will be the last beta for this. Unless there is an API change
request.

Any problems please let me know.

Thanks

Ron Hill

Sunrise.pm
Description: Binary data