loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

rename APIClient to ApiClient

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java
View File

@ -76,7 +76,7 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
typeMapping.put("array", "ARRAY"); typeMapping.put("array", "ARRAY");
typeMapping.put("map", "HASH"); 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("Configuration.mustache", "lib/WWW/" + invokerPackage, "Configuration.pm"));
supportingFiles.add(new SupportingFile("BaseObject.mustache", "lib/WWW/" + invokerPackage, "Object/BaseObject.pm")); supportingFiles.add(new SupportingFile("BaseObject.mustache", "lib/WWW/" + invokerPackage, "Object/BaseObject.pm"));
} }

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

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

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

@ -7,8 +7,6 @@ use utf8;
use Log::Any qw($log); use Log::Any qw($log);
use Carp; use Carp;
use WWW::{{invokerPackage}}::APIClient;
# class/static variables # class/static variables
our $api_client; our $api_client;
our $http_timeout = 180; our $http_timeout = 180;

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

@ -27,7 +27,7 @@ use Exporter;
use Carp qw( croak ); use Carp qw( croak );
use Log::Any qw($log); use Log::Any qw($log);
use WWW::{{invokerPackage}}::APIClient; use WWW::{{invokerPackage}}::ApiClient;
use WWW::{{invokerPackage}}::Configuration; use WWW::{{invokerPackage}}::Configuration;
{{#operations}} {{#operations}}
@ -38,7 +38,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

2
samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm
View File

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

2
samples/client/petstore/perl/lib/WWW/SwaggerClient/Configuration.pm
View File

@ -7,8 +7,6 @@ use utf8;
use Log::Any qw($log); use Log::Any qw($log);
use Carp; use Carp;
use WWW::SwaggerClient::APIClient;
# class/static variables # class/static variables
our $api_client; our $api_client;
our $http_timeout = 180; our $http_timeout = 180;

4
samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm
View File

@ -27,7 +27,7 @@ use Exporter;
use Carp qw( croak ); use Carp qw( croak );
use Log::Any qw($log); use Log::Any qw($log);
use WWW::SwaggerClient::APIClient; use WWW::SwaggerClient::ApiClient;
use WWW::SwaggerClient::Configuration; use WWW::SwaggerClient::Configuration;
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
@ -44,7 +44,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

4
samples/client/petstore/perl/lib/WWW/SwaggerClient/StoreApi.pm
View File

@ -27,7 +27,7 @@ use Exporter;
use Carp qw( croak ); use Carp qw( croak );
use Log::Any qw($log); use Log::Any qw($log);
use WWW::SwaggerClient::APIClient; use WWW::SwaggerClient::ApiClient;
use WWW::SwaggerClient::Configuration; use WWW::SwaggerClient::Configuration;
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
@ -40,7 +40,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

4
samples/client/petstore/perl/lib/WWW/SwaggerClient/UserApi.pm
View File

@ -27,7 +27,7 @@ use Exporter;
use Carp qw( croak ); use Carp qw( croak );
use Log::Any qw($log); use Log::Any qw($log);
use WWW::SwaggerClient::APIClient; use WWW::SwaggerClient::ApiClient;
use WWW::SwaggerClient::Configuration; use WWW::SwaggerClient::Configuration;
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
@ -44,7 +44,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

4
samples/client/petstore/perl/t/01_pet_api.t
View File

@ -6,12 +6,12 @@ use strict;
use warnings; use warnings;
use_ok('WWW::SwaggerClient::PetApi'); 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::Pet');
use_ok('WWW::SwaggerClient::Object::Tag'); use_ok('WWW::SwaggerClient::Object::Tag');
use_ok('WWW::SwaggerClient::Object::Category'); 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); 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'; is $pet_api->{api_client}->{base_url}, 'http://testing', 'get the proper base URL from api client';

2
samples/client/petstore/perl/test.pl
View File

@ -5,7 +5,7 @@ use lib 'lib';
use strict; use strict;
use warnings; use warnings;
use WWW::SwaggerClient::PetApi; use WWW::SwaggerClient::PetApi;
use WWW::SwaggerClient::APIClient; use WWW::SwaggerClient::ApiClient;
use WWW::SwaggerClient::Configuration; use WWW::SwaggerClient::Configuration;
use WWW::SwaggerClient::Object::Pet; use WWW::SwaggerClient::Object::Pet;
use WWW::SwaggerClient::Object::Tag; use WWW::SwaggerClient::Object::Tag;