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';