Используя пример кода, включенного в справочную страницу для DateTime :: Astro :: Sunrise , я возвращаюсь ~ 14:00 для восхода солнца и ~ 2:00 для заката.
Время и часовой пояс моей машины установлены правильно (AFAIK).
Я что-то не так читаю?2 часа ночи и 2 часа ночи просто ужасно неправильны.
use DateTime;
use DateTime::Astro::Sunrise;
my $dt = DateTime->new( year => 2010,
month => 3,
day => 15,
);
my $sunrise = DateTime::Astro::Sunrise ->new('-117','33',undef,1);
my ($tmp_rise, $tmp_set) = $sunrise->sunrise($dt);
printf "%s\n", $tmp_rise;
printf "%s\n", $tmp_set;