Catalyst::Controller::RequestToken::Action::ValidateToken - Catalyst::Controller::RequestToken::Action::ValidateToken documentation

Catalyst-Controller-RequestToken documentation Contained in the Catalyst-Controller-RequestToken distribution.

Index

Code Index:

NAME

Top

Catalyst::Controller::RequestToken::Action::ValildateToken

SYNOPSIS

Top

DESCRIPTION

Top

INTERNAL METHODS

Top

execute

SEE ALSO

Top

Catalyst::Controller::RequestToken Catalyst Catalyst::Action

AUTHOR

Top

Hideo Kimura <<hide<at>hide-k.net>>

COPYRIGHT

Top

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

Catalyst-Controller-RequestToken documentation Contained in the Catalyst-Controller-RequestToken distribution. 
package Catalyst::Controller::RequestToken::Action::ValidateToken;

use strict;
use warnings;

use base qw(Catalyst::Action);
use MRO::Compat;

sub execute {
    my $self = shift;
    my ( $controller, $c, @args ) = @_;

    $controller->validate_token;
    $controller->remove_token;
    return $self->next::method(@_);
}

1;

__END__