File Coverage

blib/lib/UID2/Client/Timestamp.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	8	8	100.0
total	44	44	100.0

package UID2::Client::Timestamp;
use strict;
use warnings;

use Time::HiRes qw(gettimeofday);

sub now {
    my $class = shift;
    $class->from_epoch_milli(int(gettimeofday() * 1000));
}

sub from_epoch_second {
    my ($class, $epoch_second) = @_;
    $class->from_epoch_milli($epoch_second * 1000);
}

sub from_epoch_milli {
    my ($class, $epoch_milli) = @_;
    bless \$epoch_milli, $class;
}

sub get_epoch_second {
    my $self = shift;
    int($$self / 1000);
}

sub get_epoch_milli {
    my $self = shift;
    $$self;
}

sub is_zero {
    my $self = shift;
    $$self == 0;
}

sub add_seconds {
    my ($self, $seconds) = @_;
    ref($self)->from_epoch_milli($$self + ($seconds * 1000));
}

sub add_days {
    my ($self, $days) = @_;
    $self->add_seconds($days * 24 * 60 * 60);
}

1;
__END__