DateTime::Format::Epoch::TAI64 0.10

DateTime::Format::Epoch::TAI64 is a Perl module that can convert DateTimes to/from TAI64 values.

SYNOPSIS

use DateTime::Format::Epoch::TAI64;

my $dt = DateTime::Format::Epoch::TAI64
->parse_datetime( 4611686019483526367 );
# 2003-06-20T19:49:59

DateTime::Format::Epoch::TAI64->format_datetime($dt);
# 4611686019483526367

my $formatter = DateTime::Format::Epoch::TAI64->new();

$dt = $formatter->parse_datetime( 4611686019483526367 );
# 2003-06-20T19:49:59

$formatter->format_datetime($dt);
# 4611686019483526367

my $str_frmt = DateTime::Format::Epoch::TAI64->new(
format => string );

$dt = $str_frmt->parse_datetime( "x40 x3exf3x69x6a" );
# 2003-06-20T19:49:59

$str_frmt->format_datetime($dt);
# "x40 x3exf3x69x6a"

This module can convert a DateTime object (or any object that can be converted to a DateTime object) to a TAI64 value. The TAI64 timescale covers the entire expected lifespan of the universe (at least, if you expect the universe to be closed).