Changeset 38840

Show
Ignore:
Timestamp:
02/11/11 23:25:22 (3 years ago)
Author:
tomi-ru
Message:

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

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

Location:
lang/perl/WebService-Simple/trunk
Files:
1 added
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

    r33931 r38840  
    174174 
    175175sub post { 
    176     my ( $self, $url, @params ) = @_; 
     176    my $self = shift; 
     177    my ( $url, %extra ); 
     178 
     179    if ( ref $_[0] eq 'HASH' ) { 
     180        $url   = ""; 
     181        %extra = %{ shift @_ }; 
     182    } 
     183    else { 
     184        $url = shift @_; 
     185        if ( ref $_[0] eq 'HASH' ) { 
     186            %extra = %{ shift @_ }; 
     187        } 
     188    } 
    177189 
    178190    # XXX - do not include params 
     
    182194    ); 
    183195 
    184     # default parameters must come *before* @params, so unshift instead 
    185     # of push 
    186     unshift @params, %{ $self->basic_params }; 
    187     my $response = $self->SUPER::post( $uri, @params ); 
     196    my @headers = @_; 
     197     
     198    my $response = $self->SUPER::post( $uri, { %{ $self->basic_params }, %extra }, @headers ); 
    188199 
    189200    if ( !$response->is_success ) {