Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master

Fetching latest commit…

Octocat-spinner-32-eaf2f5

Cannot retrieve the latest commit at this time

Octocat-spinner-32 demo add docs February 25, 2011
Octocat-spinner-32 lib Prepare v0.28 for CPAN January 05, 2012
Octocat-spinner-32 t Minor fixes, and useless code removed January 05, 2012
Octocat-spinner-32 Build.PL Added HMAC-SHA256 signatures support January 05, 2012
Octocat-spinner-32 Changes prepare v0.28 for CPAN January 05, 2012
Octocat-spinner-32 MANIFEST Prepare v0.28 for CPAN January 05, 2012
Octocat-spinner-32 MANIFEST.SKIP prepare v0.28 for CPAN January 05, 2012
Octocat-spinner-32 Makefile.PL Prepare v0.28 for CPAN January 05, 2012
Octocat-spinner-32 README add docs February 25, 2011
README
Net-OAuth

A Perl wrapper for the OAuth 1.0 specification.

http://tools.ietf.org/html/rfc5849

INSTALLATION

$ cpan
cpan> install Net::OAuth

WEB SERVER EXAMPLE (Dancer)

  # This example is simplified for illustrative purposes, see the complete code in /demo
  
  # Note that client_id is the Consumer Key and client_secret is the Consumer Secret

  use Dancer;
  use Net::OAuth::Client;

  sub client {
  	Net::OAuth::Client->new(
  		config->{client_id},
  		config->{client_secret},
  		site => 'https://www.google.com/',
  		request_token_path => '/accounts/OAuthGetRequestToken?scope=https%3A%2F%2Fwww.google.com%2Fm8%2Ffeeds%2F',
  		authorize_path => '/accounts/OAuthAuthorizeToken',
  		access_token_path => '/accounts/OAuthGetAccessToken',
  		callback => uri_for("/auth/google/callback"),
  		session => \&session,
  	);
  }

  # Send user to authorize with service provider
  get '/auth/google' => sub {
  	redirect client->authorize_url;
  };

  # User has returned with token and verifier appended to the URL.
  get '/auth/google/callback' => sub {
  
  	# Use the auth code to fetch the access token
  	my $access_token =  client->get_access_token(params->{oauth_token}, params->{oauth_verifier});

  	# Use the access token to fetch a protected resource
  	my $response = $access_token->get('/m8/feeds/contacts/default/full');

  	# Do something with said resource...

  	if ($response->is_success) {
  	  return "Yay, it worked: " . $response->decoded_content;
  	}
  	else {
  	  return "Error: " . $response->status_line;
  	}
  };

  dance;

LICENSE AND COPYRIGHT

Copyright (C) 2011 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.

Something went wrong with that request. Please try again.