Catalyst::Controller::RequestToken::Action::CreateToken - Catalyst::Controller::RequestToken::Action::CreateToken documentation

Catalyst-Controller-RequestToken documentation

Contained in the Catalyst-Controller-RequestToken distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
INTERNAL METHODS
- execute
SEE ALSO
AUTHOR
COPYRIGHT

Code Index:

package Catalyst::Controller::RequestToken::Action::CreateToken
- execute
__END__
EOF

NAME

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

SYNOPSIS

DESCRIPTION

INTERNAL METHODS

execute

SEE ALSO

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

AUTHOR

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

COPYRIGHT

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::CreateToken;

use strict;
use warnings;

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

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

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

1;

__END__