[Bps-public-commit] r17563 - in Net-Google-Code/trunk: lib/Net/Google lib/Net/Google/Code

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jan  5 22:21:57 2009
New Revision: 17563

Modified:
   Net-Google-Code/trunk/   (props changed)
   Net-Google-Code/trunk/lib/Net/Google/Code.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/Search.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/TicketComment.pm

Log:
 r18555 at sunnavys-mb:  sunnavy | 2009-01-06 10:48:13 +0800
 more doc


Modified: Net-Google-Code/trunk/lib/Net/Google/Code.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code.pm	Mon Jan  5 22:21:57 2009
@@ -30,7 +30,18 @@
 
 =head1 SYNOPSIS
 
-    use Net::Google::Code;
+    use Net::Google::Code::Connection;
+    my $connection = Net::Google::Code::Connection( project => 'foo' );
+
+    use Net::Google::Code::Ticket;
+    my $ticket = Net::Google::Code::Ticket->new( connection => $connection );
+    $ticket->load( 42 );
+
+    use Net::Google::Code::Search;
+    my $search = Net::Google::Code::Search->new( connection => $connection );
+    $search->search( _can => 'all', _q => 'foo bar' );
+    my @ids = $search->ids();
+
 
 =head1 DESCRIPTION
 
@@ -42,8 +53,7 @@
 =head1 DEPENDENCIES
 
 
-None.
-
+L<Moose>, L<HTML::TreeBuilder>, L<WWW::Mechanize>, L<Params::Validate>
 
 =head1 INCOMPATIBILITIES
 
@@ -54,6 +64,9 @@
 
 No bugs have been reported.
 
+This project is very very young, api maybe changed, so don't use this in
+production, at least for now.
+
 =head1 AUTHOR
 
 sunnavy  C<< <sunnavy at bestpractical.com> >>

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Search.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/Search.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Search.pm	Mon Jan  5 22:21:57 2009
@@ -17,7 +17,10 @@
     'verify' => 7,
 );
 
-subtype 'Can' => as 'Int' => where { my $v = $_; grep { $_ eq $v } values %CAN };
+subtype 'Can' => as 'Int' => where {
+    my $v = $_;
+    grep { $_ eq $v } values %CAN;
+};
 subtype 'CanStr' => as 'Str' => where { $CAN{$_} };
 coerce 'Can' => from 'CanStr' => via { $CAN{$_} };
 
@@ -127,6 +130,10 @@
 
 =head2 search
 
+=head2 ids
+
+after search, this returns the ticket ids
+
 =head1 AUTHOR
 
 sunnavy  C<< <sunnavy at bestpractical.com> >>

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/TicketComment.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/TicketComment.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/TicketComment.pm	Mon Jan  5 22:21:57 2009
@@ -18,7 +18,7 @@
     default => sub { [] },
 );
 
-=head2 parse_entry
+=head2 parse
 
 parse format like the following: