]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/lib/App1/CustInfo.pm
1 package App1
::CustInfo
;
5 App1::CustInfo - enter user info and verify it
12 use CGI
::Ex
::Dump
qw(debug);
17 countries
=> $self->_countries,
22 return if shift-
>ready_validate;
23 return {country
=> 'US'};
29 'group no_alert' => 1,
30 'group no_confirm' => 1,
31 'group onevent' => [qw(change blur submit)],
35 custom
=> sub { my ($key, $val) = @_; $val ne 'Matt' },
36 custom_error
=> 'Too many people named Matt - please use a different first name',
47 match_error
=> 'Password must contain a letter',
49 match2_error
=> 'Password must contain a number',
56 custom
=> sub { my ($key, $val) = @_; $self->_countries->{$val} },
57 custom_error
=> "Please pick from the list of valid countries",
63 # this is better off in a database
65 US
=> "United States",
This page took 0.035778 seconds and 4 git commands to generate.