File Coverage

blib/lib/Linux/Perl/TimeSpec.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	2	0.0
total	17	23	73.9

package Linux::Perl::TimeSpec;

use strict;
use warnings;

use constant {
    _TEMPLATE => 'L!L!',
    _NANO => 1_000_000_000,
};

sub from_float {
    my ($float) = @_;

    my $int      = int $float;
    my $fraction = $float - $int;

    return pack _TEMPLATE(), $int, ( $fraction * _NANO() );
}

sub to_float {
    my ($str) = @_;

    my ( $secs, $nsecs ) = unpack _TEMPLATE(), $str;

    return $secs + ( $nsecs / _NANO() );
}

1;