Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Checking in changes prior to tagging of version 0.07. Changelog diff is:

diff --git a/Changes b/Changes
index 6f67c25..9c15f58 100644
--- a/Changes
+++ b/Changes
@@ -1,7 +1,9 @@
 Revision history for Perl extension Net::Google::Spreadsheets

-0.07    Tue Sep 22 18:11:09 2009
-        - Use Net::Google::DataAPI
+0.07    Fri Dec 22 22:53:34 2009
+        - now uses Net::Google::DataAPI
+        - AuthSub and OAuth support via Net::Google::DataAPI
+        - now uses Any::Moose

 0.06    Thu Aug 20 23:21:35 2009
         - Refactored internals
  • Loading branch information...
commit 935e990c3a59b0a2be0daf4de52b90ee58823336 1 parent 35318d5
Nobuo Danjou authored
6 Changes
... ... @@ -1,7 +1,9 @@
1 1 Revision history for Perl extension Net::Google::Spreadsheets
2 2
3   -0.07 Tue Sep 22 18:11:09 2009
4   - - Use Net::Google::DataAPI
  3 +0.07 Fri Dec 22 22:53:34 2009
  4 + - now uses Net::Google::DataAPI
  5 + - AuthSub and OAuth support via Net::Google::DataAPI
  6 + - now uses Any::Moose
5 7
6 8 0.06 Thu Aug 20 23:21:35 2009
7 9 - Refactored internals
37 lib/Net/Google/Spreadsheets.pm
@@ -241,6 +241,39 @@ http://spreadsheets.google.com/ccc?key=key
241 241
242 242 Returns first item of spreadsheets(\%condition) if available.
243 243
  244 +=head1 AUTHORIZATIONS
  245 +
  246 +you can optionally pass auth object argument when initializing
  247 +Net::Google::Spreadsheets instance.
  248 +
  249 +If you want to use AuthSub mechanism, make Net::Google::DataAPI::Auth::AuthSub
  250 +object and path it to the constructor:
  251 +
  252 + my $authsub = Net::Google::AuthSub->new;
  253 + $authsub->auth(undef, $session_token);
  254 + my $auth = Net::Google::DataAPI::Auth::AuthSub->new(
  255 + authsub => $authsub
  256 + );
  257 +
  258 + my $service = Net::Google::Spreadsheet->new(
  259 + auth => $auth
  260 + );
  261 +
  262 +In OAuth case, like this:
  263 +
  264 + my $oauth = Net::Google::DataAPI::Auth::OAuth->new(
  265 + consumer_key => 'consumer.example.com',
  266 + consumer_secret => 'mys3cr3t',
  267 + callback => 'http://consumer.example.com/callback',
  268 + );
  269 + $oauth->get_request_token;
  270 + my $url = $oauth->get_authorize_token_url;
  271 + # show the url to the user and get the $verifier value
  272 + $oauth->get_access_token({verifier => $verifier});
  273 + my $service = Net::Google::Spreadsheet->new(
  274 + auth => $oauth
  275 + );
  276 +
244 277 =head1 TESTING
245 278
246 279 To test this module, you have to prepare as below.
@@ -291,6 +324,10 @@ L<http://code.google.com/intl/en/apis/spreadsheets/docs/3.0/reference.html>
291 324
292 325 L<Net::Google::AuthSub>
293 326
  327 +L<Net::Google::DataAPI>
  328 +
  329 +L<Net::OAuth>
  330 +
294 331 L<Net::Google::Spreadsheets::Spreadsheet>
295 332
296 333 L<Net::Google::Spreadsheets::Worksheet>
3  xt/01_podspell.t
@@ -19,3 +19,6 @@ sq
19 19 rewritable
20 20 param
21 21 com
  22 +oauth
  23 +AuthSub
  24 +auth

0 comments on commit 935e990

Please sign in to comment.
Something went wrong with that request. Please try again.