Changeset 439

Show
Ignore:
Timestamp:
07/21/09 00:58:08 (1 year ago)
Author:
miya
Message:

APA

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • library/perl/trunk/Net-Amazon-ECS/lib/Net/Amazon/ECS.pm

    r310 r439  
    1111use String::CamelCase qw(camelize); 
    1212use Net::Amazon::ECS::Response; 
     13use URI::Amazon::APA; 
    1314 
    1415our %default = ( 
    …… 
    4546    my $option = $self->{option}; 
    4647 
    47     my $url = URI->new( $request->ecs_url(delete $option->{locale}) ); 
     48    my $url = URI::Amazon::APA->new( 
     49        $request->ecs_url(delete $option->{locale}) 
     50    ); 
    4851 
    4952    $option->{response_group} = camelize( $option->{response_group} ); 
    …… 
    6164    ); 
    6265 
    63     $url->query_form( map { camelize($_) => $request_param{$_} } ( keys %request_param ) ); 
     66    $url->query_form( 
     67        map { camelize($_) => $request_param{$_} } ( keys %request_param ) 
     68    ); 
     69 
     70    $url->sign( 
     71        key    => $self->{option}->{AWS_access_key_id}, 
     72        secret => $self->{option}->{secret_access_key}, 
     73    ); 
    6474 
    6575    my $res = URI::Fetch->fetch($url);