Changeset 32428

Timestamp:

04/15/09 10:04:29 (4 years ago)

Author:

lopnor

Message:

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

Index: Changes
===================================================================
--- Changes (revision 32426)
+++ Changes (working copy)
@@ -1,5 +1,8 @@

Revision history for Perl extension Net::Google::Spreadsheets

+0.04 Wed Apr 15 09:22:59 2009
+ - Updated POD (thanks to Mr. Grue)
+

0.03 Sun Apr 05 13:22:21 2009

• param method for Net::Google::Spreadsheets::Row (thanks to Mr. Grue)
  

Location:

lang/perl/Net-Google-Spreadsheets/trunk

Files:

• Changes (modified) (1 diff)
• lib/Net/Google/Spreadsheets.pm (modified) (4 diffs)
• lib/Net/Google/Spreadsheets/Worksheet.pm (modified) (3 diffs)

lang/perl/Net-Google-Spreadsheets/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension Net::Google::Spreadsheets
+
+0.04    Wed Apr 15 09:22:59 2009
+        - Updated POD (thanks to Mr. Grue)
 
 0.03    Sun Apr 05 13:22:21 2009

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets.pm

@@ -10 +10 @@
 use Net::Google::Spreadsheets::Spreadsheet;
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 BEGIN {
@@ -150 +150 @@
     {row => 1, col => 2, input_value => 'nick'},
     {row => 1, col => 3, input_value => 'mail'},
+    {row => 1, col => 4, input_value => 'age'},
   );
 
@@ -164 +165 @@
         nick => 'lopnor',
         mail => 'nobuo.danjou@gmail.com',
+        age  => '33',
     }
   );
@@ -170 +172 @@
   my @rows = $worksheet->rows;
 
+  # or fetch rows with query
+  
+  @rows = $worksheet->rows({sq => 'age > 20'});
+
   # search a row
   my $row = $worksheet->row({sq => 'name = "Nobuo Danjou"'});

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets/Worksheet.pm

@@ -133 +133 @@
     {col => 2, row => 1, input_value => 'nick'},
     {col => 3, row => 1, input_value => 'mail'},
+    {col => 4, row => 1, input_value => 'age'},
   );
 
@@ -144 +145 @@
         nick => 'lopnor',
         mail => 'nobuo.danjou@gmail.com',
+        age  => '33',
     }
   );
@@ -150 +152 @@
   my @rows = $worksheet->rows;
 
+  # search rows
+  @rows = $worksheet->rows({sq => 'age > 20'});
+
   # search a row
   my $row = $worksheet->row({sq => 'name = "Nobuo Danjou"'});