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

update user agent and add more test cases

Browse Source
This commit is contained in:
wing328
2015-05-27 22:44:56 +08:00
parent 866b546cfd
commit 2c12312b97
9 changed files with 26 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@@ -7,10 +7,12 @@ 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
my $api_client = WWW::SwaggerClient::APIClient->new; our $api_client;
my $http_timeout = 180; our $http_timeout = 180;
my $http_user_agent = 'Perl-Swagger'; our $http_user_agent = 'Perl-Swagger';
1; 1;

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

@@ -27,11 +27,10 @@ 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}}::Configuration;
{{#operations}} {{#operations}}
use WWW::{{invokerPackage}}::APIClient;
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
{{#operation}}{{{nickname}}} {{#operation}}{{{nickname}}}
{{/operation}} {{/operation}}
@@ -39,7 +38,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

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

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

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

@@ -7,10 +7,12 @@ 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
my $api_client = WWW::SwaggerClient::APIClient->new; our $api_client;
my $http_timeout = 180; our $http_timeout = 180;
my $http_user_agent = 'Perl-Swagger'; our $http_user_agent = 'Perl-Swagger';
1; 1;

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

@@ -27,9 +27,8 @@ 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;
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
update_pet update_pet
@@ -45,7 +44,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

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

@@ -27,9 +27,8 @@ 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;
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
get_inventory get_inventory
@@ -41,7 +40,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

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

@@ -27,9 +27,8 @@ 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;
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
create_user create_user
@@ -45,7 +44,7 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; 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) = ( my (%self) = (
'api_client' => $default_api_client, 'api_client' => $default_api_client,
@_ @_

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

@@ -6,6 +6,7 @@ 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::Object::Pet; use WWW::SwaggerClient::Object::Pet;
use WWW::SwaggerClient::Object::Tag; use WWW::SwaggerClient::Object::Tag;
use WWW::SwaggerClient::Object::Category; use WWW::SwaggerClient::Object::Category;
@@ -13,6 +14,8 @@ use JSON;
use Data::Dumper; use Data::Dumper;
use DateTime; use DateTime;
$WWW::SwaggerClient::Configuration::http_user_agent = 'Perl-Swagger-Test';
my $api = WWW::SwaggerClient::PetApi->new(); my $api = WWW::SwaggerClient::PetApi->new();
my $pet_id = 10008; my $pet_id = 10008;