File Coverage

blib/lib/Salvation/TC/Type/Date.pm

Criterion	Covered	Total	%
statement	18	29	62.0
branch	0	14	0.0
condition	0	12	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	25	63	39.6

package Salvation::TC::Type::Date;

use strict;
use warnings;

use base 'Salvation::TC::Type';

use Salvation::TC::Type::Time ();
use Salvation::TC::Exception::WrongType ();
use Time::Piece ();

my $re = qr/^(\d{1,2})[\.\/\-](\d{1,2})[\.\/\-](\d{4})\s*(\d+:\d+(:\d+)*?)?$/;

sub Check {

    my ( $class, $date ) = @_;

    eval {

        die "Wrong date format. Expected day[.-/]month[./-]year time" if ( ! defined( $date ) || $date !~ $re );

        my ( $day, $month, $year, $time ) = ( $1, $2, $3, $4 );

        die "Month must be between 1 and 12. Current value is $month."    unless $month >= 1 && $month  <= 12;
        die "Day must be between 1 and 31. Current value is $day."        unless $day   >= 1 && $day    <= 31;
        die "Year must be between 1900 and 2110. Current value is $year." unless $year  >= 1900 && $year <= 2110;

        Salvation::TC::Type::Time->Check( $time ) if ( $time );

        defined( Time::Piece -> strptime( "$year-$month-$day", '%Y-%m-%d' ) ) || die "Unknow date format: $date.";
    };

    if( $@ ) {

        Salvation::TC::Exception::WrongType -> throw( type => 'Date', value => $date );
    };
}

1;
__END__