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

[6313] Add imports to perl objects. (#6500)

Browse Source
This commit is contained in:
Larry Bordowitz
2017-09-18 19:11:38 -07:00
committed by wing328
parent 146b107774
commit 65d788396b
63 changed files with 777 additions and 196 deletions
Download Patch File Download Diff File Expand all files Collapse all files

116
samples/client/petstore/perl/lib/WWW/SwaggerClient/AnotherfakeApi.pm Normal file
View File

@@ -0,0 +1,116 @@
=begin comment
Swagger Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Contact: apiteam@swagger.io
Generated by: https://github.com/swagger-api/swagger-codegen.git
=end comment
=cut
#
# NOTE: This class is auto generated by the swagger code generator program.
# Do not edit the class manually.
# Ref: https://github.com/swagger-api/swagger-codegen
#
package WWW::SwaggerClient::AnotherfakeApi;
require 5.6.0;
use strict;
use warnings;
use utf8;
use Exporter;
use Carp qw( croak );
use Log::Any qw($log);
use WWW::SwaggerClient::ApiClient;
use base "Class::Data::Inheritable";
__PACKAGE__->mk_classdata('method_documentation' => {});
sub new {
my $class = shift;
my $api_client;
if ($_[0] && ref $_[0] && ref $_[0] eq 'WWW::SwaggerClient::ApiClient' ) {
$api_client = $_[0];
} else {
$api_client = WWW::SwaggerClient::ApiClient->new(@_);
}
bless { api_client => $api_client }, $class;
}
#
# test_special_tags
#
# To test special tags
#
# @param Client $body client model (required)
{
my $params = {
'body' => {
data_type => 'Client',
description => 'client model',
required => '1',
},
};
__PACKAGE__->method_documentation->{ 'test_special_tags' } = {
summary => 'To test special tags',
params => $params,
returns => 'Client',
};
}
# @return Client
#
sub test_special_tags {
my ($self, %args) = @_;
# verify the required parameter 'body' is set
unless (exists $args{'body'}) {
croak("Missing the required parameter 'body' when calling test_special_tags");
}
# parse inputs
my $_resource_path = '/another-fake/dummy';
my $_method = 'PATCH';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
my $_body_data;
# body params
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# authentication setting, if any
my $auth_settings = [qw()];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('Client', $response);
return $_response_object;
}
1;

7
samples/client/petstore/perl/lib/WWW/SwaggerClient/ApiClient.pm
View File

@@ -348,6 +348,13 @@ sub update_params_for_auth {
$header_params->{'api_key'} = $api_key;
}
}
elsif ($auth eq 'api_key_query') {
my $api_key = $self->get_api_key_with_prefix('api_key_query');
if ($api_key) {
$query_params->{'api_key_query'} = $api_key;
}
}
elsif ($auth eq 'http_basic_test') {
if ($self->{config}{username} || $self->{config}{password}) {

77
samples/client/petstore/perl/lib/WWW/SwaggerClient/FakeApi.pm
View File

@@ -705,4 +705,81 @@ sub test_enum_parameters {
return;
}
#
# test_json_form_data
#
# test json serialization of form data
#
# @param string $param field1 (required)
# @param string $param2 field2 (required)
{
my $params = {
'param' => {
data_type => 'string',
description => 'field1',
required => '1',
},
'param2' => {
data_type => 'string',
description => 'field2',
required => '1',
},
};
__PACKAGE__->method_documentation->{ 'test_json_form_data' } = {
summary => 'test json serialization of form data',
params => $params,
returns => undef,
};
}
# @return void
#
sub test_json_form_data {
my ($self, %args) = @_;
# verify the required parameter 'param' is set
unless (exists $args{'param'}) {
croak("Missing the required parameter 'param' when calling test_json_form_data");
}
# verify the required parameter 'param2' is set
unless (exists $args{'param2'}) {
croak("Missing the required parameter 'param2' when calling test_json_form_data");
}
# parse inputs
my $_resource_path = '/fake/jsonFormData';
my $_method = 'GET';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept();
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
# form params
if ( exists $args{'param'} ) {
$form_params->{'param'} = $self->{api_client}->to_form_value($args{'param'});
}
# form params
if ( exists $args{'param2'} ) {
$form_params->{'param2'} = $self->{api_client}->to_form_value($args{'param2'});
}
my $_body_data;
# authentication setting, if any
my $auth_settings = [qw()];
# make the API Call
$self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
return;
}
1;

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

@@ -100,7 +100,7 @@ sub test_classname {
}
# authentication setting, if any
my $auth_settings = [qw()];
my $auth_settings = [qw(api_key_query )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/AdditionalPropertiesClass.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Animal.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Animal;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/ApiResponse.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Number;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Number;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::ReadOnlyFirst;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Capitalization.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Animal;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Category.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/ClassModel.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Client.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Animal;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/EnumArrays.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/EnumClass.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::OuterEnum;
use base ("Class::Accessor", "Class::Data::Inheritable");

3
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/FormatTest.pm
View File

@@ -30,6 +30,9 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Number;
use WWW::SwaggerClient::Object::UUID;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/HasOnlyReadOnly.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/List.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/MapTest.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

3
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/MixedPropertiesAndAdditionalPropertiesClass.pm
View File

@@ -30,6 +30,9 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Animal;
use WWW::SwaggerClient::Object::UUID;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Model200Response.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/ModelReturn.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Name.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,8 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Number;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Order.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/OuterBoolean.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

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

@@ -30,6 +30,10 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::OuterBoolean;
use WWW::SwaggerClient::Object::OuterNumber;
use WWW::SwaggerClient::Object::OuterString;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/OuterEnum.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/OuterNumber.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/OuterString.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

3
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Pet.pm
View File

@@ -30,6 +30,9 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use WWW::SwaggerClient::Object::Category;
use WWW::SwaggerClient::Object::Tag;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/ReadOnlyFirst.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/SpecialModelName.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Tag.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");

1
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/User.pm
View File

@@ -30,6 +30,7 @@ use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");