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', constraint => ['Required'] }, { type => "Submit" } ] );
    $form->process( $c->req );
    if ( $form->submitted_and_valid ) {
        $c->res->body("VALID");
    }
}

sub dump_session : Local {
    my ( $self, $c ) = @_;
    $c->res->body( Dumper $c->session );
}

sub count_token : Local {
    my ( $self, $c ) = @_;
    $c->res->body( scalar @{ $c->session->{__token} || [] } );
}

1;