FormValidator::LazyWay::Rule::DateTime - rule for DateTime

FormValidator-LazyWay documentation Contained in the FormValidator-LazyWay distribution.

Index

Code Index:

NAME

Top

FormValidator::LazyWay::Rule::DateTime - rule for DateTime

METHOD

Top

boolean

AUTHOR

Top

Daisuke Komatsu <vkg.taro@gmail.com>

FormValidator-LazyWay documentation Contained in the FormValidator-LazyWay distribution. 
package FormValidator::LazyWay::Rule::DateTime;

use strict;
use warnings;
use utf8;

use DateTime::Format::Strptime;

sub datetime {
    my ( $datetime, $args ) = @_;
    unless ( $args->{pattern} ) {
        $args->{pattern} = '%Y-%m-%d %H:%M:%S';
    }

    my $strp = DateTime::Format::Strptime->new( %{$args}  );
    my $dt = eval { $strp->parse_datetime($datetime) };
    return $dt ? 1 : 0;
}

sub date {
    my ( $date, $args ) = @_;
    unless ( $args->{pattern} ) {
        $args->{pattern} = '%Y-%m-%d';
    }
    
    my $strp = DateTime::Format::Strptime->new( %{$args}  );
    my $dt = eval { $strp->parse_datetime($date) };
    return $dt ? 1 : 0;
}

sub time {
    my ( $time, $args ) = @_;
    unless ( $args->{pattern} ) {
        $args->{pattern} = '%H:%M:%S';
    }

    my $strp = DateTime::Format::Strptime->new( %{$args}  );
    my $dt = eval { $strp->parse_datetime($time) };
    return $dt ? 1 : 0;
}

1;

__END__