perl-Catalyst-Authentication-Credential-OAuth-0.04-alt1 P > @
, 0 97aa7baa138bf9cfc963b9e817435a28b8ef7641 DΠݾ qE > 3 ? d 0 5 : { ) . N _
T t x ( 8 $ 9 ( : R F v G H I X Y \
]
$ ^
b } d 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