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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Dec 31 02:30:25 2008
New Revision: 17486

Modified:
   Net-Google-Code/trunk/   (props changed)
   Net-Google-Code/trunk/lib/Net/Google/Code/Connection.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/TicketAttachment.pm

Log:
 r18433 at sunnavys-mb:  sunnavy | 2008-12-31 15:24:15 +0800
 doc change


Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Connection.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/Connection.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Connection.pm	Wed Dec 31 02:30:25 2008
@@ -30,7 +30,14 @@
 sub _fetch {
     my $self    = shift;
     my $query   = shift;
-    my $abs_url = $self->base_url . $self->project .  $query;
+    my $abs_url;
+    if ( $query =~ /^http(s)?:/ ) {
+        $abs_url = $query;
+    }
+    else {
+        $abs_url = $self->base_url . $self->project .  $query;
+    }
+
     $self->mech->get($abs_url);
     $self->_die_on_error($abs_url);
     return $self->mech->content;

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/TicketAttachment.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/TicketAttachment.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/TicketAttachment.pm	Wed Dec 31 02:30:25 2008
@@ -55,6 +55,10 @@
 
 no Moose;
 
+1;
+
+__END__
+
 =head1 NAME
 
 Net::Google::Code::TicketAttachment
@@ -63,23 +67,25 @@
 
 This class represents a single attachment for a trac ticket.
 
-=head1 METHODS
+=head1 INTERFACE
 
 =head2 filename
 
-=head2 description
-
 =head2 content
 
 =head2 size
 
 =head2 url
 
-=head2 author
+=head1 AUTHOR
 
-=head2 date
+sunnavy  C<< <sunnavy at bestpractical.com> >>
 
-=cut
 
-1;
+=head1 LICENCE AND COPYRIGHT
+
+Copyright 2008 Best Practical Solutions.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.