File Coverage

blib/lib/DateTime/Format/Epoch/NTP.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	24	24	100.0

package DateTime::Format::Epoch::NTP;

use strict;
use warnings;

use vars qw($VERSION @ISA);

$VERSION = '0.14';

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

@ISA = qw/DateTime::Format::Epoch/;

my $epoch = DateTime->new( year => 1900, month => 1, day => 1,
                           time_zone => 'UTC' );

sub new {
	my $class = shift;

    return $class->SUPER::new( epoch => $epoch,
                               unit  => 'seconds',
                               type  => 'int',
                               skip_leap_seconds => 1 );
}

1;
__END__