Params::Check
|
use Params::Check qw[check]; sub form_fields { my %hash = @_; my $x; my $tmpl = { name => { required => 1, store => \$x, allow => [qr/M/i, qr/F/i], }, age => { default => 21, allow => qr/^\d+$/, strict_type => 1 }, phone => { allow => sub { my %args = @_; return 1 if valid($args{phone}); } }, employer => { default => 'NSA', no_override => 1 }, } }; my $parsed_args = check( $tmpl, \%hash, $VERBOSE ) or die [Could not parse arguments!]; |