1use DateTime::Calendar::Hebrew; 2use DateTime::Event::Sunrise; 3print "1..1\n"; 4 5my $sunset = DateTime::Event::Sunrise->sunset ( 6 # Latitude/Longitude for NYC 7 longitude =>'-73.59', 8 latitude =>'40.38', 9); 10 11# the date the Ancient Israelites left Egypt 12my $DT = new DateTime::Calendar::Hebrew( 13 year => 2449, 14 month => 1, 15 day => 15, 16 hour => 23, 17 minute => 59, 18 second => 0, 19 nanosecond => 987654321, 20 time_zone => 'America/New_York', 21 sunset => $sunset, 22); 23 24my $clone = $DT->clone; 25print Dumper $clone; 26if($DT->utc_rd_as_seconds == $clone->utc_rd_as_seconds) { print "ok\n"; } 27else { print "not ok\n"; } 28 29exit; 30