File Coverage

lib/SMB/Time.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition	2	4	50.0
subroutine	5	5	100.0
pod	2	2	100.0
total	22	24	91.6

# SMB-Perl library, Copyright (C) 2014 Mikhael Goikhman, [e-mail]
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see .

package SMB::Time;

use strict;
use warnings;

# bigint conflicts with Time::HiRes::time, prefer to lose precision for now
#use if (1 << 32 == 1), 'bigint';  # support native uint64 on 32-bit platforms

use Exporter 'import';
our @EXPORT = qw(from_nttime to_nttime);

my $nttime_factor = 10_000_000;
my $nttime_offset = 11_644_473_600;

sub from_nttime ($) {
	my $nttime = shift || return 0;

	return $nttime / $nttime_factor - $nttime_offset;
}

sub to_nttime ($) {
	my $time = shift || return 0;

	return ($time + $nttime_offset) * $nttime_factor;
}

1;

__END__