package TestApp2; # # Default behavior, EXCEPT: # ignore_fields => ['aaa'] # use Catalyst qw( FillInForm ); __PACKAGE__->config( name=>"FillInForm test" ); __PACKAGE__->setup(); my $html = <
EOT sub index : Global { my ( $self, $c, $arg ) = @_; $c->res->body($html); } sub end : Private { my ($self, $c) = @_; $c->forward('render'); $c->fillform($c->req->params, { ignore_fields => [ 'aaa' ], }); } sub render : ActionClass('RenderView') { } 1;