2 # run with perl -d:DProf $0
7 username => "++foobar++",
16 match_error => '$name may only contain letters and numbers',
23 match => 'm/^[ -~]+$/',
27 validate_if => 'password',
32 match => 'm/^[\w\.\-]+\@[\w\.\-]+$/',
39 my $err_obj = CGI::Ex::Validate->validate($form, $val_hash_ce);
40 # my $err_obj = CGI::Ex::Validate->validate($form, $val_hash_ce)->as_hash;