Merge pull request #3655 from scop/perl-user-agent

perl: Sync default user agent with other languages

Author: wing328

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

@@ -17,7 +17,7 @@ use constant VERSION => '{{moduleVersion}}';
 
 # class/static variables
 our $http_timeout = 180;
-our $http_user_agent = 'Perl-Swagger';
+our $http_user_agent = '{{#httpUserAgent}}{{{.}}}{{/httpUserAgent}}{{^httpUserAgent}}Swagger-Codegen/{{{moduleVersion}}}/perl{{/httpUserAgent}}';
 
 # authentication setting
 our $api_key = {};

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

@@ -42,7 +42,7 @@ use constant VERSION => '1.0.0';
 
 # class/static variables
 our $http_timeout = 180;
-our $http_user_agent = 'Perl-Swagger';
+our $http_user_agent = 'Swagger-Codegen/1.0.0/perl';
 
 # authentication setting
 our $api_key = {};