|
|
qBittorrent: BT Client v1.3.0 (stable) released
01-09-2009
|
|
Net::OAuth::Client(3pm) User Contributed Perl Documentation Net::OAuth::Client(3pm) NAME
Net::OAuth::Client - OAuth 1.0A Client SYNOPSIS
# 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; DESCRIPTION
Net::OAuth::Client represents an OAuth client or consumer. WARNING: Net::OAuth::Client is alpha code. The rest of Net::OAuth is quite stable but this particular module is new, and is under- documented and under-tested. METHODS
new($client_id, $client_secret, %params) Create a new Client o $client_id AKA Consumer Key - you get this from the service provider when you register your application. o $client_secret AKA Consumer Secret - you get this from the service provider when you register your application. o $params{site} o $params{request_token_path} o $params{authorize_path} o $params{access_token_path} o $params{callback} o $params{session} LICENSE AND COPYRIGHT
Copyright 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. perl v5.14.2 2012-01-10 Net::OAuth::Client(3pm)