2 # run with perl -d:DProf $0
7 username => "++foobar++",
13 'group no_alert' => 1,
14 'group no_confirm' => 1,
18 match2_error => '$name may only contain letters and numbers',
25 match => 'm/^[ -~]+$/',
29 validate_if => 'password',
34 match => 'm/^[\w\.\-]+\@[\w\.\-]+$/',
41 my $err_obj = CGI::Ex::Validate->validate($form, $val_hash_ce);
42 # my $err_obj = CGI::Ex::Validate->validate($form, $val_hash_ce)->as_hash;