File Coverage

blib/lib/Time/Monotonic.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	3	5	60.0
subroutine	8	8	100.0
pod	3	5	60.0
total	31	35	88.5

# Copyright © 2015 David Caldwell .
#
# This library is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself, either Perl version 5.12.4 or,
# at your option, any later version of Perl 5 you may have available.

use strict; use warnings;
package Time::Monotonic;
use Exporter 'import';
our @EXPORT_OK = qw(monotonic_time);

our $VERSION = 'v0.9.7';

require XSLoader;
XSLoader::load('Time::Monotonic', $VERSION);

sub monotonic_time {
    Time::Monotonic::clock_get_dbl();
}

sub backend {
    Time::Monotonic::monotonic_clock_name();
}

sub is_monotonic {
    Time::Monotonic::monotonic_clock_is_monotonic();
}

sub new {
    my ($class, $offset) = @_;
    my $now = monotonic_time() + ($offset // 0);
    bless \$now => ref $class || $class;
}

sub now {
    my $self = shift;
    return monotonic_time() - $$self;
}

1;
__END__