package TestApp::Controller::Token; use strict; use warnings; use Data::Dumper; use base 'Catalyst::Controller::HTML::FormFu'; __PACKAGE__->config( { 'Controller::HTML::FormFu' => { request_token_enable => 1 } } ); sub token : Chained : CaptureArgs(0) { my ( $self, $c ) = @_; $c->stash->{template} = 'form.tt'; } sub form : Chained('token') : Args(0) : Form { my ( $self, $c ) = @_; my $form = $c->stash->{form}; $form->elements( [ { name => 'basic_form' }, { type => "Submit" } ] ); if ( $form->submitted_and_valid ) { $c->res->body("VALID"); } } sub dump_session : Local { my ( $self, $c ) = @_; $c->res->body( Dumper $c->session ); } 1;