package TestApp1; # # Default behavior of Catalyst::Plugin::FillInForm # all params of both forms should auto-fill w/ query params # 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(); } sub render : ActionClass('RenderView') { } 1;