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