NAME
    Time::TAI64 - support for Temps Atomique International

SYNOPSIS
        use Time::TAI64;
   
        printf "%4d-%02d-%02d %02d:%02d:%02d.%09d\n",
            tai64nlocal('400000003c7c743a2121589c');

DESCRIPTION
    This module provides support for the hiresolution and somewhat long
    lasting TAI time format. It's 64 bit and goes down to nanoseconds.
    At least, the TAI64N format does while TAI64 just goes to seconds.

    This module provides a routine to convert from TAI back to a usable
    form. It will provide more functions as I get time to do things with
    them.

    It's in XS since the operation to perform the conversion is not one
    of Perl's forte's and is really quite slow (well, my somewhat
    straight conversion from C to Perl performed quite badly). Other
    versions, including pure Perl, are provided in the benchmarks
    directory in the module distribution.

FUNCTIONS
  my $str = caldate_fmt($year, $month, $day)
    Given a year, month and day it returns an ISO formatted string
    representation of that date.

  my ($year, $month, $day) = caldate_scan($str)
    Given an ISO formatted string, or a string started with an ISO
    formatted date, ithis function returns the year, month and day. If
    used within a scalar context, it returns an arrayref of the elements
    (as a Time::TAI64::Caldate object).

  my $mjd = caldate_mjd($year, $month, $day)
    Returns the Modified Julian Day for the given date.

  my ($year, $month, $day) = caldate_frommjd($mjd)
    Returns the year, month, day triple fo the given Modified Julian
    Day.

  ($year, $month, $day) = caldate_normalise($year, $month, $day)
    Normalises the values of year, month and day so that they are within
    their accepted ranges.

  my ($year,$month,$day) = caldate_easter($year)
    Returns the full date of Easter Sunday for the given year.

  my ($secs, $nano) = tai64n($time)
    Takes a 24 hex-digit number as input and returns the seconds and
    nanoseconds the time represents. Seconds are standard Unix style.

  my @time = tai64nlocal($time)
    Takes a 24 hex-digit number as input and returns the year, month,
    day, hour, min, sec and nanosecs that the number represents. All
    numbers are normalised (i.e. it will return 1998, not 98; and
    January is 1, not 0).

AUTHOR
    Iain Truskett <spoon@cpan.org> <http://eh.org/~koschei/>

    Please report any bugs, or post any suggestions, to either the
    mailing list at <cpan@dellah.anu.edu.au> (email
    <cpan-subscribe@dellah.anu.edu.au> to subscribe) or directly to the
    author at <spoon@cpan.org>

COPYRIGHT
    Copyright (c) 2002 Iain Truskett. All rights reserved. This program
    is free software; you can redistribute it and/or modify it under the
    same terms as Perl itself.

        $Id: TAI64.pm,v 1.7 2002/03/12 17:54:57 koschei Exp $

ACKNOWLEDGEMENTS
    DJB for writing libtai.

SEE ALSO
    See <http://cr.yp.to/time.html>