rename apiclient

This commit is contained in:
wing328 2015-06-03 10:19:07 +08:00
parent 3d16d8b2b6
commit fceaed34e4

View File

@ -82,7 +82,6 @@ sub call_api {
# Make the HTTP request # Make the HTTP request
my $_request; my $_request;
use Data::Dumper;
if ($method eq 'POST') { if ($method eq 'POST') {
# multipart # multipart
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ? my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
@ -92,8 +91,7 @@ sub call_api {
#$_request = POST($_url, Accept => $header_params->{Accept}, #$_request = POST($_url, Accept => $header_params->{Accept},
# Content_Type => $_content_type, Content => $_body_data); # Content_Type => $_content_type, Content => $_body_data);
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data ); $_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
print Dumper($_request);
} }
elsif ($method eq 'PUT') { elsif ($method eq 'PUT') {