perl-Catalyst-Authentication-Credential-OAuth-0.04-alt1 P > @
, 0 92aded823e0f69fa91ab01cc7e5f1555c901bc30 Ӂږ#W%i% > 0
Q ?
A d 0 5 : { ) . N _
B
D L \ l t x
( $ 8 , 9 0 : Z A ~ F G H I \ ] ^
4 d
5 e
: f
? C perl-Catalyst-Authentication-Credential-OAuth 0.04 alt1 OAuth credential for Catalyst::Plugin::Authentication framework. In MyApp.pm
use Catalyst qw/
Authentication
Session
Session::Store::FastMmap
Session::State::Cookie
/;
In myapp.conf
default_realm oauth
class OAuth
consumer_key my_app_key
consumer_secret my_app_secret
request_token_endpoint http://example.com/oauth/request_token
access_token_endpoint http://example.com/oauth/access_token
user_auth_endpoint http://example.com/oauth/authorize
In controller code,
sub oauth : Local {
my ($self, $c) = @_;
if( $c->authenticate( { provider => 'example.com' } ) ) {
}
} R&o(cpanbuilder.hasher.altlinux.org ALT Linux ALT Linux Team perl Igor Vlasenko