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