Catalyst::ActionRole::OAuth2::GrantAuth - Authorization grant endpoint for OAuth2 authentication flows
version 0.001008
package AuthServer::Controller::OAuth2::Provider; use Moose; BEGIN { extends 'Catalyst::Controller::ActionRole' } with 'CatalystX::OAuth2::Controller::Role::Provider'; __PACKAGE__->config( store => { class => 'DBIC', client_model => 'DB::Client' } ); sub grant : Chained('/') Args(0) Does('OAuth2::GrantAuth') { my ( $self, $c ) = @_; my $oauth2 = $c->req->oauth2; $c->user_exists and $oauth2->user_is_valid(1) or $c->detach('/passthrulogin'); }
This action role implements the authorization confirmation endpoint that asks the user if he wishes to grant resource access to the client. This is generally done by presenting a form to the user. Regardless of the mechanism used for this confirmation, the $c-req->oauth2> object must be informed of the user's decision via the user_is_valid attribute, which must be true by the end of the request, in order for the authorization flow to be continued.
$c-
user_is_valid
Eden Cardim <edencardim@gmail.com>
This software is copyright (c) 2017 by Suretec Systems Ltd.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install CatalystX::OAuth2, copy and paste the appropriate command in to your terminal.
cpanm
cpanm CatalystX::OAuth2
CPAN shell
perl -MCPAN -e shell install CatalystX::OAuth2
For more information on module installation, please visit the detailed CPAN module installation guide.