NAME

Date::Leapsecond - translates between UTC and UT1 timescales

SYNOPSIS

use Date::Leapsecond;
use Time::Local;  

$epoch_2000 = timegm(0,0,0,1,0,2000 - 1900);
$epoch_1990 = timegm(0,0,0,1,0,1990 - 1900);
print "Seconds between years 1990 and 2000 are ";
print Date::Leapsecond::ut1($epoch_2000) - 
      Date::Leapsecond::ut1($epoch_1990); 
print " instead of ";
print $epoch_2000 - 
      $epoch_1990; 

DESCRIPTION

Use UT1 timescale to calculate precise time differences.

This library uses 1 second precision and is known accurate for dates from 1970-01-01 until 2002-12-31.

ut1

Returns the value of UT1 epoch, for a given UTC epoch.

UTC epoch is got from Time::Local

utc

Returns the value of UTC epoch, for a given UT1 epoch.

AUTHOR

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

SEE ALSO

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