The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;

package MyVal;

use Validation::Class;

field email  => {required => 1};
field email1 => {required => 1};
field email2 => {required => 1};
field email3 => {required => 1};

package main;

my $v = MyVal->new(
    params => {
        email  => 1,
        email1 => 1,
        email2 => 1,
        email3 => 1
    }
);

ok $v, 'initialization successful';
ok $v->validate(qr/email(\d+)?/), 'validation passed';
ok $v->error_count == 0, 'validation ok';