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