ついカッとなってつくったバリデーター（今は公開している）

HiLoTECH::Validate.pm

package HiLoTECH::Validate;

#@errs = HiLoTECH::Validate({
#    data => $v,
#    validates => [
#        {
#            target => 'mailaddr',
#            rules => [
#                [ sub { return 1 if ( !$_[0] ) },
#                    'メールアドレスが入力されていません' ],
#                [ sub { return 1 if ( $_[0] !~ /^\w+\@\w+\.\w+$/ ) },
#                    'メールアドレスがおかしいです' ],
#            ],
#        },
#});

sub HiLoTECH::Validate {
    my $s = shift;
    my $data = $s->{data};
    my $validates = $s->{validates};
    my @errs;
    foreach my $v ( @{ $validates } ) {
        next if ( !$v->{target} );
        my $target = $v->{target};
        my $d = $s->{data}->{$target};
        next if ( !$v->{rules} );
        foreach my $r ( @{ $v->{rules} } ) {
            my $thisRule = @{$r}[0];
            next if ( ref $thisRule ne 'CODE' );
            my $thisErr = @{$r}[1];
            my $stat = $thisRule->($d || '');
            if ( !!$stat ) {
                push @errs, ( !$thisErr ) ? $target : $thisErr;
            }
        }
    }
    return @errs;
}

1;

https://gist.github.com/hilotech/4a980bde292c92af700f
これを食わせるヤツ。
30分くらいでチャラッと作ったわりにはぜったいこっちのほうがわかりやすい！

真偽判定がザルだったのと、ルールごとにメッセージを出せないのを直した。