我应该使用哪个Perl模块来生成验证CRUD网络表单？

举个简单的例子：

表单定义：

package MyStats::Form::Datetime ;

use HTML::FormHandler::Moose ;
extends 'HTML::FormHandler::Model::DBIC' ;

use Date::Calc qw(Today_and_Now) ;

has_field 'datetimeid' => ( label     => 'ID' ) ;
has_field 'datetime'   => ( type      => 'Text',apply     => [ { transform => &;transform_dt } ],deflation => &;deflation_dt,required  => 1 ) ;
has_field 'submit'     => ( type => 'Submit',value => 'Speichern' ) ;
# These are the fields of the table datetime

sub transform_dt {
  my ( $dt ) = @_ ;

  my @d = ( $dt =~ m/(d{1,2}).(d{1,2}).(d{4})s+(d{1,2}):(d{1,2})/ ) ;
  return sprintf( '%04d-%02d-%02d %02d:%02d:00',@d[2,1,3,4] ) ;
}

sub deflation_dt {
  my ( $dt ) = @_ ;

  my @d = ( $dt =~ m/(d{4})-(d{2})-(d{2})s+(d{1,2})/ ) ;
  if( ! @d ) {
    @d = Today_and_Now() ;
  }
  return sprintf( '%02d.%02d.%04d %02d:%02d:00',4] ) ;
}

1 ;

以及控制器中的用法：

package MyStats::Controller::Datetime ;
use Moose ;
use namespace::autoclean ;

BEGIN { extends 'Catalyst::Controller' ; }

use MyStats::Form::Datetime ;

has 'form' => ( isa     => 'MyStats::Form::Datetime',is      => 'rw',lazy    => 1,default => &;new_datetime_form ) ;

sub new_datetime_form {
  MyStats::Form::Datetime->new( css_class => 'datetimeform',name => 'datetimeform' ) ;
}

...

sub add :Local :Args(0) {
  my ( $self,$ctx ) = @_ ;

  my $data = $ctx->model( 'MyStatsDB::Datetime' )->new_result( {} ) ;
  $ctx->stash( template => 'datetime/add.tt2',form     => $self->form ) ;
  $ctx->bread_crumb( { name => 'Datum/Zeit eingeben',location => '/datetime/add' } ) ;

  $ctx->req->param( 'datetimeid',undef ) if $ctx->req->param( 'datetimeid' ) ;
  return unless $self->form->process( item   => $data,params => $ctx->req->params ) ;
  $ctx->flash( message => 'Neuer Datensatz ' . $data->datetimeid .
                          ' angelegt.',id_add  => $data->datetimeid ) ;
  $ctx->res->redirect( $ctx->uri_for( '/datetime' ) ) ;
}

...

__PACKAGE__->meta->make_immutable ;

1 ;

效果很好.