rename APIClient to ApiClient

This commit is contained in:
wing328 2015-05-28 10:51:36 +08:00
parent 2c12312b97
commit 1a868abdfa
11 changed files with 14 additions and 18 deletions

View File

@ -76,7 +76,7 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
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"));
}

View File

@ -1,4 +1,4 @@
package WWW::{{invokerPackage}}::APIClient;
package WWW::{{invokerPackage}}::ApiClient;
use strict;
use warnings;

View File

@ -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;

View File

@ -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,
@_

View File

@ -1,4 +1,4 @@
package WWW::SwaggerClient::APIClient;
package WWW::SwaggerClient::ApiClient;
use strict;
use warnings;

View File

@ -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;

View File

@ -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,
@_

View File

@ -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,
@_

View File

@ -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,
@_

View File

@ -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';

View File

@ -5,7 +5,7 @@ use lib 'lib';
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;