File Coverage

blib/lib/Pinwheel/Model/Date.pm

Criterion	Covered	Total	%
statement	53	53	100.0
branch	6	6	100.0
condition	4	4	100.0
subroutine	19	19	100.0
pod	0	12	0.0
total	82	94	87.2

package Pinwheel::Model::Date;

use strict;
use warnings;

use POSIX qw();
use Time::Local qw(timegm_nocheck);

use Pinwheel::Model::DateBase;
use Pinwheel::Model::Time;

our @ISA = qw(Pinwheel::Model::DateBase);


# Constructors

sub new
{
    my ($class, $s) = @_;
    my @t = gmtime($s);
    $s += (12 - $t[2]) * 3600;
    $t[2] = 12;
    return bless({ s => $s, t => \@t }, $class);
}

sub now
{
    my $utc = shift;
    return Pinwheel::Model::Date->new(timegm_nocheck($utc ? gmtime : localtime));
}

sub parse
{
    my ($str) = @_;
    my ($y, $m, $d) = ($str =~ /^(\d{4})(?:-(\d{2}))?(?:-(\d{2}))?$/);
    return undef unless (defined $y);
    return Pinwheel::Model::Date::date($y, $m, $d);
}

sub date
{
    my ($y, $m, $d) = @_;
    return new Pinwheel::Model::Date(
        timegm_nocheck(0, 0, 12, $d || 1, ($m || 1) - 1, $y)
    );
}

sub from_bbc_week
{
    my ($y, $w) = @_;
    my ($date, $adjustment);

    $date = new Pinwheel::Model::Date(timegm_nocheck(0, 0, 12, 4, 0, $y));
    $adjustment = -(($date->wday + 1) % 7);
    return $date->offset(days => $adjustment + (7 * ($w - 1)));
}

sub from_iso_week
{
    my ($y, $w) = @_;
    my ($date, $adjustment);

    $date = new Pinwheel::Model::Date(timegm_nocheck(0, 0, 12, 4, 0, $y));
    $adjustment = -(($date->wday - 1) % 7);
    return $date->offset(days => $adjustment + (7 * ($w - 1)));
}

sub _derived
{
    my ($self, $y, $m, $d) = @_;
    return new Pinwheel::Model::Date(timegm_nocheck(0, 0, 12, $d, $m, $y));
}


# Formatting

sub iso8601
{
    my $t = $_[0]->{t};
    return sprintf('%d-%02d-%02d', $t->[5] + 1900, $t->[4] + 1, $t->[3]);
}


# Type conversion

sub toJson
{
    return $_[0]->{'s'};
}

sub sql_param
{
    my $t = $_[0]->{t};
    return sprintf('%d-%02d-%02d', $t->[5] + 1900, $t->[4] + 1, $t->[3]);
}

sub route_param
{
    return {
        year => $_[0]->{t}[5] + 1900,
        month => $_[0]->{t}[4] + 1,
        day => $_[0]->{t}[3]
    };
}

sub to_time
{
    Pinwheel::Model::Time::local($_[0]->{t}[5] + 1900, $_[0]->{t}[4] + 1, $_[0]->{t}[3]);
}

sub difference
{
    my ($self, $other) = @_;
    my $d = $self->{'s'} - $other->{'s'};
    return int(($d + ($d < 0 ? -43200 : 43200)) / 86400);
}

1;

__DATA__