NAME

DateTime::LeapSecond - leap seconds table and utilities

SYNOPSIS

use DateTime;
use DateTime::LeapSecond;

print "Leap seconds between years 1990 and 2000 are ";
print Date::Leapsecond::leap_seconds( $utc_rd_2000 ) - 
      Date::Leapsecond::leap_seconds( $utc_rd_1990 ); 

DESCRIPTION

This module is used to calculate leap seconds for a given Rata Die day. It is mostly intended for use by the DateTime.pm, rather than for external users.

This library uses 1 second precision and is known to be accurate for dates until december 2003.

There are no leap seconds before 1972, because that's the year this system was implemented.

leap_seconds( $rd )

Returns the number of accumulated leap seconds for a given day, in the range 9 .. 32.

extra_seconds( $rd )

Returns the number of leap seconds for a given day, in the range -2 .. 2.

day_length( $rd )

Returns the number of seconds for a given day, in the range 86398 .. 86402.

AUTHOR

Flávio Soibelmann Glock, <fglock@pucrs.br>

COPYRIGHT

Copyright (c) 2003 Flávio Soibelmann Glock. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

<http://hpiers.obspm.fr/eop-pc/earthor/utc/leapsecond.html>

http://datetime.perl.org