Changeset 38840

Timestamp:

02/11/11 23:25:22 (2 years ago)

Author:

tomi-ru

Message:

post()がget()と同じ挙動をするように修正。

http://twitter.com/tomita/status/32212351058976768

Location:

lang/perl/WebService-Simple/trunk

Files:

• lib/WebService/Simple.pm (modified) (2 diffs)
• t/01_api.t (added)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

@@ -174 +174 @@
 
 sub post {
-    my ( $self, $url, @params ) = @_;
+    my $self = shift;
+    my ( $url, %extra );
+
+    if ( ref $_[0] eq 'HASH' ) {
+        $url   = "";
+        %extra = %{ shift @_ };
+    }
+    else {
+        $url = shift @_;
+        if ( ref $_[0] eq 'HASH' ) {
+            %extra = %{ shift @_ };
+        }
+    }
 
     # XXX - do not include params
@@ -182 +194 @@
     );
 
-    # default parameters must come *before* @params, so unshift instead
-    # of push
-    unshift @params, %{ $self->basic_params };
-    my $response = $self->SUPER::post( $uri, @params );
+    my @headers = @_;
+    
+    my $response = $self->SUPER::post( $uri, { %{ $self->basic_params }, %extra }, @headers );
 
     if ( !$response->is_success ) {