File Coverage

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

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	32	53.1

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

use strict;
use warnings;

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

use Salvation::TC::Exception::WrongType ();

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

sub Check {

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

    eval {

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

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

        $class->SUPER::Check( "$day.$month.$year $time" );
    };

    if( $@ ) {

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

1;
__END__