package TestApp::Controller::Simple; use strict; use warnings; use base 'Catalyst::Controller::RequestToken'; sub form : Local : CreateToken { my ( $self, $c ) = @_; my $html = < FORM HTML my $token = $self->token; $html =~ s/TOKEN/$token/g; $c->response->body($html); } sub confirm : Local { my ( $self, $c ) = @_; #$c->detach('error') unless $self->is_valid_token; my $html = < CONFIRM HTML my $token = $c->req->param('__token'); $html =~ s/REQUEST/$token/g; $c->response->body($html); } sub complete : Local : ValidateToken { my ( $self, $c ) = @_; $c->detach('error') unless $self->is_valid_token; my $html = <SUCCESS HTML $c->response->body($html); } sub error : Local { my ( $self, $c ) = @_; my $html = <INVALID ACCESS HTML $c->response->body($html); } 1;