File Coverage

blib/lib/Date/Parser/Date.pm

Criterion	Covered	Total	%
statement	56	72	77.7
branch	15	30	50.0
condition	17	45	37.7
subroutine	9	11	81.8
pod	6	6	100.0
total	103	164	62.8

#!/usr/bin/perl

package Date::Parser::Date;

use strict;
use warnings;

use Time::Local;

require Date::Format;

our $VERSION = 0.4;

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

    my $self = bless {}, $class;
    $self->{year} = $opts{year};
    $self->{month} = $opts{month};
    $self->{day} = $opts{day};
    $self->{hour} = $opts{hour};
    $self->{min} = $opts{min};
    $self->{sec} = $opts{sec};
    $self->{unixtime} = $opts{unixtime};

    if (defined $self->unixtime && (!defined $self->{year} ||
            !defined $self->{month} || !defined $self->{day} ||
            !defined $self->{hour}  || !defined $self->{min} ||
            !defined $self->{sec})) {
        $self->_populate_from_unixtime;
    }

    if (defined $self->{year} && defined $self->{month} &&
        defined $self->{day} && defined $self->{hour} &&
        defined $self->{min} && defined $self->{sec}) {
        $self->{unixtime} = $self->_get_unixtime;
    }

    # use existing time or set it to noon
    if (defined $self->{year} && defined $self->{month} &&
        defined $self->{day} && (!defined $self->{hour} ||
            !defined $self->{min} || !defined $self->{sec})) {
        $self->{hour} = 11 unless (defined $self->{hour});
        $self->{min} = 0 unless (defined $self->{min});
        $self->{sec} = 0 unless (defined $self->{sec});
        $self->{unixtime} = $self->_get_unixtime;
    }

    # if only time is defined, set for today.. just expect hour:min at least
    if ((!defined $self->{year} || !defined $self->{month} || !defined $self->{day})
        && defined $self->{hour} && defined $self->{min}) {
        $self->{year} = Date::Format::time2str("%Y", time);
        $self->{month} = Date::Format::time2str("%L", time);
        $self->{day} = Date::Parser::_strip_zero(time2str("%d", time));
        $self->{sec} = 0 unless (defined $self->{sec});
        $self->{unixtime} = $self->_get_unixtime;
    }

    unless (defined $self->{unixtime}) {
        warn "couldn't resolve date";
        return;
    }

    return $self;
}

sub _populate_from_unixtime {
    my ($self) = @_;

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
        localtime($self->{unixtime});

    $self->{year} = $year + 1900;
    $self->{month} = $mon;
    $self->{day} = $mday;
    $self->{hour} = $hour;
    $self->{min} = $min;
    $self->{sec} = $sec;

    return $self;
}

sub time2str {
    my ($self, $format) = @_;

    Date::Format::time2str($format, $self->unixtime);
}

sub unixtime {
    my ($self) = @_;

    $self->{unixtime} ||= $self->_get_unixtime;
}

sub calc {
    my ($self, $other) = @_;

    my $unixtime;
    if ($self->cmp($other) == 0) {
        $unixtime = $self->unixtime;
    } elsif ($self->cmp($other) == -1) {
        $unixtime = $self->unixtime + (($other->unixtime - $self->unixtime) / 2);
        $unixtime = int($unixtime);
    } elsif ($self->cmp($other) == 1) {
        $unixtime = $self->unixtime - (($self->unixtime - $other->unixtime) / 2);
        $unixtime = int($unixtime);
    }

    my $new = Date::Parser::Date->new(unixtime => int($unixtime));

    return $new;
}

sub cmp {
    my ($self, $other) = @_;

    return -1 if ($self->unixtime < $other->unixtime);
    return 0 if ($self->unixtime == $other->unixtime);
    return 1 if ($self->unixtime > $other->unixtime);
}

sub _get_unixtime {
    my ($self) = @_;

    my $unixtime;
    eval { $unixtime = timelocal($self->{sec}, $self->{min}, $self->{hour}, $self->{day}, $self->{month}, $self->{year}) };

    return $unixtime;
}

sub assign {
    my ($self, $key, $value) = @_;

    $self->{$key} = $value;

    return $self;
}

1;

__END__