File Coverage

blib/lib/Time/Nanos.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition	4	4	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	37	37	100.0

package Time::Nanos;

use strict;
use warnings;
use Exporter 'import';

our $VERSION = 'v0.1.4';
our @EXPORT  = qw(nanos micros millis);
our $CLOCK   = 'realtime';

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

sub nanos { hrtime(@_) }

sub micros {
	my $ret_array = $_[0] // 0;

	if ($ret_array) {
		my ($sec, $nsec) = nanos(1);
		return ($sec, int($nsec / 1000));
	}

	return int(nanos() / 1000);
}

sub millis {
	my $ret_array = $_[0] // 0;

	if ($ret_array) {
		my ($sec, $nsec) = nanos(1);
		return ($sec, int($nsec / 1_000_000));
	}
	return int(nanos() / 1_000_000);
}

1;

__END__