File Coverage

lib/Win32/UrlCache/FileTimePP.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	1	1	100.0
total	44	45	97.7

package Win32::UrlCache::FileTimePP;

use strict;
use warnings;
use base qw( Exporter );

our @EXPORT = qw( filetime );

use Math::BigInt try => 'GMP';
use DateTime;
use DateTime::Duration;

sub filetime {
  my $filetime = shift;

  my @bytes;
  if ( length( $filetime ) == 18 && substr( $filetime, 0, 2 ) eq '0x' ) {
     @bytes = map { chr(hex($_)) }
              substr( $filetime, 2 ) =~ /(..)/g;
  }
  else {
    @bytes = split //, $filetime;
  }

  my $hundred_nanoseconds = (
    ord( $bytes[7] ) * ( 256 ** 7 ) +
    ord( $bytes[6] ) * ( 256 ** 6 ) +
    ord( $bytes[5] ) * ( 256 ** 5 ) +
    ord( $bytes[4] ) * ( 256 ** 4 ) +
    ord( $bytes[3] ) * ( 256 ** 3 ) +
    ord( $bytes[2] ) * ( 256 ** 2 ) +
    ord( $bytes[1] ) * ( 256 ** 1 ) +
    ord( $bytes[0] ) * ( 256 ** 0 )
  );

  my $seconds = $hundred_nanoseconds / 10000000;
  my $minutes = $seconds / 60;
  my $hours   = $minutes / 60;
  my $days    = $hours   / 24;

  my $start = DateTime->new(
    year      => 1601,
    month     => 1,
    day       => 1,
    hour      => 0,
    minute    => 0,
    second    => 0,
    time_zone => 'GMT',
  );

  # explicitly stringify to unbless
  my $duration = DateTime::Duration->new(
    days    => "$days",
    hours   => "".($hours   % 24),
    minutes => "".($minutes % 60),
    seconds => "".($seconds % 60),
  );

  my $date = $start + $duration;
}

1;

__END__