update user agent and add more test cases

Author: wing328

modules/swagger-codegen/src/main/resources/perl/APIClient.mustache

@@ -17,6 +17,8 @@ use Log::Any qw($log);
 use Carp;
 use Module::Runtime qw(use_module);
 
+use WWW::{{invokerPackage}}::Configuration;
+
 sub new
 {
   my $class = shift;

modules/swagger-codegen/src/main/resources/perl/Configuration.mustache

@@ -7,10 +7,12 @@ use utf8;
 use Log::Any qw($log);
 use Carp;
 
+use WWW::{{invokerPackage}}::APIClient;
+
 # class/static variables
-my $api_client = WWW::SwaggerClient::APIClient->new;
-my $http_timeout = 180;
-my $http_user_agent = 'Perl-Swagger';
+our $api_client;
+our $http_timeout = 180;
+our $http_user_agent = 'Perl-Swagger';
 
 
 1;

modules/swagger-codegen/src/main/resources/perl/api.mustache

@@ -27,19 +27,18 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-
-{{#operations}}
-
 use WWW::{{invokerPackage}}::APIClient;
+use WWW::{{invokerPackage}}::Configuration;
 
+{{#operations}}
 our @EXPORT_OK = qw(
   {{#operation}}{{{nickname}}} 
   {{/operation}}
 );
 
 sub new {
     my $class   = shift;
-    my $default_api_client = WWW::{{invokerPackage}}::APIClient->new;
+    my $default_api_client = $WWW::{{invokerPackage}}::Configuration::api_client ? $WWW::{{invokerPackage}}::Configuration::api_client  : WWW::{{invokerPackage}}::APIClient->new;
     my (%self) = (
         'api_client' => $default_api_client,
         @_

samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm

@@ -17,6 +17,8 @@ use Log::Any qw($log);
 use Carp;
 use Module::Runtime qw(use_module);
 
+use WWW::SwaggerClient::Configuration;
+
 sub new
 {
   my $class = shift;

samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm

@@ -7,10 +7,12 @@ use utf8;
 use Log::Any qw($log);
 use Carp;
 
+use WWW::SwaggerClient::APIClient;
+
 # class/static variables
-my $api_client = WWW::SwaggerClient::APIClient->new;
-my $http_timeout = 180;
-my $http_user_agent = 'Perl-Swagger';
+our $api_client;
+our $http_timeout = 180;
+our $http_user_agent = 'Perl-Swagger';
 
 
 1;

samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm

@@ -27,9 +27,8 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-
-
 use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::Configuration;
 
 our @EXPORT_OK = qw(
   update_pet 
@@ -45,7 +44,7 @@ our @EXPORT_OK = qw(
 
 sub new {
     my $class   = shift;
-    my $default_api_client = WWW::SwaggerClient::APIClient->new;
+    my $default_api_client = $WWW::SwaggerClient::Configuration::api_client ? $WWW::SwaggerClient::Configuration::api_client  : WWW::SwaggerClient::APIClient->new;
     my (%self) = (
         'api_client' => $default_api_client,
         @_

samples/client/petstore/perl/lib/WWW/SwaggerClient/StoreApi.pm

@@ -27,9 +27,8 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-
-
 use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::Configuration;
 
 our @EXPORT_OK = qw(
   get_inventory 
@@ -41,7 +40,7 @@ our @EXPORT_OK = qw(
 
 sub new {
     my $class   = shift;
-    my $default_api_client = WWW::SwaggerClient::APIClient->new;
+    my $default_api_client = $WWW::SwaggerClient::Configuration::api_client ? $WWW::SwaggerClient::Configuration::api_client  : WWW::SwaggerClient::APIClient->new;
     my (%self) = (
         'api_client' => $default_api_client,
         @_

samples/client/petstore/perl/lib/WWW/SwaggerClient/UserApi.pm

@@ -27,9 +27,8 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-
-
 use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::Configuration;
 
 our @EXPORT_OK = qw(
   create_user 
@@ -45,7 +44,7 @@ our @EXPORT_OK = qw(
 
 sub new {
     my $class   = shift;
-    my $default_api_client = WWW::SwaggerClient::APIClient->new;
+    my $default_api_client = $WWW::SwaggerClient::Configuration::api_client ? $WWW::SwaggerClient::Configuration::api_client  : WWW::SwaggerClient::APIClient->new;
     my (%self) = (
         'api_client' => $default_api_client,
         @_

samples/client/petstore/perl/test.pl

@@ -6,13 +6,16 @@
 use warnings;
 use WWW::SwaggerClient::PetApi;
 use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::Configuration;
 use WWW::SwaggerClient::Object::Pet;
 use WWW::SwaggerClient::Object::Tag;
 use WWW::SwaggerClient::Object::Category;
 use JSON;
 use Data::Dumper;
 use DateTime;
 
+$WWW::SwaggerClient::Configuration::http_user_agent = 'Perl-Swagger-Test';
+
 my $api = WWW::SwaggerClient::PetApi->new();
 
 my $pet_id = 10008;