Changeset 10066

Timestamp:

04/21/08 17:15:15 (6 months ago)

Author:

tokuhirom

Message:

WebService::Simple->post をテスト書いてないけど、とりあえずなんとなく動くかんじにまではしてみた。

Files:

• lang/perl/WebService-Simple/branch/lwp-base/lib/WebService/Simple.pm (modified) (1 diff)

lang/perl/WebService-Simple/branch/lwp-base/lib/WebService/Simple.pm

@@ -165 +165 @@
     my ($self, $url, @params) = @_;
 
+    my $uri = URI->new($self->base_url);
+    $uri->path( $uri->path . $url) if $url;
+
     # default parameters must come *before* @params, so unshift instead
     # of push
     unshift @params, %{ $self->basic_params };
-    my $response = $self->SUPER::post($url, @params );
+    my $response = $self->SUPER::post($uri, @params );
 
     if (! $response->is_success) {
-        Carp::croak("request to $url failed");
-    }
+        Carp::croak("request to $url failed: " . $response->status_line);
+    }
+    $response = WebService::Simple::Response->new_from_response(
+        response => $response,
+        parser   => $self->response_parser
+    );
     return $response;
 }