loafle/openapi-generator-original
3
0
Fork 1
mirror of https://github.com/OpenAPITools/openapi-generator.git synced 2025-07-05 07:01:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make sure Perl client samples are up-to-date (#3207)

Browse Source 
* Make sure Perl samples are up-to-date

* update perl samples
This commit is contained in:
William Cheng 2019-06-25 10:34:44 +08:00 committed by GitHub
parent 3ee76a0662
commit 74c569ebf8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
42 changed files with 1064 additions and 384 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
bin/utils/ensure-up-to-date
View File

@ -56,6 +56,7 @@ declare -a scripts=(
"./bin/go-gin-petstore-server.sh" "./bin/go-gin-petstore-server.sh"
"./bin/groovy-petstore.sh" "./bin/groovy-petstore.sh"
"./bin/apex-petstore.sh" "./bin/apex-petstore.sh"
"./bin/perl-petstore-all.sh"
#"./bin/elm-petstore-all.sh" #"./bin/elm-petstore-all.sh"
"./bin/meta-codegen.sh" "./bin/meta-codegen.sh"
# OTHERS # OTHERS

2
samples/client/petstore/perl/.openapi-generator/VERSION
View File

@ -1 +1 @@
4.0.0-SNAPSHOT 4.0.3-SNAPSHOT

9
samples/client/petstore/perl/.travis.yml Normal file
View File

@ -0,0 +1,9 @@
# https://docs.travis-ci.com/user/languages/perl/
#
language: perl
perl:
- "5.28"
sudo: false

88
samples/client/petstore/perl/README.md
View File

@ -222,7 +222,6 @@ Each of these calls returns a hashref with various useful pieces of information.
To load the API packages: To load the API packages:
```perl ```perl
use WWW::OpenAPIClient::AnotherFakeApi; use WWW::OpenAPIClient::AnotherFakeApi;
use WWW::OpenAPIClient::DefaultApi;
use WWW::OpenAPIClient::FakeApi; use WWW::OpenAPIClient::FakeApi;
use WWW::OpenAPIClient::FakeClassnameTags123Api; use WWW::OpenAPIClient::FakeClassnameTags123Api;
use WWW::OpenAPIClient::PetApi; use WWW::OpenAPIClient::PetApi;
@ -233,7 +232,14 @@ use WWW::OpenAPIClient::UserApi;
To load the models: To load the models:
```perl ```perl
use WWW::OpenAPIClient::Object::AdditionalPropertiesAnyType;
use WWW::OpenAPIClient::Object::AdditionalPropertiesArray;
use WWW::OpenAPIClient::Object::AdditionalPropertiesBoolean;
use WWW::OpenAPIClient::Object::AdditionalPropertiesClass; use WWW::OpenAPIClient::Object::AdditionalPropertiesClass;
use WWW::OpenAPIClient::Object::AdditionalPropertiesInteger;
use WWW::OpenAPIClient::Object::AdditionalPropertiesNumber;
use WWW::OpenAPIClient::Object::AdditionalPropertiesObject;
use WWW::OpenAPIClient::Object::AdditionalPropertiesString;
use WWW::OpenAPIClient::Object::Animal; use WWW::OpenAPIClient::Object::Animal;
use WWW::OpenAPIClient::Object::ApiResponse; use WWW::OpenAPIClient::Object::ApiResponse;
use WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly; use WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly;
@ -241,45 +247,37 @@ use WWW::OpenAPIClient::Object::ArrayOfNumberOnly;
use WWW::OpenAPIClient::Object::ArrayTest; use WWW::OpenAPIClient::Object::ArrayTest;
use WWW::OpenAPIClient::Object::Capitalization; use WWW::OpenAPIClient::Object::Capitalization;
use WWW::OpenAPIClient::Object::Cat; use WWW::OpenAPIClient::Object::Cat;
use WWW::OpenAPIClient::Object::CatAllOf;
use WWW::OpenAPIClient::Object::Category; use WWW::OpenAPIClient::Object::Category;
use WWW::OpenAPIClient::Object::ClassModel; use WWW::OpenAPIClient::Object::ClassModel;
use WWW::OpenAPIClient::Object::Client; use WWW::OpenAPIClient::Object::Client;
use WWW::OpenAPIClient::Object::Dog; use WWW::OpenAPIClient::Object::Dog;
use WWW::OpenAPIClient::Object::DogAllOf;
use WWW::OpenAPIClient::Object::EnumArrays; use WWW::OpenAPIClient::Object::EnumArrays;
use WWW::OpenAPIClient::Object::EnumClass; use WWW::OpenAPIClient::Object::EnumClass;
use WWW::OpenAPIClient::Object::EnumTest; use WWW::OpenAPIClient::Object::EnumTest;
use WWW::OpenAPIClient::Object::File; use WWW::OpenAPIClient::Object::File;
use WWW::OpenAPIClient::Object::FileSchemaTestClass; use WWW::OpenAPIClient::Object::FileSchemaTestClass;
use WWW::OpenAPIClient::Object::Foo;
use WWW::OpenAPIClient::Object::FormatTest; use WWW::OpenAPIClient::Object::FormatTest;
use WWW::OpenAPIClient::Object::HasOnlyReadOnly; use WWW::OpenAPIClient::Object::HasOnlyReadOnly;
use WWW::OpenAPIClient::Object::HealthCheckResult;
use WWW::OpenAPIClient::Object::InlineObject;
use WWW::OpenAPIClient::Object::InlineObject1;
use WWW::OpenAPIClient::Object::InlineObject2;
use WWW::OpenAPIClient::Object::InlineObject3;
use WWW::OpenAPIClient::Object::InlineObject4;
use WWW::OpenAPIClient::Object::InlineObject5;
use WWW::OpenAPIClient::Object::InlineResponseDefault;
use WWW::OpenAPIClient::Object::List; use WWW::OpenAPIClient::Object::List;
use WWW::OpenAPIClient::Object::MapTest; use WWW::OpenAPIClient::Object::MapTest;
use WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass; use WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass;
use WWW::OpenAPIClient::Object::Model200Response; use WWW::OpenAPIClient::Object::Model200Response;
use WWW::OpenAPIClient::Object::ModelReturn; use WWW::OpenAPIClient::Object::ModelReturn;
use WWW::OpenAPIClient::Object::Name; use WWW::OpenAPIClient::Object::Name;
use WWW::OpenAPIClient::Object::NullableClass;
use WWW::OpenAPIClient::Object::NumberOnly; use WWW::OpenAPIClient::Object::NumberOnly;
use WWW::OpenAPIClient::Object::Order; use WWW::OpenAPIClient::Object::Order;
use WWW::OpenAPIClient::Object::OuterComposite; use WWW::OpenAPIClient::Object::OuterComposite;
use WWW::OpenAPIClient::Object::OuterEnum; use WWW::OpenAPIClient::Object::OuterEnum;
use WWW::OpenAPIClient::Object::OuterEnumDefaultValue;
use WWW::OpenAPIClient::Object::OuterEnumInteger;
use WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue;
use WWW::OpenAPIClient::Object::Pet; use WWW::OpenAPIClient::Object::Pet;
use WWW::OpenAPIClient::Object::ReadOnlyFirst; use WWW::OpenAPIClient::Object::ReadOnlyFirst;
use WWW::OpenAPIClient::Object::SpecialModelName; use WWW::OpenAPIClient::Object::SpecialModelName;
use WWW::OpenAPIClient::Object::Tag; use WWW::OpenAPIClient::Object::Tag;
use WWW::OpenAPIClient::Object::TypeHolderDefault;
use WWW::OpenAPIClient::Object::TypeHolderExample;
use WWW::OpenAPIClient::Object::User; use WWW::OpenAPIClient::Object::User;
use WWW::OpenAPIClient::Object::XmlItem;
```` ````
@ -292,7 +290,6 @@ use strict;
use warnings; use warnings;
# load the API package # load the API package
use WWW::OpenAPIClient::AnotherFakeApi; use WWW::OpenAPIClient::AnotherFakeApi;
use WWW::OpenAPIClient::DefaultApi;
use WWW::OpenAPIClient::FakeApi; use WWW::OpenAPIClient::FakeApi;
use WWW::OpenAPIClient::FakeClassnameTags123Api; use WWW::OpenAPIClient::FakeClassnameTags123Api;
use WWW::OpenAPIClient::PetApi; use WWW::OpenAPIClient::PetApi;
@ -300,7 +297,14 @@ use WWW::OpenAPIClient::StoreApi;
use WWW::OpenAPIClient::UserApi; use WWW::OpenAPIClient::UserApi;
# load the models # load the models
use WWW::OpenAPIClient::Object::AdditionalPropertiesAnyType;
use WWW::OpenAPIClient::Object::AdditionalPropertiesArray;
use WWW::OpenAPIClient::Object::AdditionalPropertiesBoolean;
use WWW::OpenAPIClient::Object::AdditionalPropertiesClass; use WWW::OpenAPIClient::Object::AdditionalPropertiesClass;
use WWW::OpenAPIClient::Object::AdditionalPropertiesInteger;
use WWW::OpenAPIClient::Object::AdditionalPropertiesNumber;
use WWW::OpenAPIClient::Object::AdditionalPropertiesObject;
use WWW::OpenAPIClient::Object::AdditionalPropertiesString;
use WWW::OpenAPIClient::Object::Animal; use WWW::OpenAPIClient::Object::Animal;
use WWW::OpenAPIClient::Object::ApiResponse; use WWW::OpenAPIClient::Object::ApiResponse;
use WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly; use WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly;
@ -308,45 +312,37 @@ use WWW::OpenAPIClient::Object::ArrayOfNumberOnly;
use WWW::OpenAPIClient::Object::ArrayTest; use WWW::OpenAPIClient::Object::ArrayTest;
use WWW::OpenAPIClient::Object::Capitalization; use WWW::OpenAPIClient::Object::Capitalization;
use WWW::OpenAPIClient::Object::Cat; use WWW::OpenAPIClient::Object::Cat;
use WWW::OpenAPIClient::Object::CatAllOf;
use WWW::OpenAPIClient::Object::Category; use WWW::OpenAPIClient::Object::Category;
use WWW::OpenAPIClient::Object::ClassModel; use WWW::OpenAPIClient::Object::ClassModel;
use WWW::OpenAPIClient::Object::Client; use WWW::OpenAPIClient::Object::Client;
use WWW::OpenAPIClient::Object::Dog; use WWW::OpenAPIClient::Object::Dog;
use WWW::OpenAPIClient::Object::DogAllOf;
use WWW::OpenAPIClient::Object::EnumArrays; use WWW::OpenAPIClient::Object::EnumArrays;
use WWW::OpenAPIClient::Object::EnumClass; use WWW::OpenAPIClient::Object::EnumClass;
use WWW::OpenAPIClient::Object::EnumTest; use WWW::OpenAPIClient::Object::EnumTest;
use WWW::OpenAPIClient::Object::File; use WWW::OpenAPIClient::Object::File;
use WWW::OpenAPIClient::Object::FileSchemaTestClass; use WWW::OpenAPIClient::Object::FileSchemaTestClass;
use WWW::OpenAPIClient::Object::Foo;
use WWW::OpenAPIClient::Object::FormatTest; use WWW::OpenAPIClient::Object::FormatTest;
use WWW::OpenAPIClient::Object::HasOnlyReadOnly; use WWW::OpenAPIClient::Object::HasOnlyReadOnly;
use WWW::OpenAPIClient::Object::HealthCheckResult;
use WWW::OpenAPIClient::Object::InlineObject;
use WWW::OpenAPIClient::Object::InlineObject1;
use WWW::OpenAPIClient::Object::InlineObject2;
use WWW::OpenAPIClient::Object::InlineObject3;
use WWW::OpenAPIClient::Object::InlineObject4;
use WWW::OpenAPIClient::Object::InlineObject5;
use WWW::OpenAPIClient::Object::InlineResponseDefault;
use WWW::OpenAPIClient::Object::List; use WWW::OpenAPIClient::Object::List;
use WWW::OpenAPIClient::Object::MapTest; use WWW::OpenAPIClient::Object::MapTest;
use WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass; use WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass;
use WWW::OpenAPIClient::Object::Model200Response; use WWW::OpenAPIClient::Object::Model200Response;
use WWW::OpenAPIClient::Object::ModelReturn; use WWW::OpenAPIClient::Object::ModelReturn;
use WWW::OpenAPIClient::Object::Name; use WWW::OpenAPIClient::Object::Name;
use WWW::OpenAPIClient::Object::NullableClass;
use WWW::OpenAPIClient::Object::NumberOnly; use WWW::OpenAPIClient::Object::NumberOnly;
use WWW::OpenAPIClient::Object::Order; use WWW::OpenAPIClient::Object::Order;
use WWW::OpenAPIClient::Object::OuterComposite; use WWW::OpenAPIClient::Object::OuterComposite;
use WWW::OpenAPIClient::Object::OuterEnum; use WWW::OpenAPIClient::Object::OuterEnum;
use WWW::OpenAPIClient::Object::OuterEnumDefaultValue;
use WWW::OpenAPIClient::Object::OuterEnumInteger;
use WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue;
use WWW::OpenAPIClient::Object::Pet; use WWW::OpenAPIClient::Object::Pet;
use WWW::OpenAPIClient::Object::ReadOnlyFirst; use WWW::OpenAPIClient::Object::ReadOnlyFirst;
use WWW::OpenAPIClient::Object::SpecialModelName; use WWW::OpenAPIClient::Object::SpecialModelName;
use WWW::OpenAPIClient::Object::Tag; use WWW::OpenAPIClient::Object::Tag;
use WWW::OpenAPIClient::Object::TypeHolderDefault;
use WWW::OpenAPIClient::Object::TypeHolderExample;
use WWW::OpenAPIClient::Object::User; use WWW::OpenAPIClient::Object::User;
use WWW::OpenAPIClient::Object::XmlItem;
# for displaying the API response data # for displaying the API response data
use Data::Dumper; use Data::Dumper;
@ -355,10 +351,10 @@ use WWW::OpenAPIClient::;
my $api_instance = WWW::OpenAPIClient::->new( my $api_instance = WWW::OpenAPIClient::->new(
); );
my $client = WWW::OpenAPIClient::Object::Client->new(); # Client | client model my $body = WWW::OpenAPIClient::Object::Client->new(); # Client | client model
eval { eval {
my $result = $api_instance->call_123_test_special_tags(client => $client); my $result = $api_instance->call_123_test_special_tags(body => $body);
print Dumper($result); print Dumper($result);
}; };
if ($@) { if ($@) {
@ -374,8 +370,7 @@ All URIs are relative to *http://petstore.swagger.io:80/v2*
Class | Method | HTTP request | Description Class | Method | HTTP request | Description
------------ | ------------- | ------------- | ------------- ------------ | ------------- | ------------- | -------------
*AnotherFakeApi* | [**call_123_test_special_tags**](docs/AnotherFakeApi.md#call_123_test_special_tags) | **PATCH** /another-fake/dummy | To test special tags *AnotherFakeApi* | [**call_123_test_special_tags**](docs/AnotherFakeApi.md#call_123_test_special_tags) | **PATCH** /another-fake/dummy | To test special tags
*DefaultApi* | [**foo_get**](docs/DefaultApi.md#foo_get) | **GET** /foo | *FakeApi* | [**create_xml_item**](docs/FakeApi.md#create_xml_item) | **POST** /fake/create_xml_item | creates an XmlItem
*FakeApi* | [**fake_health_get**](docs/FakeApi.md#fake_health_get) | **GET** /fake/health | Health check endpoint
*FakeApi* | [**fake_outer_boolean_serialize**](docs/FakeApi.md#fake_outer_boolean_serialize) | **POST** /fake/outer/boolean | *FakeApi* | [**fake_outer_boolean_serialize**](docs/FakeApi.md#fake_outer_boolean_serialize) | **POST** /fake/outer/boolean |
*FakeApi* | [**fake_outer_composite_serialize**](docs/FakeApi.md#fake_outer_composite_serialize) | **POST** /fake/outer/composite | *FakeApi* | [**fake_outer_composite_serialize**](docs/FakeApi.md#fake_outer_composite_serialize) | **POST** /fake/outer/composite |
*FakeApi* | [**fake_outer_number_serialize**](docs/FakeApi.md#fake_outer_number_serialize) | **POST** /fake/outer/number | *FakeApi* | [**fake_outer_number_serialize**](docs/FakeApi.md#fake_outer_number_serialize) | **POST** /fake/outer/number |
@ -413,7 +408,14 @@ Class | Method | HTTP request | Description
# DOCUMENTATION FOR MODELS # DOCUMENTATION FOR MODELS
- [WWW::OpenAPIClient::Object::AdditionalPropertiesAnyType](docs/AdditionalPropertiesAnyType.md)
- [WWW::OpenAPIClient::Object::AdditionalPropertiesArray](docs/AdditionalPropertiesArray.md)
- [WWW::OpenAPIClient::Object::AdditionalPropertiesBoolean](docs/AdditionalPropertiesBoolean.md)
- [WWW::OpenAPIClient::Object::AdditionalPropertiesClass](docs/AdditionalPropertiesClass.md) - [WWW::OpenAPIClient::Object::AdditionalPropertiesClass](docs/AdditionalPropertiesClass.md)
- [WWW::OpenAPIClient::Object::AdditionalPropertiesInteger](docs/AdditionalPropertiesInteger.md)
- [WWW::OpenAPIClient::Object::AdditionalPropertiesNumber](docs/AdditionalPropertiesNumber.md)
- [WWW::OpenAPIClient::Object::AdditionalPropertiesObject](docs/AdditionalPropertiesObject.md)
- [WWW::OpenAPIClient::Object::AdditionalPropertiesString](docs/AdditionalPropertiesString.md)
- [WWW::OpenAPIClient::Object::Animal](docs/Animal.md) - [WWW::OpenAPIClient::Object::Animal](docs/Animal.md)
- [WWW::OpenAPIClient::Object::ApiResponse](docs/ApiResponse.md) - [WWW::OpenAPIClient::Object::ApiResponse](docs/ApiResponse.md)
- [WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly](docs/ArrayOfArrayOfNumberOnly.md) - [WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly](docs/ArrayOfArrayOfNumberOnly.md)
@ -421,45 +423,37 @@ Class | Method | HTTP request | Description
- [WWW::OpenAPIClient::Object::ArrayTest](docs/ArrayTest.md) - [WWW::OpenAPIClient::Object::ArrayTest](docs/ArrayTest.md)
- [WWW::OpenAPIClient::Object::Capitalization](docs/Capitalization.md) - [WWW::OpenAPIClient::Object::Capitalization](docs/Capitalization.md)
- [WWW::OpenAPIClient::Object::Cat](docs/Cat.md) - [WWW::OpenAPIClient::Object::Cat](docs/Cat.md)
- [WWW::OpenAPIClient::Object::CatAllOf](docs/CatAllOf.md)
- [WWW::OpenAPIClient::Object::Category](docs/Category.md) - [WWW::OpenAPIClient::Object::Category](docs/Category.md)
- [WWW::OpenAPIClient::Object::ClassModel](docs/ClassModel.md) - [WWW::OpenAPIClient::Object::ClassModel](docs/ClassModel.md)
- [WWW::OpenAPIClient::Object::Client](docs/Client.md) - [WWW::OpenAPIClient::Object::Client](docs/Client.md)
- [WWW::OpenAPIClient::Object::Dog](docs/Dog.md) - [WWW::OpenAPIClient::Object::Dog](docs/Dog.md)
- [WWW::OpenAPIClient::Object::DogAllOf](docs/DogAllOf.md)
- [WWW::OpenAPIClient::Object::EnumArrays](docs/EnumArrays.md) - [WWW::OpenAPIClient::Object::EnumArrays](docs/EnumArrays.md)
- [WWW::OpenAPIClient::Object::EnumClass](docs/EnumClass.md) - [WWW::OpenAPIClient::Object::EnumClass](docs/EnumClass.md)
- [WWW::OpenAPIClient::Object::EnumTest](docs/EnumTest.md) - [WWW::OpenAPIClient::Object::EnumTest](docs/EnumTest.md)
- [WWW::OpenAPIClient::Object::File](docs/File.md) - [WWW::OpenAPIClient::Object::File](docs/File.md)
- [WWW::OpenAPIClient::Object::FileSchemaTestClass](docs/FileSchemaTestClass.md) - [WWW::OpenAPIClient::Object::FileSchemaTestClass](docs/FileSchemaTestClass.md)
- [WWW::OpenAPIClient::Object::Foo](docs/Foo.md)
- [WWW::OpenAPIClient::Object::FormatTest](docs/FormatTest.md) - [WWW::OpenAPIClient::Object::FormatTest](docs/FormatTest.md)
- [WWW::OpenAPIClient::Object::HasOnlyReadOnly](docs/HasOnlyReadOnly.md) - [WWW::OpenAPIClient::Object::HasOnlyReadOnly](docs/HasOnlyReadOnly.md)
- [WWW::OpenAPIClient::Object::HealthCheckResult](docs/HealthCheckResult.md)
- [WWW::OpenAPIClient::Object::InlineObject](docs/InlineObject.md)
- [WWW::OpenAPIClient::Object::InlineObject1](docs/InlineObject1.md)
- [WWW::OpenAPIClient::Object::InlineObject2](docs/InlineObject2.md)
- [WWW::OpenAPIClient::Object::InlineObject3](docs/InlineObject3.md)
- [WWW::OpenAPIClient::Object::InlineObject4](docs/InlineObject4.md)
- [WWW::OpenAPIClient::Object::InlineObject5](docs/InlineObject5.md)
- [WWW::OpenAPIClient::Object::InlineResponseDefault](docs/InlineResponseDefault.md)
- [WWW::OpenAPIClient::Object::List](docs/List.md) - [WWW::OpenAPIClient::Object::List](docs/List.md)
- [WWW::OpenAPIClient::Object::MapTest](docs/MapTest.md) - [WWW::OpenAPIClient::Object::MapTest](docs/MapTest.md)
- [WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass](docs/MixedPropertiesAndAdditionalPropertiesClass.md) - [WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass](docs/MixedPropertiesAndAdditionalPropertiesClass.md)
- [WWW::OpenAPIClient::Object::Model200Response](docs/Model200Response.md) - [WWW::OpenAPIClient::Object::Model200Response](docs/Model200Response.md)
- [WWW::OpenAPIClient::Object::ModelReturn](docs/ModelReturn.md) - [WWW::OpenAPIClient::Object::ModelReturn](docs/ModelReturn.md)
- [WWW::OpenAPIClient::Object::Name](docs/Name.md) - [WWW::OpenAPIClient::Object::Name](docs/Name.md)
- [WWW::OpenAPIClient::Object::NullableClass](docs/NullableClass.md)
- [WWW::OpenAPIClient::Object::NumberOnly](docs/NumberOnly.md) - [WWW::OpenAPIClient::Object::NumberOnly](docs/NumberOnly.md)
- [WWW::OpenAPIClient::Object::Order](docs/Order.md) - [WWW::OpenAPIClient::Object::Order](docs/Order.md)
- [WWW::OpenAPIClient::Object::OuterComposite](docs/OuterComposite.md) - [WWW::OpenAPIClient::Object::OuterComposite](docs/OuterComposite.md)
- [WWW::OpenAPIClient::Object::OuterEnum](docs/OuterEnum.md) - [WWW::OpenAPIClient::Object::OuterEnum](docs/OuterEnum.md)
- [WWW::OpenAPIClient::Object::OuterEnumDefaultValue](docs/OuterEnumDefaultValue.md)
- [WWW::OpenAPIClient::Object::OuterEnumInteger](docs/OuterEnumInteger.md)
- [WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue](docs/OuterEnumIntegerDefaultValue.md)
- [WWW::OpenAPIClient::Object::Pet](docs/Pet.md) - [WWW::OpenAPIClient::Object::Pet](docs/Pet.md)
- [WWW::OpenAPIClient::Object::ReadOnlyFirst](docs/ReadOnlyFirst.md) - [WWW::OpenAPIClient::Object::ReadOnlyFirst](docs/ReadOnlyFirst.md)
- [WWW::OpenAPIClient::Object::SpecialModelName](docs/SpecialModelName.md) - [WWW::OpenAPIClient::Object::SpecialModelName](docs/SpecialModelName.md)
- [WWW::OpenAPIClient::Object::Tag](docs/Tag.md) - [WWW::OpenAPIClient::Object::Tag](docs/Tag.md)
- [WWW::OpenAPIClient::Object::TypeHolderDefault](docs/TypeHolderDefault.md)
- [WWW::OpenAPIClient::Object::TypeHolderExample](docs/TypeHolderExample.md)
- [WWW::OpenAPIClient::Object::User](docs/User.md) - [WWW::OpenAPIClient::Object::User](docs/User.md)
- [WWW::OpenAPIClient::Object::XmlItem](docs/XmlItem.md)
# DOCUMENTATION FOR AUTHORIZATION # DOCUMENTATION FOR AUTHORIZATION
@ -476,10 +470,6 @@ Class | Method | HTTP request | Description
- **API key parameter name**: api_key_query - **API key parameter name**: api_key_query
- **Location**: URL query string - **Location**: URL query string
## bearer_test
- **Type**: HTTP basic authentication
## http_basic_test ## http_basic_test
- **Type**: HTTP basic authentication - **Type**: HTTP basic authentication

13
samples/client/petstore/perl/docs/AdditionalPropertiesClass.md
View File

@ -8,8 +8,17 @@ use WWW::OpenAPIClient::Object::AdditionalPropertiesClass;
## Properties ## Properties
Name | Type | Description | Notes Name | Type | Description | Notes
------------ | ------------- | ------------- | ------------- ------------ | ------------- | ------------- | -------------
**map_property** | **HASH[string,string]** | | [optional] **map_string** | **HASH[string,string]** | | [optional]
**map_of_map_property** | **HASH[string,HASH[string,string]]** | | [optional] **map_number** | **HASH[string,double]** | | [optional]
**map_integer** | **HASH[string,int]** | | [optional]
**map_boolean** | **HASH[string,boolean]** | | [optional]
**map_array_integer** | **HASH[string,ARRAY[int]]** | | [optional]
**map_array_anytype** | **HASH[string,ARRAY[object]]** | | [optional]
**map_map_string** | **HASH[string,HASH[string,string]]** | | [optional]
**map_map_anytype** | **HASH[string,HASH[string,object]]** | | [optional]
**anytype_1** | [**object**](.md) | | [optional]
**anytype_2** | [**object**](.md) | | [optional]
**anytype_3** | [**object**](.md) | | [optional]
[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md) [[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)

60
samples/client/petstore/perl/docs/AnotherFakeApi.md Normal file
View File

@ -0,0 +1,60 @@
# WWW::OpenAPIClient::AnotherFakeApi
## Load the API package
```perl
use WWW::OpenAPIClient::Object::AnotherFakeApi;
```
All URIs are relative to *http://petstore.swagger.io:80/v2*
Method | HTTP request | Description
------------- | ------------- | -------------
[**call_123_test_special_tags**](AnotherFakeApi.md#call_123_test_special_tags) | **PATCH** /another-fake/dummy | To test special tags
# **call_123_test_special_tags**
> Client call_123_test_special_tags(body => $body)
To test special tags
To test special tags and operation ID starting with number
### Example
```perl
use Data::Dumper;
use WWW::OpenAPIClient::AnotherFakeApi;
my $api_instance = WWW::OpenAPIClient::AnotherFakeApi->new(
);
my $body = WWW::OpenAPIClient::Object::Client->new(); # Client | client model
eval {
my $result = $api_instance->call_123_test_special_tags(body => $body);
print Dumper($result);
};
if ($@) {
warn "Exception when calling AnotherFakeApi->call_123_test_special_tags: $@\n";
}
```
### Parameters
Name | Type | Description | Notes
------------- | ------------- | ------------- | -------------
**body** | [**Client**](Client.md)| client model |
### Return type
[**Client**](Client.md)
### Authorization
No authorization required
### HTTP request headers
- **Content-Type**: application/json
- **Accept**: application/json
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)

15
samples/client/petstore/perl/docs/CatAllOf.md Normal file
View File

@ -0,0 +1,15 @@
# WWW::OpenAPIClient::Object::CatAllOf
## Load the model package
```perl
use WWW::OpenAPIClient::Object::CatAllOf;
```
## Properties
Name | Type | Description | Notes
------------ | ------------- | ------------- | -------------
**declawed** | **boolean** | | [optional]
[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)

15
samples/client/petstore/perl/docs/DogAllOf.md Normal file
View File

@ -0,0 +1,15 @@
# WWW::OpenAPIClient::Object::DogAllOf
## Load the model package
```perl
use WWW::OpenAPIClient::Object::DogAllOf;
```
## Properties
Name | Type | Description | Notes
------------ | ------------- | ------------- | -------------
**breed** | **string** | | [optional]
[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)

3
samples/client/petstore/perl/docs/EnumTest.md
View File

@ -13,9 +13,6 @@ Name | Type | Description | Notes
**enum_integer** | **int** | | [optional] **enum_integer** | **int** | | [optional]
**enum_number** | **double** | | [optional] **enum_number** | **double** | | [optional]
**outer_enum** | [**OuterEnum**](OuterEnum.md) | | [optional] **outer_enum** | [**OuterEnum**](OuterEnum.md) | | [optional]
**outer_enum_integer** | [**OuterEnumInteger**](OuterEnumInteger.md) | | [optional]
**outer_enum_default_value** | [**OuterEnumDefaultValue**](OuterEnumDefaultValue.md) | | [optional]
**outer_enum_integer_default_value** | [**OuterEnumIntegerDefaultValue**](OuterEnumIntegerDefaultValue.md) | | [optional]
[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md) [[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)

82
samples/client/petstore/perl/docs/FakeApi.md
View File

@ -9,7 +9,7 @@ All URIs are relative to *http://petstore.swagger.io:80/v2*
Method | HTTP request | Description Method | HTTP request | Description
------------- | ------------- | ------------- ------------- | ------------- | -------------
[**fake_health_get**](FakeApi.md#fake_health_get) | **GET** /fake/health | Health check endpoint [**create_xml_item**](FakeApi.md#create_xml_item) | **POST** /fake/create_xml_item | creates an XmlItem
[**fake_outer_boolean_serialize**](FakeApi.md#fake_outer_boolean_serialize) | **POST** /fake/outer/boolean | [**fake_outer_boolean_serialize**](FakeApi.md#fake_outer_boolean_serialize) | **POST** /fake/outer/boolean |
[**fake_outer_composite_serialize**](FakeApi.md#fake_outer_composite_serialize) | **POST** /fake/outer/composite | [**fake_outer_composite_serialize**](FakeApi.md#fake_outer_composite_serialize) | **POST** /fake/outer/composite |
[**fake_outer_number_serialize**](FakeApi.md#fake_outer_number_serialize) | **POST** /fake/outer/number | [**fake_outer_number_serialize**](FakeApi.md#fake_outer_number_serialize) | **POST** /fake/outer/number |
@ -24,10 +24,12 @@ Method | HTTP request | Description
[**test_json_form_data**](FakeApi.md#test_json_form_data) | **GET** /fake/jsonFormData | test json serialization of form data [**test_json_form_data**](FakeApi.md#test_json_form_data) | **GET** /fake/jsonFormData | test json serialization of form data
# **fake_health_get** # **create_xml_item**
> HealthCheckResult fake_health_get() > create_xml_item(xml_item => $xml_item)
Health check endpoint creates an XmlItem
this route creates an XmlItem
### Example ### Example
```perl ```perl
@ -36,22 +38,25 @@ use WWW::OpenAPIClient::FakeApi;
my $api_instance = WWW::OpenAPIClient::FakeApi->new( my $api_instance = WWW::OpenAPIClient::FakeApi->new(
); );
my $xml_item = WWW::OpenAPIClient::Object::XmlItem->new(); # XmlItem | XmlItem Body
eval { eval {
my $result = $api_instance->fake_health_get(); $api_instance->create_xml_item(xml_item => $xml_item);
print Dumper($result);
}; };
if ($@) { if ($@) {
warn "Exception when calling FakeApi->fake_health_get: $@\n"; warn "Exception when calling FakeApi->create_xml_item: $@\n";
} }
``` ```
### Parameters ### Parameters
This endpoint does not need any parameter.
Name | Type | Description | Notes
------------- | ------------- | ------------- | -------------
**xml_item** | [**XmlItem**](XmlItem.md)| XmlItem Body |
### Return type ### Return type
[**HealthCheckResult**](HealthCheckResult.md) void (empty response body)
### Authorization ### Authorization
@ -59,8 +64,8 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: Not defined - **Content-Type**: application/xml, application/xml; charset=utf-8, application/xml; charset=utf-16, text/xml, text/xml; charset=utf-8, text/xml; charset=utf-16
- **Accept**: application/json - **Accept**: Not defined
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
@ -105,13 +110,13 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: */* - **Accept**: */*
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **fake_outer_composite_serialize** # **fake_outer_composite_serialize**
> OuterComposite fake_outer_composite_serialize(outer_composite => $outer_composite) > OuterComposite fake_outer_composite_serialize(body => $body)
@ -124,10 +129,10 @@ use WWW::OpenAPIClient::FakeApi;
my $api_instance = WWW::OpenAPIClient::FakeApi->new( my $api_instance = WWW::OpenAPIClient::FakeApi->new(
); );
my $outer_composite = WWW::OpenAPIClient::Object::OuterComposite->new(); # OuterComposite | Input composite as post body my $body = WWW::OpenAPIClient::Object::OuterComposite->new(); # OuterComposite | Input composite as post body
eval { eval {
my $result = $api_instance->fake_outer_composite_serialize(outer_composite => $outer_composite); my $result = $api_instance->fake_outer_composite_serialize(body => $body);
print Dumper($result); print Dumper($result);
}; };
if ($@) { if ($@) {
@ -139,7 +144,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**outer_composite** | [**OuterComposite**](OuterComposite.md)| Input composite as post body | [optional] **body** | [**OuterComposite**](OuterComposite.md)| Input composite as post body | [optional]
### Return type ### Return type
@ -151,7 +156,7 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: */* - **Accept**: */*
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
@ -197,7 +202,7 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: */* - **Accept**: */*
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
@ -243,13 +248,13 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: */* - **Accept**: */*
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **test_body_with_file_schema** # **test_body_with_file_schema**
> test_body_with_file_schema(file_schema_test_class => $file_schema_test_class) > test_body_with_file_schema(body => $body)
@ -262,10 +267,10 @@ use WWW::OpenAPIClient::FakeApi;
my $api_instance = WWW::OpenAPIClient::FakeApi->new( my $api_instance = WWW::OpenAPIClient::FakeApi->new(
); );
my $file_schema_test_class = WWW::OpenAPIClient::Object::FileSchemaTestClass->new(); # FileSchemaTestClass | my $body = WWW::OpenAPIClient::Object::FileSchemaTestClass->new(); # FileSchemaTestClass |
eval { eval {
$api_instance->test_body_with_file_schema(file_schema_test_class => $file_schema_test_class); $api_instance->test_body_with_file_schema(body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling FakeApi->test_body_with_file_schema: $@\n"; warn "Exception when calling FakeApi->test_body_with_file_schema: $@\n";
@ -276,7 +281,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**file_schema_test_class** | [**FileSchemaTestClass**](FileSchemaTestClass.md)| | **body** | [**FileSchemaTestClass**](FileSchemaTestClass.md)| |
### Return type ### Return type
@ -294,7 +299,7 @@ No authorization required
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **test_body_with_query_params** # **test_body_with_query_params**
> test_body_with_query_params(query => $query, user => $user) > test_body_with_query_params(query => $query, body => $body)
@ -306,10 +311,10 @@ my $api_instance = WWW::OpenAPIClient::FakeApi->new(
); );
my $query = "query_example"; # string | my $query = "query_example"; # string |
my $user = WWW::OpenAPIClient::Object::User->new(); # User | my $body = WWW::OpenAPIClient::Object::User->new(); # User |
eval { eval {
$api_instance->test_body_with_query_params(query => $query, user => $user); $api_instance->test_body_with_query_params(query => $query, body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling FakeApi->test_body_with_query_params: $@\n"; warn "Exception when calling FakeApi->test_body_with_query_params: $@\n";
@ -321,7 +326,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**query** | **string**| | **query** | **string**| |
**user** | [**User**](User.md)| | **body** | [**User**](User.md)| |
### Return type ### Return type
@ -339,7 +344,7 @@ No authorization required
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **test_client_model** # **test_client_model**
> Client test_client_model(client => $client) > Client test_client_model(body => $body)
To test \"client\" model To test \"client\" model
@ -352,10 +357,10 @@ use WWW::OpenAPIClient::FakeApi;
my $api_instance = WWW::OpenAPIClient::FakeApi->new( my $api_instance = WWW::OpenAPIClient::FakeApi->new(
); );
my $client = WWW::OpenAPIClient::Object::Client->new(); # Client | client model my $body = WWW::OpenAPIClient::Object::Client->new(); # Client | client model
eval { eval {
my $result = $api_instance->test_client_model(client => $client); my $result = $api_instance->test_client_model(body => $body);
print Dumper($result); print Dumper($result);
}; };
if ($@) { if ($@) {
@ -367,7 +372,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**client** | [**Client**](Client.md)| client model | **body** | [**Client**](Client.md)| client model |
### Return type ### Return type
@ -531,11 +536,6 @@ Fake endpoint to test group parameters (optional)
use Data::Dumper; use Data::Dumper;
use WWW::OpenAPIClient::FakeApi; use WWW::OpenAPIClient::FakeApi;
my $api_instance = WWW::OpenAPIClient::FakeApi->new( my $api_instance = WWW::OpenAPIClient::FakeApi->new(
# Configure HTTP basic authorization: bearer_test
# Configure bearer access token for authorization: bearer_test
access_token => 'YOUR_BEARER_TOKEN',
); );
my $required_string_group = 56; # int | Required String in group parameters my $required_string_group = 56; # int | Required String in group parameters
@ -570,7 +570,7 @@ void (empty response body)
### Authorization ### Authorization
[bearer_test](../README.md#bearer_test) No authorization required
### HTTP request headers ### HTTP request headers
@ -580,7 +580,7 @@ void (empty response body)
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **test_inline_additional_properties** # **test_inline_additional_properties**
> test_inline_additional_properties(request_body => $request_body) > test_inline_additional_properties(param => $param)
test inline additionalProperties test inline additionalProperties
@ -591,10 +591,10 @@ use WWW::OpenAPIClient::FakeApi;
my $api_instance = WWW::OpenAPIClient::FakeApi->new( my $api_instance = WWW::OpenAPIClient::FakeApi->new(
); );
my $request_body = WWW::OpenAPIClient::Object::HASH[string,string]->new(); # HASH[string,string] | request body my $param = WWW::OpenAPIClient::Object::HASH[string,string]->new(); # HASH[string,string] | request body
eval { eval {
$api_instance->test_inline_additional_properties(request_body => $request_body); $api_instance->test_inline_additional_properties(param => $param);
}; };
if ($@) { if ($@) {
warn "Exception when calling FakeApi->test_inline_additional_properties: $@\n"; warn "Exception when calling FakeApi->test_inline_additional_properties: $@\n";
@ -605,7 +605,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**request_body** | [**HASH[string,string]**](string.md)| request body | **param** | [**HASH[string,string]**](string.md)| request body |
### Return type ### Return type

8
samples/client/petstore/perl/docs/FakeClassnameTags123Api.md
View File

@ -13,7 +13,7 @@ Method | HTTP request | Description
# **test_classname** # **test_classname**
> Client test_classname(client => $client) > Client test_classname(body => $body)
To test class name in snake case To test class name in snake case
@ -31,10 +31,10 @@ my $api_instance = WWW::OpenAPIClient::FakeClassnameTags123Api->new(
#api_key_prefix => {'api_key_query' => 'Bearer'}, #api_key_prefix => {'api_key_query' => 'Bearer'},
); );
my $client = WWW::OpenAPIClient::Object::Client->new(); # Client | client model my $body = WWW::OpenAPIClient::Object::Client->new(); # Client | client model
eval { eval {
my $result = $api_instance->test_classname(client => $client); my $result = $api_instance->test_classname(body => $body);
print Dumper($result); print Dumper($result);
}; };
if ($@) { if ($@) {
@ -46,7 +46,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**client** | [**Client**](Client.md)| client model | **body** | [**Client**](Client.md)| client model |
### Return type ### Return type

2
samples/client/petstore/perl/docs/FormatTest.md
View File

@ -21,8 +21,6 @@ Name | Type | Description | Notes
**date_time** | **DateTime** | | [optional] **date_time** | **DateTime** | | [optional]
**uuid** | **string** | | [optional] **uuid** | **string** | | [optional]
**password** | **string** | | **password** | **string** | |
**pattern_with_digits** | **string** | A string that is a 10 digit number. Can have leading zeros. | [optional]
**pattern_with_digits_and_delimiter** | **string** | A string starting with 'image_' (case insensitive) and one to three digits following i.e. Image_01. | [optional]
[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md) [[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)

16
samples/client/petstore/perl/docs/PetApi.md
View File

@ -21,7 +21,7 @@ Method | HTTP request | Description
# **add_pet** # **add_pet**
> add_pet(pet => $pet) > add_pet(body => $body)
Add a new pet to the store Add a new pet to the store
@ -35,10 +35,10 @@ my $api_instance = WWW::OpenAPIClient::PetApi->new(
access_token => 'YOUR_ACCESS_TOKEN', access_token => 'YOUR_ACCESS_TOKEN',
); );
my $pet = WWW::OpenAPIClient::Object::Pet->new(); # Pet | Pet object that needs to be added to the store my $body = WWW::OpenAPIClient::Object::Pet->new(); # Pet | Pet object that needs to be added to the store
eval { eval {
$api_instance->add_pet(pet => $pet); $api_instance->add_pet(body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling PetApi->add_pet: $@\n"; warn "Exception when calling PetApi->add_pet: $@\n";
@ -49,7 +49,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**pet** | [**Pet**](Pet.md)| Pet object that needs to be added to the store | **body** | [**Pet**](Pet.md)| Pet object that needs to be added to the store |
### Return type ### Return type
@ -264,7 +264,7 @@ Name | Type | Description | Notes
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **update_pet** # **update_pet**
> update_pet(pet => $pet) > update_pet(body => $body)
Update an existing pet Update an existing pet
@ -278,10 +278,10 @@ my $api_instance = WWW::OpenAPIClient::PetApi->new(
access_token => 'YOUR_ACCESS_TOKEN', access_token => 'YOUR_ACCESS_TOKEN',
); );
my $pet = WWW::OpenAPIClient::Object::Pet->new(); # Pet | Pet object that needs to be added to the store my $body = WWW::OpenAPIClient::Object::Pet->new(); # Pet | Pet object that needs to be added to the store
eval { eval {
$api_instance->update_pet(pet => $pet); $api_instance->update_pet(body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling PetApi->update_pet: $@\n"; warn "Exception when calling PetApi->update_pet: $@\n";
@ -292,7 +292,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**pet** | [**Pet**](Pet.md)| Pet object that needs to be added to the store | **body** | [**Pet**](Pet.md)| Pet object that needs to be added to the store |
### Return type ### Return type

10
samples/client/petstore/perl/docs/StoreApi.md
View File

@ -154,7 +154,7 @@ No authorization required
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **place_order** # **place_order**
> Order place_order(order => $order) > Order place_order(body => $body)
Place an order for a pet Place an order for a pet
@ -165,10 +165,10 @@ use WWW::OpenAPIClient::StoreApi;
my $api_instance = WWW::OpenAPIClient::StoreApi->new( my $api_instance = WWW::OpenAPIClient::StoreApi->new(
); );
my $order = WWW::OpenAPIClient::Object::Order->new(); # Order | order placed for purchasing the pet my $body = WWW::OpenAPIClient::Object::Order->new(); # Order | order placed for purchasing the pet
eval { eval {
my $result = $api_instance->place_order(order => $order); my $result = $api_instance->place_order(body => $body);
print Dumper($result); print Dumper($result);
}; };
if ($@) { if ($@) {
@ -180,7 +180,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**order** | [**Order**](Order.md)| order placed for purchasing the pet | **body** | [**Order**](Order.md)| order placed for purchasing the pet |
### Return type ### Return type
@ -192,7 +192,7 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: application/xml, application/json - **Accept**: application/xml, application/json
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)

40
samples/client/petstore/perl/docs/UserApi.md
View File

@ -20,7 +20,7 @@ Method | HTTP request | Description
# **create_user** # **create_user**
> create_user(user => $user) > create_user(body => $body)
Create user Create user
@ -33,10 +33,10 @@ use WWW::OpenAPIClient::UserApi;
my $api_instance = WWW::OpenAPIClient::UserApi->new( my $api_instance = WWW::OpenAPIClient::UserApi->new(
); );
my $user = WWW::OpenAPIClient::Object::User->new(); # User | Created user object my $body = WWW::OpenAPIClient::Object::User->new(); # User | Created user object
eval { eval {
$api_instance->create_user(user => $user); $api_instance->create_user(body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling UserApi->create_user: $@\n"; warn "Exception when calling UserApi->create_user: $@\n";
@ -47,7 +47,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**user** | [**User**](User.md)| Created user object | **body** | [**User**](User.md)| Created user object |
### Return type ### Return type
@ -59,13 +59,13 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: Not defined - **Accept**: Not defined
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **create_users_with_array_input** # **create_users_with_array_input**
> create_users_with_array_input(user => $user) > create_users_with_array_input(body => $body)
Creates list of users with given input array Creates list of users with given input array
@ -76,10 +76,10 @@ use WWW::OpenAPIClient::UserApi;
my $api_instance = WWW::OpenAPIClient::UserApi->new( my $api_instance = WWW::OpenAPIClient::UserApi->new(
); );
my $user = [WWW::OpenAPIClient::Object::ARRAY[User]->new()]; # ARRAY[User] | List of user object my $body = [WWW::OpenAPIClient::Object::ARRAY[User]->new()]; # ARRAY[User] | List of user object
eval { eval {
$api_instance->create_users_with_array_input(user => $user); $api_instance->create_users_with_array_input(body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling UserApi->create_users_with_array_input: $@\n"; warn "Exception when calling UserApi->create_users_with_array_input: $@\n";
@ -90,7 +90,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**user** | [**ARRAY[User]**](ARRAY.md)| List of user object | **body** | [**ARRAY[User]**](User.md)| List of user object |
### Return type ### Return type
@ -102,13 +102,13 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: Not defined - **Accept**: Not defined
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **create_users_with_list_input** # **create_users_with_list_input**
> create_users_with_list_input(user => $user) > create_users_with_list_input(body => $body)
Creates list of users with given input array Creates list of users with given input array
@ -119,10 +119,10 @@ use WWW::OpenAPIClient::UserApi;
my $api_instance = WWW::OpenAPIClient::UserApi->new( my $api_instance = WWW::OpenAPIClient::UserApi->new(
); );
my $user = [WWW::OpenAPIClient::Object::ARRAY[User]->new()]; # ARRAY[User] | List of user object my $body = [WWW::OpenAPIClient::Object::ARRAY[User]->new()]; # ARRAY[User] | List of user object
eval { eval {
$api_instance->create_users_with_list_input(user => $user); $api_instance->create_users_with_list_input(body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling UserApi->create_users_with_list_input: $@\n"; warn "Exception when calling UserApi->create_users_with_list_input: $@\n";
@ -133,7 +133,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**user** | [**ARRAY[User]**](ARRAY.md)| List of user object | **body** | [**ARRAY[User]**](User.md)| List of user object |
### Return type ### Return type
@ -145,7 +145,7 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: Not defined - **Accept**: Not defined
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
@ -325,7 +325,7 @@ No authorization required
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)
# **update_user** # **update_user**
> update_user(username => $username, user => $user) > update_user(username => $username, body => $body)
Updated user Updated user
@ -339,10 +339,10 @@ my $api_instance = WWW::OpenAPIClient::UserApi->new(
); );
my $username = "username_example"; # string | name that need to be deleted my $username = "username_example"; # string | name that need to be deleted
my $user = WWW::OpenAPIClient::Object::User->new(); # User | Updated user object my $body = WWW::OpenAPIClient::Object::User->new(); # User | Updated user object
eval { eval {
$api_instance->update_user(username => $username, user => $user); $api_instance->update_user(username => $username, body => $body);
}; };
if ($@) { if ($@) {
warn "Exception when calling UserApi->update_user: $@\n"; warn "Exception when calling UserApi->update_user: $@\n";
@ -354,7 +354,7 @@ if ($@) {
Name | Type | Description | Notes Name | Type | Description | Notes
------------- | ------------- | ------------- | ------------- ------------- | ------------- | ------------- | -------------
**username** | **string**| name that need to be deleted | **username** | **string**| name that need to be deleted |
**user** | [**User**](User.md)| Updated user object | **body** | [**User**](User.md)| Updated user object |
### Return type ### Return type
@ -366,7 +366,7 @@ No authorization required
### HTTP request headers ### HTTP request headers
- **Content-Type**: application/json - **Content-Type**: Not defined
- **Accept**: Not defined - **Accept**: Not defined
[[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md) [[Back to top]](#) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to Model list]](../README.md#documentation-for-models) [[Back to README]](../README.md)

14
samples/client/petstore/perl/lib/WWW/OpenAPIClient/AnotherFakeApi.pm
View File

@ -53,10 +53,10 @@ sub new {
# #
# To test special tags # To test special tags
# #
# @param Client $client client model (required) # @param Client $body client model (required)
{ {
my $params = { my $params = {
'client' => { 'body' => {
data_type => 'Client', data_type => 'Client',
description => 'client model', description => 'client model',
required => '1', required => '1',
@ -73,9 +73,9 @@ sub new {
sub call_123_test_special_tags { sub call_123_test_special_tags {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'client' is set # verify the required parameter 'body' is set
unless (exists $args{'client'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'client' when calling call_123_test_special_tags"); croak("Missing the required parameter 'body' when calling call_123_test_special_tags");
} }
# parse inputs # parse inputs
@ -95,8 +95,8 @@ sub call_123_test_special_tags {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'client'}) { if ( exists $args{'body'}) {
$_body_data = $args{'client'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any

6
samples/client/petstore/perl/lib/WWW/OpenAPIClient/ApiClient.pm
View File

@ -348,12 +348,6 @@ sub update_params_for_auth {
$query_params->{'api_key_query'} = $api_key; $query_params->{'api_key_query'} = $api_key;
} }
} }
elsif ($auth eq 'bearer_test') {
// this endpoint requires Bearer (JWT) authentication (access token)
if ($self->{config}{access_token}) {
$headers['Authorization'] = 'Bearer ' . $self->{config}{access_token};
}
}
elsif ($auth eq 'http_basic_test') { elsif ($auth eq 'http_basic_test') {
if ($self->{config}{username} || $self->{config}{password}) { if ($self->{config}{username} || $self->{config}{password}) {
$header_params->{'Authorization'} = 'Basic ' . encode_base64($self->{config}{username} . ":" . $self->{config}{password}); $header_params->{'Authorization'} = 'Basic ' . encode_base64($self->{config}{username} . ":" . $self->{config}{password});

122
samples/client/petstore/perl/lib/WWW/OpenAPIClient/FakeApi.pm
View File

@ -49,52 +49,64 @@ sub new {
# #
# fake_health_get # create_xml_item
# #
# Health check endpoint # creates an XmlItem
# #
# @param XmlItem $xml_item XmlItem Body (required)
{ {
my $params = { my $params = {
'xml_item' => {
data_type => 'XmlItem',
description => 'XmlItem Body',
required => '1',
},
}; };
__PACKAGE__->method_documentation->{ 'fake_health_get' } = { __PACKAGE__->method_documentation->{ 'create_xml_item' } = {
summary => 'Health check endpoint', summary => 'creates an XmlItem',
params => $params, params => $params,
returns => 'HealthCheckResult', returns => undef,
}; };
} }
# @return HealthCheckResult # @return void
# #
sub fake_health_get { sub create_xml_item {
my ($self, %args) = @_; my ($self, %args) = @_;
# parse inputs # verify the required parameter 'xml_item' is set
my $_resource_path = '/fake/health'; unless (exists $args{'xml_item'}) {
croak("Missing the required parameter 'xml_item' when calling create_xml_item");
}
my $_method = 'GET'; # parse inputs
my $_resource_path = '/fake/create_xml_item';
my $_method = 'POST';
my $query_params = {}; my $query_params = {};
my $header_params = {}; my $header_params = {};
my $form_params = {}; my $form_params = {};
# 'Accept' and 'Content-Type' header # 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/json'); my $_header_accept = $self->{api_client}->select_header_accept();
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type(); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/xml', 'application/xml; charset=utf-8', 'application/xml; charset=utf-16', 'text/xml', 'text/xml; charset=utf-8', 'text/xml; charset=utf-16');
my $_body_data; my $_body_data;
# body params
if ( exists $args{'xml_item'}) {
$_body_data = $args{'xml_item'};
}
# authentication setting, if any # authentication setting, if any
my $auth_settings = [qw()]; my $auth_settings = [qw()];
# make the API Call # make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method, $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params, $query_params, $form_params,
$header_params, $_body_data, $auth_settings); $header_params, $_body_data, $auth_settings);
if (!$response) { return;
return;
}
my $_response_object = $self->{api_client}->deserialize('HealthCheckResult', $response);
return $_response_object;
} }
# #
@ -135,7 +147,7 @@ sub fake_outer_boolean_serialize {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
@ -162,10 +174,10 @@ sub fake_outer_boolean_serialize {
# #
# #
# #
# @param OuterComposite $outer_composite Input composite as post body (optional) # @param OuterComposite $body Input composite as post body (optional)
{ {
my $params = { my $params = {
'outer_composite' => { 'body' => {
data_type => 'OuterComposite', data_type => 'OuterComposite',
description => 'Input composite as post body', description => 'Input composite as post body',
required => '0', required => '0',
@ -195,12 +207,12 @@ sub fake_outer_composite_serialize {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'outer_composite'}) { if ( exists $args{'body'}) {
$_body_data = $args{'outer_composite'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -255,7 +267,7 @@ sub fake_outer_number_serialize {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
@ -315,7 +327,7 @@ sub fake_outer_string_serialize {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
@ -342,10 +354,10 @@ sub fake_outer_string_serialize {
# #
# #
# #
# @param FileSchemaTestClass $file_schema_test_class (required) # @param FileSchemaTestClass $body (required)
{ {
my $params = { my $params = {
'file_schema_test_class' => { 'body' => {
data_type => 'FileSchemaTestClass', data_type => 'FileSchemaTestClass',
description => '', description => '',
required => '1', required => '1',
@ -362,9 +374,9 @@ sub fake_outer_string_serialize {
sub test_body_with_file_schema { sub test_body_with_file_schema {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'file_schema_test_class' is set # verify the required parameter 'body' is set
unless (exists $args{'file_schema_test_class'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'file_schema_test_class' when calling test_body_with_file_schema"); croak("Missing the required parameter 'body' when calling test_body_with_file_schema");
} }
# parse inputs # parse inputs
@ -384,8 +396,8 @@ sub test_body_with_file_schema {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'file_schema_test_class'}) { if ( exists $args{'body'}) {
$_body_data = $args{'file_schema_test_class'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -404,7 +416,7 @@ sub test_body_with_file_schema {
# #
# #
# @param string $query (required) # @param string $query (required)
# @param User $user (required) # @param User $body (required)
{ {
my $params = { my $params = {
'query' => { 'query' => {
@ -412,7 +424,7 @@ sub test_body_with_file_schema {
description => '', description => '',
required => '1', required => '1',
}, },
'user' => { 'body' => {
data_type => 'User', data_type => 'User',
description => '', description => '',
required => '1', required => '1',
@ -434,9 +446,9 @@ sub test_body_with_query_params {
croak("Missing the required parameter 'query' when calling test_body_with_query_params"); croak("Missing the required parameter 'query' when calling test_body_with_query_params");
} }
# verify the required parameter 'user' is set # verify the required parameter 'body' is set
unless (exists $args{'user'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'user' when calling test_body_with_query_params"); croak("Missing the required parameter 'body' when calling test_body_with_query_params");
} }
# parse inputs # parse inputs
@ -461,8 +473,8 @@ sub test_body_with_query_params {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'user'}) { if ( exists $args{'body'}) {
$_body_data = $args{'user'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -480,10 +492,10 @@ sub test_body_with_query_params {
# #
# To test \"client\" model # To test \"client\" model
# #
# @param Client $client client model (required) # @param Client $body client model (required)
{ {
my $params = { my $params = {
'client' => { 'body' => {
data_type => 'Client', data_type => 'Client',
description => 'client model', description => 'client model',
required => '1', required => '1',
@ -500,9 +512,9 @@ sub test_body_with_query_params {
sub test_client_model { sub test_client_model {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'client' is set # verify the required parameter 'body' is set
unless (exists $args{'client'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'client' when calling test_client_model"); croak("Missing the required parameter 'body' when calling test_client_model");
} }
# parse inputs # parse inputs
@ -522,8 +534,8 @@ sub test_client_model {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'client'}) { if ( exists $args{'body'}) {
$_body_data = $args{'client'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -1010,7 +1022,7 @@ sub test_group_parameters {
my $_body_data; my $_body_data;
# authentication setting, if any # authentication setting, if any
my $auth_settings = [qw(bearer_test )]; my $auth_settings = [qw()];
# make the API Call # make the API Call
$self->{api_client}->call_api($_resource_path, $_method, $self->{api_client}->call_api($_resource_path, $_method,
@ -1024,10 +1036,10 @@ sub test_group_parameters {
# #
# test inline additionalProperties # test inline additionalProperties
# #
# @param HASH[string,string] $request_body request body (required) # @param HASH[string,string] $param request body (required)
{ {
my $params = { my $params = {
'request_body' => { 'param' => {
data_type => 'HASH[string,string]', data_type => 'HASH[string,string]',
description => 'request body', description => 'request body',
required => '1', required => '1',
@ -1044,9 +1056,9 @@ sub test_group_parameters {
sub test_inline_additional_properties { sub test_inline_additional_properties {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'request_body' is set # verify the required parameter 'param' is set
unless (exists $args{'request_body'}) { unless (exists $args{'param'}) {
croak("Missing the required parameter 'request_body' when calling test_inline_additional_properties"); croak("Missing the required parameter 'param' when calling test_inline_additional_properties");
} }
# parse inputs # parse inputs
@ -1066,8 +1078,8 @@ sub test_inline_additional_properties {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'request_body'}) { if ( exists $args{'param'}) {
$_body_data = $args{'request_body'}; $_body_data = $args{'param'};
} }
# authentication setting, if any # authentication setting, if any

14
samples/client/petstore/perl/lib/WWW/OpenAPIClient/FakeClassnameTags123Api.pm
View File

@ -53,10 +53,10 @@ sub new {
# #
# To test class name in snake case # To test class name in snake case
# #
# @param Client $client client model (required) # @param Client $body client model (required)
{ {
my $params = { my $params = {
'client' => { 'body' => {
data_type => 'Client', data_type => 'Client',
description => 'client model', description => 'client model',
required => '1', required => '1',
@ -73,9 +73,9 @@ sub new {
sub test_classname { sub test_classname {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'client' is set # verify the required parameter 'body' is set
unless (exists $args{'client'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'client' when calling test_classname"); croak("Missing the required parameter 'body' when calling test_classname");
} }
# parse inputs # parse inputs
@ -95,8 +95,8 @@ sub test_classname {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'client'}) { if ( exists $args{'body'}) {
$_body_data = $args{'client'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesAnyType.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesArray.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesBoolean.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

97
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesClass.pm
View File

@ -161,16 +161,79 @@ __PACKAGE__->class_documentation({description => '',
} ); } );
__PACKAGE__->method_documentation({ __PACKAGE__->method_documentation({
'map_property' => { 'map_string' => {
datatype => 'HASH[string,string]', datatype => 'HASH[string,string]',
base_name => 'map_property', base_name => 'map_string',
description => '', description => '',
format => '', format => '',
read_only => '', read_only => '',
}, },
'map_of_map_property' => { 'map_number' => {
datatype => 'HASH[string,double]',
base_name => 'map_number',
description => '',
format => '',
read_only => '',
},
'map_integer' => {
datatype => 'HASH[string,int]',
base_name => 'map_integer',
description => '',
format => '',
read_only => '',
},
'map_boolean' => {
datatype => 'HASH[string,boolean]',
base_name => 'map_boolean',
description => '',
format => '',
read_only => '',
},
'map_array_integer' => {
datatype => 'HASH[string,ARRAY[int]]',
base_name => 'map_array_integer',
description => '',
format => '',
read_only => '',
},
'map_array_anytype' => {
datatype => 'HASH[string,ARRAY[object]]',
base_name => 'map_array_anytype',
description => '',
format => '',
read_only => '',
},
'map_map_string' => {
datatype => 'HASH[string,HASH[string,string]]', datatype => 'HASH[string,HASH[string,string]]',
base_name => 'map_of_map_property', base_name => 'map_map_string',
description => '',
format => '',
read_only => '',
},
'map_map_anytype' => {
datatype => 'HASH[string,HASH[string,object]]',
base_name => 'map_map_anytype',
description => '',
format => '',
read_only => '',
},
'anytype_1' => {
datatype => 'object',
base_name => 'anytype_1',
description => '',
format => '',
read_only => '',
},
'anytype_2' => {
datatype => 'object',
base_name => 'anytype_2',
description => '',
format => '',
read_only => '',
},
'anytype_3' => {
datatype => 'object',
base_name => 'anytype_3',
description => '', description => '',
format => '', format => '',
read_only => '', read_only => '',
@ -178,13 +241,31 @@ __PACKAGE__->method_documentation({
}); });
__PACKAGE__->openapi_types( { __PACKAGE__->openapi_types( {
'map_property' => 'HASH[string,string]', 'map_string' => 'HASH[string,string]',
'map_of_map_property' => 'HASH[string,HASH[string,string]]' 'map_number' => 'HASH[string,double]',
'map_integer' => 'HASH[string,int]',
'map_boolean' => 'HASH[string,boolean]',
'map_array_integer' => 'HASH[string,ARRAY[int]]',
'map_array_anytype' => 'HASH[string,ARRAY[object]]',
'map_map_string' => 'HASH[string,HASH[string,string]]',
'map_map_anytype' => 'HASH[string,HASH[string,object]]',
'anytype_1' => 'object',
'anytype_2' => 'object',
'anytype_3' => 'object'
} ); } );
__PACKAGE__->attribute_map( { __PACKAGE__->attribute_map( {
'map_property' => 'map_property', 'map_string' => 'map_string',
'map_of_map_property' => 'map_of_map_property' 'map_number' => 'map_number',
'map_integer' => 'map_integer',
'map_boolean' => 'map_boolean',
'map_array_integer' => 'map_array_integer',
'map_array_anytype' => 'map_array_anytype',
'map_map_string' => 'map_map_string',
'map_map_anytype' => 'map_map_anytype',
'anytype_1' => 'anytype_1',
'anytype_2' => 'anytype_2',
'anytype_3' => 'anytype_3'
} ); } );
__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map}); __PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesInteger.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesNumber.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesObject.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/AdditionalPropertiesString.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

1
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Cat.pm
View File

@ -31,6 +31,7 @@ use Date::Parse;
use DateTime; use DateTime;
use WWW::OpenAPIClient::Object::Animal; use WWW::OpenAPIClient::Object::Animal;
use WWW::OpenAPIClient::Object::CatAllOf;
use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Animal"); use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Animal");

184
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/CatAllOf.pm Normal file
View File

@ -0,0 +1,184 @@
=begin comment
OpenAPI 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: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by OpenAPI Generator (https://openapi-generator.tech).
# Do not edit the class manually.
# Ref: https://openapi-generator.tech
#
package WWW::OpenAPIClient::Object::CatAllOf;
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");
#
#
#
# NOTE: This class is auto generated by OpenAPI Generator (https://openapi-generator.tech). Do not edit the class manually.
# REF: https://openapi-generator.tech
#
=begin comment
OpenAPI 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: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by OpenAPI Generator (https://openapi-generator.tech).
# Do not edit the class manually.
# Ref: https://openapi-generator.tech
#
__PACKAGE__->mk_classdata('attribute_map' => {});
__PACKAGE__->mk_classdata('openapi_types' => {});
__PACKAGE__->mk_classdata('method_documentation' => {});
__PACKAGE__->mk_classdata('class_documentation' => {});
# new plain object
sub new {
my ($class, %args) = @_;
my $self = bless {}, $class;
$self->init(%args);
return $self;
}
# initialize the object
sub init
{
my ($self, %args) = @_;
foreach my $attribute (keys %{$self->attribute_map}) {
my $args_key = $self->attribute_map->{$attribute};
$self->$attribute( $args{ $args_key } );
}
}
# return perl hash
sub to_hash {
my $self = shift;
my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
return $_hash;
}
# used by JSON for serialization
sub TO_JSON {
my $self = shift;
my $_data = {};
foreach my $_key (keys %{$self->attribute_map}) {
if (defined $self->{$_key}) {
$_data->{$self->attribute_map->{$_key}} = $self->{$_key};
}
}
return $_data;
}
# from Perl hashref
sub from_hash {
my ($self, $hash) = @_;
# loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = $1;
my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else {
$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
}
}
return $self;
}
# deserialize non-array data
sub _deserialize {
my ($self, $type, $data) = @_;
$log->debugf("deserializing %s with %s",Dumper($data), $type);
if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data;
} else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
return $_instance->from_hash($data);
}
}
__PACKAGE__->class_documentation({description => '',
class => 'CatAllOf',
required => [], # TODO
} );
__PACKAGE__->method_documentation({
'declawed' => {
datatype => 'boolean',
base_name => 'declawed',
description => '',
format => '',
read_only => '',
},
});
__PACKAGE__->openapi_types( {
'declawed' => 'boolean'
} );
__PACKAGE__->attribute_map( {
'declawed' => 'declawed'
} );
__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
1;

1
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Dog.pm
View File

@ -31,6 +31,7 @@ use Date::Parse;
use DateTime; use DateTime;
use WWW::OpenAPIClient::Object::Animal; use WWW::OpenAPIClient::Object::Animal;
use WWW::OpenAPIClient::Object::DogAllOf;
use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Animal"); use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Animal");

184
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/DogAllOf.pm Normal file
View File

@ -0,0 +1,184 @@
=begin comment
OpenAPI 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: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by OpenAPI Generator (https://openapi-generator.tech).
# Do not edit the class manually.
# Ref: https://openapi-generator.tech
#
package WWW::OpenAPIClient::Object::DogAllOf;
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::Parse;
use DateTime;
use base ("Class::Accessor", "Class::Data::Inheritable");
#
#
#
# NOTE: This class is auto generated by OpenAPI Generator (https://openapi-generator.tech). Do not edit the class manually.
# REF: https://openapi-generator.tech
#
=begin comment
OpenAPI 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: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by OpenAPI Generator (https://openapi-generator.tech).
# Do not edit the class manually.
# Ref: https://openapi-generator.tech
#
__PACKAGE__->mk_classdata('attribute_map' => {});
__PACKAGE__->mk_classdata('openapi_types' => {});
__PACKAGE__->mk_classdata('method_documentation' => {});
__PACKAGE__->mk_classdata('class_documentation' => {});
# new plain object
sub new {
my ($class, %args) = @_;
my $self = bless {}, $class;
$self->init(%args);
return $self;
}
# initialize the object
sub init
{
my ($self, %args) = @_;
foreach my $attribute (keys %{$self->attribute_map}) {
my $args_key = $self->attribute_map->{$attribute};
$self->$attribute( $args{ $args_key } );
}
}
# return perl hash
sub to_hash {
my $self = shift;
my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
return $_hash;
}
# used by JSON for serialization
sub TO_JSON {
my $self = shift;
my $_data = {};
foreach my $_key (keys %{$self->attribute_map}) {
if (defined $self->{$_key}) {
$_data->{$self->attribute_map->{$_key}} = $self->{$_key};
}
}
return $_data;
}
# from Perl hashref
sub from_hash {
my ($self, $hash) = @_;
# loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = $1;
my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else {
$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
}
}
return $self;
}
# deserialize non-array data
sub _deserialize {
my ($self, $type, $data) = @_;
$log->debugf("deserializing %s with %s",Dumper($data), $type);
if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data;
} else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
return $_instance->from_hash($data);
}
}
__PACKAGE__->class_documentation({description => '',
class => 'DogAllOf',
required => [], # TODO
} );
__PACKAGE__->method_documentation({
'breed' => {
datatype => 'string',
base_name => 'breed',
description => '',
format => '',
read_only => '',
},
});
__PACKAGE__->openapi_types( {
'breed' => 'string'
} );
__PACKAGE__->attribute_map( {
'breed' => 'breed'
} );
__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
1;

34
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/EnumTest.pm
View File

@ -31,9 +31,6 @@ use Date::Parse;
use DateTime; use DateTime;
use WWW::OpenAPIClient::Object::OuterEnum; use WWW::OpenAPIClient::Object::OuterEnum;
use WWW::OpenAPIClient::Object::OuterEnumDefaultValue;
use WWW::OpenAPIClient::Object::OuterEnumInteger;
use WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue;
use base ("Class::Accessor", "Class::Data::Inheritable"); use base ("Class::Accessor", "Class::Data::Inheritable");
@ -200,27 +197,6 @@ __PACKAGE__->method_documentation({
format => '', format => '',
read_only => '', read_only => '',
}, },
'outer_enum_integer' => {
datatype => 'OuterEnumInteger',
base_name => 'outerEnumInteger',
description => '',
format => '',
read_only => '',
},
'outer_enum_default_value' => {
datatype => 'OuterEnumDefaultValue',
base_name => 'outerEnumDefaultValue',
description => '',
format => '',
read_only => '',
},
'outer_enum_integer_default_value' => {
datatype => 'OuterEnumIntegerDefaultValue',
base_name => 'outerEnumIntegerDefaultValue',
description => '',
format => '',
read_only => '',
},
}); });
__PACKAGE__->openapi_types( { __PACKAGE__->openapi_types( {
@ -228,10 +204,7 @@ __PACKAGE__->openapi_types( {
'enum_string_required' => 'string', 'enum_string_required' => 'string',
'enum_integer' => 'int', 'enum_integer' => 'int',
'enum_number' => 'double', 'enum_number' => 'double',
'outer_enum' => 'OuterEnum', 'outer_enum' => 'OuterEnum'
'outer_enum_integer' => 'OuterEnumInteger',
'outer_enum_default_value' => 'OuterEnumDefaultValue',
'outer_enum_integer_default_value' => 'OuterEnumIntegerDefaultValue'
} ); } );
__PACKAGE__->attribute_map( { __PACKAGE__->attribute_map( {
@ -239,10 +212,7 @@ __PACKAGE__->attribute_map( {
'enum_string_required' => 'enum_string_required', 'enum_string_required' => 'enum_string_required',
'enum_integer' => 'enum_integer', 'enum_integer' => 'enum_integer',
'enum_number' => 'enum_number', 'enum_number' => 'enum_number',
'outer_enum' => 'outerEnum', 'outer_enum' => 'outerEnum'
'outer_enum_integer' => 'outerEnumInteger',
'outer_enum_default_value' => 'outerEnumDefaultValue',
'outer_enum_integer_default_value' => 'outerEnumIntegerDefaultValue'
} ); } );
__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map}); __PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});

22
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/FormatTest.pm
View File

@ -252,20 +252,6 @@ __PACKAGE__->method_documentation({
format => '', format => '',
read_only => '', read_only => '',
}, },
'pattern_with_digits' => {
datatype => 'string',
base_name => 'pattern_with_digits',
description => 'A string that is a 10 digit number. Can have leading zeros.',
format => '',
read_only => '',
},
'pattern_with_digits_and_delimiter' => {
datatype => 'string',
base_name => 'pattern_with_digits_and_delimiter',
description => 'A string starting with 'image_' (case insensitive) and one to three digits following i.e. Image_01.',
format => '',
read_only => '',
},
}); });
__PACKAGE__->openapi_types( { __PACKAGE__->openapi_types( {
@ -281,9 +267,7 @@ __PACKAGE__->openapi_types( {
'date' => 'DateTime', 'date' => 'DateTime',
'date_time' => 'DateTime', 'date_time' => 'DateTime',
'uuid' => 'string', 'uuid' => 'string',
'password' => 'string', 'password' => 'string'
'pattern_with_digits' => 'string',
'pattern_with_digits_and_delimiter' => 'string'
} ); } );
__PACKAGE__->attribute_map( { __PACKAGE__->attribute_map( {
@ -299,9 +283,7 @@ __PACKAGE__->attribute_map( {
'date' => 'date', 'date' => 'date',
'date_time' => 'dateTime', 'date_time' => 'dateTime',
'uuid' => 'uuid', 'uuid' => 'uuid',
'password' => 'password', 'password' => 'password'
'pattern_with_digits' => 'pattern_with_digits',
'pattern_with_digits_and_delimiter' => 'pattern_with_digits_and_delimiter'
} ); } );
__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map}); __PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/TypeHolderDefault.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/TypeHolderExample.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

17
samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/XmlItem.pm
View File

@ -4,7 +4,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -46,7 +46,7 @@ OpenAPI 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: \" \\ 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 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -114,13 +114,20 @@ sub from_hash {
# loop through attributes and use openapi_types to deserialize the data # loop through attributes and use openapi_types to deserialize the data
while ( my ($_key, $_type) = each %{$self->openapi_types} ) { while ( my ($_key, $_type) = each %{$self->openapi_types} ) {
my $_json_attribute = $self->attribute_map->{$_key}; my $_json_attribute = $self->attribute_map->{$_key};
if ($_type =~ /^array\[/i) { # array if ($_type =~ /^array\[(.+)\]$/i) { # array
my $_subclass = substr($_type, 6, -1); my $_subclass = $1;
my @_array = (); my @_array = ();
foreach my $_element (@{$hash->{$_json_attribute}}) { foreach my $_element (@{$hash->{$_json_attribute}}) {
push @_array, $self->_deserialize($_subclass, $_element); push @_array, $self->_deserialize($_subclass, $_element);
} }
$self->{$_key} = \@_array; $self->{$_key} = \@_array;
} elsif ($_type =~ /^hash\[string,(.+)\]$/i) { # hash
my $_subclass = $1;
my %_hash = ();
while (my($_key, $_element) = each %{$hash->{$_json_attribute}}) {
$_hash{$_key} = $self->_deserialize($_subclass, $_element);
}
$self->{$_key} = \%_hash;
} elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
$self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute}); $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
} else { } else {
@ -138,7 +145,7 @@ sub _deserialize {
if ($type eq 'DateTime') { if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data)); return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep {$type=~/^(ARRAY\[|HASH\[string,)?$_(\])?$/} ('int', 'double', 'string', 'boolean') ) { } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data; return $data;
} else { # hash(model) } else { # hash(model)
my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()"; my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";

28
samples/client/petstore/perl/lib/WWW/OpenAPIClient/PetApi.pm
View File

@ -53,10 +53,10 @@ sub new {
# #
# Add a new pet to the store # Add a new pet to the store
# #
# @param Pet $pet Pet object that needs to be added to the store (required) # @param Pet $body Pet object that needs to be added to the store (required)
{ {
my $params = { my $params = {
'pet' => { 'body' => {
data_type => 'Pet', data_type => 'Pet',
description => 'Pet object that needs to be added to the store', description => 'Pet object that needs to be added to the store',
required => '1', required => '1',
@ -73,9 +73,9 @@ sub new {
sub add_pet { sub add_pet {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'pet' is set # verify the required parameter 'body' is set
unless (exists $args{'pet'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'pet' when calling add_pet"); croak("Missing the required parameter 'body' when calling add_pet");
} }
# parse inputs # parse inputs
@ -95,8 +95,8 @@ sub add_pet {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'pet'}) { if ( exists $args{'body'}) {
$_body_data = $args{'pet'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -385,10 +385,10 @@ sub get_pet_by_id {
# #
# Update an existing pet # Update an existing pet
# #
# @param Pet $pet Pet object that needs to be added to the store (required) # @param Pet $body Pet object that needs to be added to the store (required)
{ {
my $params = { my $params = {
'pet' => { 'body' => {
data_type => 'Pet', data_type => 'Pet',
description => 'Pet object that needs to be added to the store', description => 'Pet object that needs to be added to the store',
required => '1', required => '1',
@ -405,9 +405,9 @@ sub get_pet_by_id {
sub update_pet { sub update_pet {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'pet' is set # verify the required parameter 'body' is set
unless (exists $args{'pet'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'pet' when calling update_pet"); croak("Missing the required parameter 'body' when calling update_pet");
} }
# parse inputs # parse inputs
@ -427,8 +427,8 @@ sub update_pet {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'pet'}) { if ( exists $args{'body'}) {
$_body_data = $args{'pet'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any

16
samples/client/petstore/perl/lib/WWW/OpenAPIClient/StoreApi.pm
View File

@ -232,10 +232,10 @@ sub get_order_by_id {
# #
# Place an order for a pet # Place an order for a pet
# #
# @param Order $order order placed for purchasing the pet (required) # @param Order $body order placed for purchasing the pet (required)
{ {
my $params = { my $params = {
'order' => { 'body' => {
data_type => 'Order', data_type => 'Order',
description => 'order placed for purchasing the pet', description => 'order placed for purchasing the pet',
required => '1', required => '1',
@ -252,9 +252,9 @@ sub get_order_by_id {
sub place_order { sub place_order {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'order' is set # verify the required parameter 'body' is set
unless (exists $args{'order'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'order' when calling place_order"); croak("Missing the required parameter 'body' when calling place_order");
} }
# parse inputs # parse inputs
@ -270,12 +270,12 @@ sub place_order {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'order'}) { if ( exists $args{'body'}) {
$_body_data = $args{'order'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any

64
samples/client/petstore/perl/lib/WWW/OpenAPIClient/UserApi.pm
View File

@ -53,10 +53,10 @@ sub new {
# #
# Create user # Create user
# #
# @param User $user Created user object (required) # @param User $body Created user object (required)
{ {
my $params = { my $params = {
'user' => { 'body' => {
data_type => 'User', data_type => 'User',
description => 'Created user object', description => 'Created user object',
required => '1', required => '1',
@ -73,9 +73,9 @@ sub new {
sub create_user { sub create_user {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'user' is set # verify the required parameter 'body' is set
unless (exists $args{'user'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'user' when calling create_user"); croak("Missing the required parameter 'body' when calling create_user");
} }
# parse inputs # parse inputs
@ -91,12 +91,12 @@ sub create_user {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'user'}) { if ( exists $args{'body'}) {
$_body_data = $args{'user'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -114,10 +114,10 @@ sub create_user {
# #
# Creates list of users with given input array # Creates list of users with given input array
# #
# @param ARRAY[User] $user List of user object (required) # @param ARRAY[User] $body List of user object (required)
{ {
my $params = { my $params = {
'user' => { 'body' => {
data_type => 'ARRAY[User]', data_type => 'ARRAY[User]',
description => 'List of user object', description => 'List of user object',
required => '1', required => '1',
@ -134,9 +134,9 @@ sub create_user {
sub create_users_with_array_input { sub create_users_with_array_input {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'user' is set # verify the required parameter 'body' is set
unless (exists $args{'user'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'user' when calling create_users_with_array_input"); croak("Missing the required parameter 'body' when calling create_users_with_array_input");
} }
# parse inputs # parse inputs
@ -152,12 +152,12 @@ sub create_users_with_array_input {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'user'}) { if ( exists $args{'body'}) {
$_body_data = $args{'user'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -175,10 +175,10 @@ sub create_users_with_array_input {
# #
# Creates list of users with given input array # Creates list of users with given input array
# #
# @param ARRAY[User] $user List of user object (required) # @param ARRAY[User] $body List of user object (required)
{ {
my $params = { my $params = {
'user' => { 'body' => {
data_type => 'ARRAY[User]', data_type => 'ARRAY[User]',
description => 'List of user object', description => 'List of user object',
required => '1', required => '1',
@ -195,9 +195,9 @@ sub create_users_with_array_input {
sub create_users_with_list_input { sub create_users_with_list_input {
my ($self, %args) = @_; my ($self, %args) = @_;
# verify the required parameter 'user' is set # verify the required parameter 'body' is set
unless (exists $args{'user'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'user' when calling create_users_with_list_input"); croak("Missing the required parameter 'body' when calling create_users_with_list_input");
} }
# parse inputs # parse inputs
@ -213,12 +213,12 @@ sub create_users_with_list_input {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'user'}) { if ( exists $args{'body'}) {
$_body_data = $args{'user'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any
@ -493,7 +493,7 @@ sub logout_user {
# Updated user # Updated user
# #
# @param string $username name that need to be deleted (required) # @param string $username name that need to be deleted (required)
# @param User $user Updated user object (required) # @param User $body Updated user object (required)
{ {
my $params = { my $params = {
'username' => { 'username' => {
@ -501,7 +501,7 @@ sub logout_user {
description => 'name that need to be deleted', description => 'name that need to be deleted',
required => '1', required => '1',
}, },
'user' => { 'body' => {
data_type => 'User', data_type => 'User',
description => 'Updated user object', description => 'Updated user object',
required => '1', required => '1',
@ -523,9 +523,9 @@ sub update_user {
croak("Missing the required parameter 'username' when calling update_user"); croak("Missing the required parameter 'username' when calling update_user");
} }
# verify the required parameter 'user' is set # verify the required parameter 'body' is set
unless (exists $args{'user'}) { unless (exists $args{'body'}) {
croak("Missing the required parameter 'user' when calling update_user"); croak("Missing the required parameter 'body' when calling update_user");
} }
# parse inputs # parse inputs
@ -541,7 +541,7 @@ sub update_user {
if ($_header_accept) { if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept; $header_params->{'Accept'} = $_header_accept;
} }
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json'); $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
# path params # path params
if ( exists $args{'username'}) { if ( exists $args{'username'}) {
@ -552,8 +552,8 @@ sub update_user {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args{'user'}) { if ( exists $args{'body'}) {
$_body_data = $args{'user'}; $_body_data = $args{'body'};
} }
# authentication setting, if any # authentication setting, if any

41
samples/client/petstore/perl/t/AnotherFakeApiTest.t Normal file
View File

@ -0,0 +1,41 @@
=begin comment
OpenAPI 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: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by OpenAPI Generator
# Please update the test cases below to test the API endpoints.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 1; #TODO update number of test cases
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::AnotherFakeApi');
my $api = WWW::OpenAPIClient::AnotherFakeApi->new();
isa_ok($api, 'WWW::OpenAPIClient::AnotherFakeApi');
#
# call_123_test_special_tags test
#
{
my $body = undef; # replace NULL with a proper value
my $result = $api->call_123_test_special_tags(body => $body);
}
1;

33
samples/client/petstore/perl/t/CatAllOfTest.t Normal file
View File

@ -0,0 +1,33 @@
=begin comment
OpenAPI 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: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::CatAllOf');
my $instance = WWW::OpenAPIClient::Object::CatAllOf->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::CatAllOf');

33
samples/client/petstore/perl/t/DogAllOfTest.t Normal file
View File

@ -0,0 +1,33 @@
=begin comment
OpenAPI 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: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::DogAllOf');
my $instance = WWW::OpenAPIClient::Object::DogAllOf->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::DogAllOf');