File Coverage

blib/lib/DateTimeX/Lite/Infinite.pm

Criterion	Covered	Total	%
statement	42	45	93.3
branch	6	6	100.0
condition			n/a
subroutine	15	18	83.3
pod	5	7	71.4
total	68	76	89.4

# $Id: Infinite.pm 27589 2008-12-29 23:51:35Z daisuke $

package DateTimeX::Lite::Infinite;
use strict;
use base qw(DateTimeX::Lite);
use DateTimeX::Lite::TimeZone;

sub set           { $_[0] }
sub set_time_zone { $_[0] }
sub truncate      { $_[0] }
sub is_finite     { 0 }
sub is_infinite   { 1 }

sub _calc_local_components {
    my $self = shift;

    my @list = qw(
        year month day day_of_week day_of_year quarter day_of_quarter
        hour minute second
    );
    @{ $self->{local_c} }{ @list } = (
        ( $self->{local_rd_days} ) x 7,
        ( $self->{local_rd_secs} ) x 3,
    );
}

sub _stringify_overload {
    return $_[0]->{utc_rd_days} == &DateTimeX::Lite::INFINITY ?
        (&DateTimeX::Lite::INFINITY . '') :
        (&DateTimeX::Lite::NEG_INFINITY . '')
}

sub STORABLE_freeze { return }
sub STORABLE_thaw { return }

package #
    DateTimeX::Lite::Infinite::Future;
use strict;
use base qw(DateTimeX::Lite::Infinite);

{
    my $Pos;

    sub new {
        return $Pos if $Pos;

        my $class = shift;
        $Pos = bless {
            utc_rd_days   => &DateTimeX::Lite::INFINITY,
            utc_rd_secs   => &DateTimeX::Lite::INFINITY,
            local_rd_days => &DateTimeX::Lite::INFINITY,
            local_rd_secs => &DateTimeX::Lite::INFINITY,
            rd_nanosecs   => &DateTimeX::Lite::INFINITY,
            tz            => DateTimeX::Lite::TimeZone->load( name => 'floating' ),
        }, $class;

        $Pos->_calc_utc_rd;
        $Pos->_calc_local_rd;
        return $Pos;
    }
}

package #
    DateTimeX::Lite::Infinite::Past;
use strict;
use base qw(DateTimeX::Lite::Infinite);

{
    my $Neg;
    sub new {
        return $Neg if $Neg;

        my $class = shift;
        $Neg = bless {
            utc_rd_days   => &DateTimeX::Lite::NEG_INFINITY,
            utc_rd_secs   => &DateTimeX::Lite::NEG_INFINITY,
            local_rd_days => &DateTimeX::Lite::NEG_INFINITY,
            local_rd_secs => &DateTimeX::Lite::NEG_INFINITY,
            rd_nanosecs   => &DateTimeX::Lite::NEG_INFINITY,
            tz            => DateTimeX::Lite::TimeZone->load( name => 'floating' ),
        }, $class;

        $Neg->_calc_utc_rd;
        $Neg->_calc_local_rd;
        return $Neg;
    }
}

1;

__END__