Net::OAuth2 - OAuth 2.0 for Perl
# This example is simplified for illustrative purposes, see the complete code in /demo use Dancer; use Net::OAuth2::Client; sub client { Net::OAuth2::Client->new( config->{client_id}, config->{client_secret}, site => 'https://graph.facebook.com', )->web_server( redirect_uri => uri_for('/auth/facebook/callback') ); } # Send user to authorize with service provider get '/auth/facebook' => sub { redirect client->authorize_url; }; # User has returned with '?code=foo' appended to the URL. get '/auth/facebook/callback' => sub { # Use the auth code to fetch the access token my $access_token = client->get_access_token(params->{code}); # Use the access token to fetch a protected resource my $response = $access_token->get('/me'); # Do something with said resource... if ($response->is_success) { return "Yay, it worked: " . $response->decoded_content; } else { return "Error: " . $response->status_line; } }; dance;
View Source on GitHub: http://github.com/keeth/Net-OAuth2
Report Issues on GitHub: http://github.com/keeth/Net-OAuth2/issues
Download from CPAN: http://search.cpan.org/perldoc?Net::OAuth2
Keith Grennan, <kgrennan at cpan.org>
<kgrennan at cpan.org>
Net::OAuth2 was initially ported from the oauth2 ruby gem by Michael Bleigh
Copyright 2010 Keith Grennan.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
To install Net::OAuth2, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::OAuth2
CPAN shell
perl -MCPAN -e shell install Net::OAuth2
For more information on module installation, please visit the detailed CPAN module installation guide.