FormValidator::SimpleでDATEチェック

Perl

例えばこんな感じで、



my $query = {

    year => '2000',

    mon  => '2',

    day  => '30',

};

my $result = FormValidator::Simple->check( $query => [

    { date  => ['year',  'mon', 'day'] } => ['DATE'],

] );

うるう年もチェックしてくれます。
スバラシス。

しかし、もしyear,mon,dayが必須項目でない場合はどうすりゃいいんじゃ？
現状NULLの場合チェックされてしまう。



my $query = {

    year => '',

    mon  => '',

    day  => '',

};

my $result = FormValidator::Simple->check( $query => [

    { date  => ['year',  'mon', 'day'] } => ['DATE'],

] );

チェックデータがNULLの場合
sub DATEの
my $result = Date::Calc::check_date($year, $month, $day) ? TRUE : FALSE;
で、FALSEが返って、NULLはチェックされてしまいますた。

希望としてはdateのNOT NULLも許すように設定できないすかねぇ。
全てNULLの場合はチェックせずに、って感じで。

ああ、分かりにくいエントリだこと。ゴメンナサイ。
書き直すかもしれませぬ。