From fceaed34e47573c3fbaa9cb7dfe5180a3caa04cd Mon Sep 17 00:00:00 2001
From: wing328 <wing328hk@gmail.com>
Date: Wed, 3 Jun 2015 10:19:07 +0800
Subject: [PATCH] rename apiclient

---
 .../client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm   | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm
index 427c09324b8..c9e9d82df10 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm
@@ -82,7 +82,6 @@ sub call_api {
 
   # Make the HTTP request
   my $_request;
-  use Data::Dumper;
   if ($method eq 'POST') {
       # multipart
       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},
       #  Content_Type => $_content_type, Content => $_body_data);
-      $_request = HTTP::Request->new( $method, $_url, $headers, $_body_data );
-      print Dumper($_request);
+      $_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
 
   }
   elsif ($method eq 'PUT') {