NanoA ç¨ã«ä½ã£ããã©ã¼ã ãã«ãã¼ï¼ããªãã¼ã¿ã HTML::AutoForm (svn link) ã¨ãã¦ç¬ç«ããã¾ããã ãã©ã¼ã ãå®ç¾©ããã my $form = HTML::AutoForm->new( fields => [ username => { type => 'text', required => 1, min_length => 6, max_length => 8, regexp => qr/^[0-9a-z_]+$/, }, ... ], );ãã©ã¼ã ãæ¤è¨¼ããã # validate form my $ok = $form->validate( $query, # any object that support $query->param('name') sub { ... }, # callback to check if csrf token is va
{{#tags}}- {{label}}
{{/tags}}