rename APIClient to ApiClient

wing328 · wing328 · commit 1a868abdfa57 · 2015-05-28T10:51:36.000+08:00
diff --git a/modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java b/modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java
@@ -76,7 +76,7 @@ public PerlClientCodegen() {
     typeMapping.put("array", "ARRAY");
     typeMapping.put("map", "HASH");
 
-    supportingFiles.add(new SupportingFile("APIClient.mustache", "lib/WWW/" + invokerPackage, "APIClient.pm"));
+    supportingFiles.add(new SupportingFile("ApiClient.mustache", "lib/WWW/" + invokerPackage, "ApiClient.pm"));
     supportingFiles.add(new SupportingFile("Configuration.mustache", "lib/WWW/" + invokerPackage, "Configuration.pm"));
     supportingFiles.add(new SupportingFile("BaseObject.mustache", "lib/WWW/" + invokerPackage, "Object/BaseObject.pm"));
   }
diff --git a/modules/swagger-codegen/src/main/resources/perl/APIClient.mustache b/modules/swagger-codegen/src/main/resources/perl/APIClient.mustache
@@ -1,4 +1,4 @@
-package WWW::{{invokerPackage}}::APIClient;
+package WWW::{{invokerPackage}}::ApiClient;
 
 use strict;
 use warnings;
diff --git a/modules/swagger-codegen/src/main/resources/perl/Configuration.mustache b/modules/swagger-codegen/src/main/resources/perl/Configuration.mustache
@@ -7,8 +7,6 @@ use utf8;
 use Log::Any qw($log);
 use Carp;
 
-use WWW::{{invokerPackage}}::APIClient;
-
 # class/static variables
 our $api_client;
 our $http_timeout = 180;
diff --git a/modules/swagger-codegen/src/main/resources/perl/api.mustache b/modules/swagger-codegen/src/main/resources/perl/api.mustache
@@ -27,7 +27,7 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-use WWW::{{invokerPackage}}::APIClient;
+use WWW::{{invokerPackage}}::ApiClient;
 use WWW::{{invokerPackage}}::Configuration;
 
 {{#operations}}
@@ -38,7 +38,7 @@ our @EXPORT_OK = qw(
 
 sub new {
     my $class   = shift;
-    my $default_api_client = $WWW::{{invokerPackage}}::Configuration::api_client ? $WWW::{{invokerPackage}}::Configuration::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,
         @_
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm
@@ -1,4 +1,4 @@
-package WWW::SwaggerClient::APIClient;
+package WWW::SwaggerClient::ApiClient;
 
 use strict;
 use warnings;
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm
@@ -7,8 +7,6 @@ use utf8;
 use Log::Any qw($log);
 use Carp;
 
-use WWW::SwaggerClient::APIClient;
-
 # class/static variables
 our $api_client;
 our $http_timeout = 180;
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm
@@ -27,7 +27,7 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::ApiClient;
 use WWW::SwaggerClient::Configuration;
 
 our @EXPORT_OK = qw(
@@ -44,7 +44,7 @@ our @EXPORT_OK = qw(
 
 sub new {
     my $class   = shift;
-    my $default_api_client = $WWW::SwaggerClient::Configuration::api_client ? $WWW::SwaggerClient::Configuration::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,
         @_
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/StoreApi.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/StoreApi.pm
@@ -27,7 +27,7 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::ApiClient;
 use WWW::SwaggerClient::Configuration;
 
 our @EXPORT_OK = qw(
@@ -40,7 +40,7 @@ our @EXPORT_OK = qw(
 
 sub new {
     my $class   = shift;
-    my $default_api_client = $WWW::SwaggerClient::Configuration::api_client ? $WWW::SwaggerClient::Configuration::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,
         @_
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/UserApi.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/UserApi.pm
@@ -27,7 +27,7 @@ use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
 
-use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::ApiClient;
 use WWW::SwaggerClient::Configuration;
 
 our @EXPORT_OK = qw(
@@ -44,7 +44,7 @@ our @EXPORT_OK = qw(
 
 sub new {
     my $class   = shift;
-    my $default_api_client = $WWW::SwaggerClient::Configuration::api_client ? $WWW::SwaggerClient::Configuration::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,
         @_
diff --git a/samples/client/petstore/perl/t/01_pet_api.t b/samples/client/petstore/perl/t/01_pet_api.t
@@ -6,12 +6,12 @@ use strict;
 use warnings;
 
 use_ok('WWW::SwaggerClient::PetApi');
-use_ok('WWW::SwaggerClient::APIClient');
+use_ok('WWW::SwaggerClient::ApiClient');
 use_ok('WWW::SwaggerClient::Object::Pet');
 use_ok('WWW::SwaggerClient::Object::Tag');
 use_ok('WWW::SwaggerClient::Object::Category');
 
-my $api_client = WWW::SwaggerClient::APIClient->new('base_url' => 'http://testing');
+my $api_client = WWW::SwaggerClient::ApiClient->new('base_url' => 'http://testing');
 my $pet_api = WWW::SwaggerClient::PetApi->new('api_client' => $api_client);
 is $pet_api->{api_client}->{base_url}, 'http://testing', 'get the proper base URL from api client';
 
diff --git a/samples/client/petstore/perl/test.pl b/samples/client/petstore/perl/test.pl
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 use WWW::SwaggerClient::PetApi;
-use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::ApiClient;
 use WWW::SwaggerClient::Configuration;
 use WWW::SwaggerClient::Object::Pet;
 use WWW::SwaggerClient::Object::Tag;

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ public PerlClientCodegen() {`
`76`	`76`	`typeMapping.put("array", "ARRAY");`
`77`	`77`	`typeMapping.put("map", "HASH");`
`78`	`78`
`79`		`- supportingFiles.add(new SupportingFile("APIClient.mustache", "lib/WWW/" + invokerPackage, "APIClient.pm"));`
	`79`	`+ supportingFiles.add(new SupportingFile("ApiClient.mustache", "lib/WWW/" + invokerPackage, "ApiClient.pm"));`
`80`	`80`	`supportingFiles.add(new SupportingFile("Configuration.mustache", "lib/WWW/" + invokerPackage, "Configuration.pm"));`
`81`	`81`	`supportingFiles.add(new SupportingFile("BaseObject.mustache", "lib/WWW/" + invokerPackage, "Object/BaseObject.pm"));`
`82`	`82`	`}`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-package WWW::{{invokerPackage}}::APIClient;`
	`1`	`+package WWW::{{invokerPackage}}::ApiClient;`
`2`	`2`
`3`	`3`	`use strict;`
`4`	`4`	`use warnings;`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-package WWW::SwaggerClient::APIClient;`
	`1`	`+package WWW::SwaggerClient::ApiClient;`
`2`	`2`
`3`	`3`	`use strict;`
`4`	`4`	`use warnings;`