From 4bfc032a640d25a9cca47075c9651fe730c3ad4c Mon Sep 17 00:00:00 2001
From: wing328 <wing328hk@gmail.com>
Date: Thu, 5 Nov 2015 16:32:46 +0800
Subject: [PATCH] add oauth2 support for Perl

---
 .../src/main/resources/perl/ApiClient.mustache            | 2 +-
 .../src/main/resources/perl/Configuration.mustache        | 8 ++++++--
 .../petstore/perl/lib/WWW/SwaggerClient/ApiClient.pm      | 2 +-
 .../petstore/perl/lib/WWW/SwaggerClient/Configuration.pm  | 8 ++++++--
 samples/client/petstore/perl/t/02_store_api.t             | 5 +++--
 5 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/modules/swagger-codegen/src/main/resources/perl/ApiClient.mustache b/modules/swagger-codegen/src/main/resources/perl/ApiClient.mustache
index 06aae8a0e55..0cdb40325c5 100644
--- a/modules/swagger-codegen/src/main/resources/perl/ApiClient.mustache
+++ b/modules/swagger-codegen/src/main/resources/perl/ApiClient.mustache
@@ -323,7 +323,7 @@ sub update_params_for_auth {
         }
         {{#authMethods}}elsif ($auth eq '{{name}}') {
             {{#isApiKey}}{{#isKeyInHeader}}$header_params->{'{{keyParamName}}'} = $self->get_api_key_with_prefix('{{keyParamName}}');{{/isKeyInHeader}}{{#isKeyInQuery}}$query_params->{'{{keyParamName}}'} = $self->get_api_key_with_prefix('{{keyParamName}}');{{/isKeyInQuery}}{{/isApiKey}}{{#isBasic}}$header_params->{'Authorization'} = 'Basic '.encode_base64($WWW::{{moduleName}}::Configuration::username.":".$WWW::{{moduleName}}::Configuration::password);{{/isBasic}}
-            {{#isOAuth}}# TODO support oauth{{/isOAuth}}
+            {{#isOAuth}}$header_params->{'Authorization'} = 'Bearer ' . $WWW::{{moduleName}}::Configuration::access_token;{{/isOAuth}}
         }
         {{/authMethods}}
         else {
diff --git a/modules/swagger-codegen/src/main/resources/perl/Configuration.mustache b/modules/swagger-codegen/src/main/resources/perl/Configuration.mustache
index 0a097dda7bd..d0b8b2c0e68 100644
--- a/modules/swagger-codegen/src/main/resources/perl/Configuration.mustache
+++ b/modules/swagger-codegen/src/main/resources/perl/Configuration.mustache
@@ -17,8 +17,12 @@ our $http_user_agent = 'Perl-Swagger';
 # authenticaiton setting
 our $api_key = {};
 our $api_key_prefix = {};
-our $username;
-our $password;
 
+# username and password for HTTP basic authentication
+our $username = '';
+our $password = '';
+
+# access token for OAuth
+our $access_token = '';
 
 1;
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/ApiClient.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/ApiClient.pm
index de4a3e2d2fb..7ed19c328c3 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/ApiClient.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/ApiClient.pm
@@ -327,7 +327,7 @@ sub update_params_for_auth {
         }
         elsif ($auth eq 'petstore_auth') {
             
-            # TODO support oauth
+            $header_params->{'Authorization'} = 'Bearer ' . $WWW::SwaggerClient::Configuration::access_token;
         }
         
         else {
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm
index aaa387236d9..6a4afe254e0 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm
@@ -17,8 +17,12 @@ our $http_user_agent = 'Perl-Swagger';
 # authenticaiton setting
 our $api_key = {};
 our $api_key_prefix = {};
-our $username;
-our $password;
 
+# username and password for HTTP basic authentication
+our $username = '';
+our $password = '';
+
+# access token for OAuth
+our $access_token = '';
 
 1;
diff --git a/samples/client/petstore/perl/t/02_store_api.t b/samples/client/petstore/perl/t/02_store_api.t
index c731273271d..dfee5c46839 100644
--- a/samples/client/petstore/perl/t/02_store_api.t
+++ b/samples/client/petstore/perl/t/02_store_api.t
@@ -1,4 +1,4 @@
-use Test::More tests => 42;
+use Test::More tests => 41;
 use Test::Exception;
 
 use lib 'lib';
@@ -22,7 +22,8 @@ is $store_api->{api_client}->{base_url}, 'http://petstore.swagger.io/v2', 'get t
 
 my $get_inventory_response = $store_api->get_inventory();
 
-like ($get_inventory_response->{pending}, qr/^\d+$/, "pending is numeric");
+# comment out pending check as sometimes there's no object with pending status
+#like ($get_inventory_response->{pending}, qr/^\d+$/, "pending is numeric");
 like ($get_inventory_response->{sold}, qr/^\d+$/, "sold is numeric");
 
 my $pet_json = <<JSON;