===================================================================
RCS file: /cvs/HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm	2010/06/27 04:23:27	1.8
+++ HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm	2010/06/27 04:45:07	1.9
@@ -1,6 +1,6 @@
 package Net::OpenAMD;
 
-# $AFresh1: OpenAMD.pm,v 1.7 2010/06/27 03:11:22 andrew Exp $
+# $AFresh1: OpenAMD.pm,v 1.8 2010/06/27 03:23:27 andrew Exp $
 
 use warnings;
 use strict;
@@ -43,7 +43,7 @@
         my ( $self, $action, $query ) = @_;
         my $ident = _ident($self);
 
-        my $uri = URI->new( $base_url_of{$ident} . '/' . $action );
+        my $uri = URI->new_abs( $action, $base_url_of{$ident} );
         $uri->query($query);
 
         my $response = $ua_of{$ident}->get($uri);
@@ -55,12 +55,12 @@
         return JSON::Any->jsonToObj( $response->decoded_content );
     }
 
-    sub location  { my $self = shift; return $self->get( 'location',  @_ ) }
-    sub speakers  { my $self = shift; return $self->get( 'speakers',  @_ ) }
-    sub talks     { my $self = shift; return $self->get( 'talks',     @_ ) }
-    sub interests { my $self = shift; return $self->get( 'interests', @_ ) }
-    sub users     { my $self = shift; return $self->get( 'users',     @_ ) }
-    sub stats { croak 'Unused feature' }
+    sub location  { return shift->get( 'location',  @_ ) }
+    sub speakers  { return shift->get( 'speakers',  @_ ) }
+    sub talks     { return shift->get( 'talks',     @_ ) }
+    sub interests { return shift->get( 'interests', @_ ) }
+    sub users     { return shift->get( 'users',     @_ ) }
+    sub stats     { croak 'Unused feature' }
 
     sub DESTROY {
         my ($self) = @_;
@@ -126,7 +126,10 @@
 
 =item base_url
 
-A URL to the API, currently defaults to https://api.hope.net/api
+A URL to the API, currently defaults to https://api.hope.net/api/
+
+Most likely it should end with a / to make URI happy, so notice that if you
+having 404 errors you don't expect.
 
 =item ua