File Coverage

blib/lib/Win32/IEFavorites/DateTime.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Win32::IEFavorites::DateTime;

use strict;
use warnings;

our $VERSION = '0.06';

use base qw( DateTime );
use Win32::FileTime;

sub new {
  my ($class, $filetime) = @_;

  my $self = $class->SUPER::new( &_filetime_hash($filetime) );

  $self;
}

sub _filetime_hash {
  my $filetime_str = shift;

  # Can safely omit the last two digit of the string.
  # See http://www.cyanwerks.com/file-format-url.html
  # and especially his VB6 demo there.

  my @hexes = unpack('a2a2a2a2a2a2a2a2',$filetime_str);
  my $filetime = pack(
    'LL',
    hex(join('', reverse @hexes[0..3] )),
    hex(join('', reverse @hexes[4..7] )),
  );

  my @systimes = Win32::FileTime->getTime($filetime);

  return (
    year      => $systimes[0],
    month     => $systimes[1],
#   dayofweek => $systimes[2],
    day       => $systimes[3],
    hour      => $systimes[4],
    minute    => $systimes[5],
    second    => $systimes[6],
  );
}

1;
__END__