File Coverage

blib/lib/DateTime/TimeZone/TAI.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch	2	2	100.0
condition			n/a
subroutine	9	12	75.0
pod	7	7	100.0
total	47	53	88.6

package DateTime::TimeZone::TAI;

use strict;

use vars qw ($VERSION);
$VERSION = '0.00_01';

use base 'DateTime::TimeZone';

use DateTime::LeapSecond;

# TAI-UTC on 1972-01-01
use constant TAI_OFFSET => 10;

sub new
{
    my $class = shift;

    return bless { name => 'TAI' }, $class;
}

sub is_dst_for_datetime { 0 }

sub offset_for_datetime {
    my $self = shift;

    my $offset = TAI_OFFSET + $_[0]->leap_seconds;

    return $offset;
}

sub offset_for_local_datetime {
    my $self = shift;

    my $rd_as_seconds = $_[0]->local_rd_as_seconds;
    my $rd = int($rd_as_seconds/86_400);
    my $seconds = $rd_as_seconds % 86_400;

    my $offset = TAI_OFFSET + DateTime::LeapSecond::leap_seconds($rd);

    # We assume that TAI - UTC is positive (and that the total offset is
    # smaller than 86_400...)
    if ($seconds < $offset) {
        $offset = TAI_OFFSET + DateTime::LeapSecond::leap_seconds($rd - 1);
    }

    return $offset;
}

sub short_name_for_datetime { 'TAI' }

sub category { undef }

sub is_utc { 0 }

1;
__END__