File Coverage

blib/lib/DateTime/Format/WindowsFileTime.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	33	96.9

package DateTime::Format::WindowsFileTime;
use DateTime;
use Math::BigInt;

use 5.008005;
use strict;
use warnings;
our $VERSION = '0.02';

sub parse_datetime {
	my($class, $winfiletime) = @_;
	$winfiletime =~ /[a-fA-F0-9]{16}/
		or die "Must pass 16 character hex string to parse_datetime";

	$winfiletime = "0x$winfiletime"; # prepend 0x so perl sees it as hex value
	my $bint = Math::BigInt->new( $winfiletime );
	$bint = $bint / 10000;           # was centi-nanoseconds, now it's not
	$bint -= 11644473600000;         # the difference between epochs
	my $seconds = $bint / 1000;
	my $dt = DateTime->from_epoch( epoch => $seconds->numify );
	return $dt;
}

1;

__END__