Validation-Class Basics

myapp-validationclass-example.pl

package MyApp::Validation;
 
use Validation::Class;
use base 'Validation::Class';
 
# a validation rule
field 'login'  => {
    label      => 'user login',
    error      => 'login invalid',
    validation => sub {
        my ($self, $this, $fields) = @_;
        return $this->{value} eq 'admin' ? 1 : 0;
    }
};
 
# a validation rule
field 'password'  => {
    label         => 'user password',
    error         => 'password invalid',
    validation    => sub {
        my ($self, $this, $fields) = @_;
        return $this->{value} eq 'pass' ? 1 : 0;
    }
};
 
1;