Add multiple inheritance support to Perl client (#1681)

* add multiple inheritance support to perl client

* remove allof test from fake petstore

bin/openapi3/perl-petstore.sh

@@ -28,6 +28,6 @@ fi
 # if you've executed sbt assembly previously it will use that instead.
 export JAVA_OPTS="${JAVA_OPTS} -XX:MaxPermSize=256M -Xmx1024M -DloggerPath=conf/log4j.properties"
 # complex module name used for testing
-ags="generate -i modules/openapi-generator/src/test/resources/3_0/petstore-with-fake-endpoints-models-for-testing.yaml  -g perl -o samples/client/petstore/perl -DhideGenerationTimestamp=true $@"
+ags="generate -t modules/openapi-generator/src/main/resources/perl -i modules/openapi-generator/src/test/resources/3_0/petstore-with-fake-endpoints-models-for-testing.yaml  -g perl -o samples/client/petstore/perl -DhideGenerationTimestamp=true $@"
 
 java $JAVA_OPTS -jar $executable $ags

modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/PerlClientCodegen.java

@@ -53,6 +53,9 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
     public PerlClientCodegen() {
         super();
 
+        // add multiple inheritance support (beta)
+        supportsMultipleInheritance = true;
+
         // clear import mapping (from default generator) as perl does not use it
         // at the moment
         importMapping.clear();

modules/openapi-generator/src/main/resources/perl/BaseObject.mustache

@@ -9,23 +9,44 @@ __PACKAGE__->mk_classdata('openapi_types' => {});
 __PACKAGE__->mk_classdata('method_documentation' => {}); 
 __PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
 sub new { 
     my ($class, %args) = @_; 
 
 	my $self = bless {}, $class;
-	
+
-	foreach my $attribute (keys %{$class->attribute_map}) {
+	$self->init(%args);
-		my $args_key = $class->attribute_map->{$attribute};
-		$self->$attribute( $args{ $args_key } );
-	}
 	
 	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 } );
+	}
+	{{#allParents}}
+
+	# initialize parent object {{{.}}}
+    $self->{{moduleName}}::Object::{{{.}}}::init(%args);
+	{{/allParents}}
+}
 
 # return perl hash
 sub to_hash {
-    return decode_json(JSON->new->convert_blessed->encode( shift ));
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+	{{#allParents}}
+
+	# call {{{.}}} to_hash and then combine hash
+    $_hash = { %$_hash, %$self->{{moduleName}}::Object::{{{.}}}::to_hash };
+	{{/allParents}}
+
+    return $_hash;
 }
 
 # used by JSON for serialization
@@ -37,6 +58,12 @@ sub TO_JSON {
             $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+    {{#allParents}}
+
+    # combine parent ({{{.}}}) TO_JSON
+    $_data = { %$_data, %$self->{{moduleName}}::Object::{{{.}}}::TO_JSON };
+    {{/allParents}}
+
     return $_data;
 }
 
@@ -60,6 +87,11 @@ sub from_hash {
         	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
         }
     }
+    {{#allParents}}
+
+    # call parent ({{{.}}}) from_hash
+    $self->{{moduleName}}::Object::{{{.}}}::from_hash($hash);
+    {{/allParents}}
   
     return $self;
 }

modules/openapi-generator/src/main/resources/perl/object.mustache

@@ -23,8 +23,7 @@ use DateTime;
 use {{moduleName}}::Object::{{.}};
 {{/imports}}
 
-use base ("Class::Accessor", "Class::Data::Inheritable");
+use base ("Class::Accessor", "Class::Data::Inheritable"{{#allParents}}, "{{moduleName}}::Object::{{{.}}}"{{/allParents}});
-
 
 #
 #{{description}}

samples/client/petstore/perl/.openapi-generator/VERSION

@@ -1 +1 @@
-3.3.0-SNAPSHOT
+4.0.0-SNAPSHOT

samples/client/petstore/perl/README.md

@@ -234,7 +234,6 @@ To load the models:
 ```perl
 use WWW::OpenAPIClient::Object::AdditionalPropertiesClass;
 use WWW::OpenAPIClient::Object::Animal;
-use WWW::OpenAPIClient::Object::AnimalFarm;
 use WWW::OpenAPIClient::Object::ApiResponse;
 use WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly;
 use WWW::OpenAPIClient::Object::ArrayOfNumberOnly;
@@ -265,7 +264,6 @@ use WWW::OpenAPIClient::Object::OuterEnum;
 use WWW::OpenAPIClient::Object::Pet;
 use WWW::OpenAPIClient::Object::ReadOnlyFirst;
 use WWW::OpenAPIClient::Object::SpecialModelName;
-use WWW::OpenAPIClient::Object::StringBooleanMap;
 use WWW::OpenAPIClient::Object::Tag;
 use WWW::OpenAPIClient::Object::User;
 
@@ -289,7 +287,6 @@ use WWW::OpenAPIClient::UserApi;
 # load the models
 use WWW::OpenAPIClient::Object::AdditionalPropertiesClass;
 use WWW::OpenAPIClient::Object::Animal;
-use WWW::OpenAPIClient::Object::AnimalFarm;
 use WWW::OpenAPIClient::Object::ApiResponse;
 use WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly;
 use WWW::OpenAPIClient::Object::ArrayOfNumberOnly;
@@ -320,7 +317,6 @@ use WWW::OpenAPIClient::Object::OuterEnum;
 use WWW::OpenAPIClient::Object::Pet;
 use WWW::OpenAPIClient::Object::ReadOnlyFirst;
 use WWW::OpenAPIClient::Object::SpecialModelName;
-use WWW::OpenAPIClient::Object::StringBooleanMap;
 use WWW::OpenAPIClient::Object::Tag;
 use WWW::OpenAPIClient::Object::User;
 
@@ -359,6 +355,7 @@ Class | Method | HTTP request | Description
 *FakeApi* | [**test_client_model**](docs/FakeApi.md#test_client_model) | **PATCH** /fake | To test \"client\" model
 *FakeApi* | [**test_endpoint_parameters**](docs/FakeApi.md#test_endpoint_parameters) | **POST** /fake | Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 
 *FakeApi* | [**test_enum_parameters**](docs/FakeApi.md#test_enum_parameters) | **GET** /fake | To test enum parameters
+*FakeApi* | [**test_group_parameters**](docs/FakeApi.md#test_group_parameters) | **DELETE** /fake | Fake endpoint to test group parameters (optional)
 *FakeApi* | [**test_inline_additional_properties**](docs/FakeApi.md#test_inline_additional_properties) | **POST** /fake/inline-additionalProperties | test inline additionalProperties
 *FakeApi* | [**test_json_form_data**](docs/FakeApi.md#test_json_form_data) | **GET** /fake/jsonFormData | test json serialization of form data
 *FakeClassnameTags123Api* | [**test_classname**](docs/FakeClassnameTags123Api.md#test_classname) | **PATCH** /fake_classname_test | To test class name in snake case
@@ -388,7 +385,6 @@ Class | Method | HTTP request | Description
 # DOCUMENTATION FOR MODELS
  - [WWW::OpenAPIClient::Object::AdditionalPropertiesClass](docs/AdditionalPropertiesClass.md)
  - [WWW::OpenAPIClient::Object::Animal](docs/Animal.md)
- - [WWW::OpenAPIClient::Object::AnimalFarm](docs/AnimalFarm.md)
  - [WWW::OpenAPIClient::Object::ApiResponse](docs/ApiResponse.md)
  - [WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly](docs/ArrayOfArrayOfNumberOnly.md)
  - [WWW::OpenAPIClient::Object::ArrayOfNumberOnly](docs/ArrayOfNumberOnly.md)
@@ -419,7 +415,6 @@ Class | Method | HTTP request | Description
  - [WWW::OpenAPIClient::Object::Pet](docs/Pet.md)
  - [WWW::OpenAPIClient::Object::ReadOnlyFirst](docs/ReadOnlyFirst.md)
  - [WWW::OpenAPIClient::Object::SpecialModelName](docs/SpecialModelName.md)
- - [WWW::OpenAPIClient::Object::StringBooleanMap](docs/StringBooleanMap.md)
  - [WWW::OpenAPIClient::Object::Tag](docs/Tag.md)
  - [WWW::OpenAPIClient::Object::User](docs/User.md)
 

samples/client/petstore/perl/docs/Adult.md

@@ -0,0 +1,18 @@
+# WWW::OpenAPIClient::Object::Adult
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::Adult;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**duplicated_optional** | **int** |  | [optional] 
+**duplicated_required** | **int** |  | 
+**children** | [**ARRAY[Child]**](Child.md) |  | [optional] 
+**adult_required** | **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)
+
+

samples/client/petstore/perl/docs/Cat.md

@@ -8,8 +8,6 @@ use WWW::OpenAPIClient::Object::Cat;
 ## Properties
 Name | Type | Description | Notes
 ------------ | ------------- | ------------- | -------------
-**class_name** | **string** |  | 
-**color** | **string** |  | [optional] [default to 'red']
 **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)

samples/client/petstore/perl/docs/Category.md

@@ -9,7 +9,7 @@ use WWW::OpenAPIClient::Object::Category;
 Name | Type | Description | Notes
 ------------ | ------------- | ------------- | -------------
 **id** | **int** |  | [optional] 
-**name** | **string** |  | [optional] 
+**name** | **string** |  | [default to 'default-name']
 
 [[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)
 

samples/client/petstore/perl/docs/Child.md

@@ -0,0 +1,16 @@
+# WWW::OpenAPIClient::Object::Child
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::Child;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**age** | **int** |  | [optional] 
+**first_name** | **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)
+
+

samples/client/petstore/perl/docs/DefaultApi.md

@@ -0,0 +1,54 @@
+# WWW::OpenAPIClient::DefaultApi
+
+## Load the API package
+```perl
+use WWW::OpenAPIClient::Object::DefaultApi;
+```
+
+All URIs are relative to *http://petstore.swagger.io:80/v2*
+
+Method | HTTP request | Description
+------------- | ------------- | -------------
+[**foo_get**](DefaultApi.md#foo_get) | **GET** /foo | 
+
+
+# **foo_get**
+> InlineResponseDefault foo_get()
+
+
+
+### Example 
+```perl
+use Data::Dumper;
+use WWW::OpenAPIClient::DefaultApi;
+my $api_instance = WWW::OpenAPIClient::DefaultApi->new(
+);
+
+
+eval { 
+    my $result = $api_instance->foo_get();
+    print Dumper($result);
+};
+if ($@) {
+    warn "Exception when calling DefaultApi->foo_get: $@\n";
+}
+```
+
+### Parameters
+This endpoint does not need any parameter.
+
+### Return type
+
+[**InlineResponseDefault**](InlineResponseDefault.md)
+
+### Authorization
+
+No authorization required
+
+### HTTP request headers
+
+ - **Content-Type**: Not defined
+ - **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)
+

samples/client/petstore/perl/docs/Dog.md

@@ -8,8 +8,6 @@ use WWW::OpenAPIClient::Object::Dog;
 ## Properties
 Name | Type | Description | Notes
 ------------ | ------------- | ------------- | -------------
-**class_name** | **string** |  | 
-**color** | **string** |  | [optional] [default to 'red']
 **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)

samples/client/petstore/perl/docs/FakeApi.md

@@ -18,6 +18,7 @@ Method | HTTP request | Description
 [**test_client_model**](FakeApi.md#test_client_model) | **PATCH** /fake | To test \"client\" model
 [**test_endpoint_parameters**](FakeApi.md#test_endpoint_parameters) | **POST** /fake | Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 
 [**test_enum_parameters**](FakeApi.md#test_enum_parameters) | **GET** /fake | To test enum parameters
+[**test_group_parameters**](FakeApi.md#test_group_parameters) | **DELETE** /fake | Fake endpoint to test group parameters (optional)
 [**test_inline_additional_properties**](FakeApi.md#test_inline_additional_properties) | **POST** /fake/inline-additionalProperties | test inline additionalProperties
 [**test_json_form_data**](FakeApi.md#test_json_form_data) | **GET** /fake/jsonFormData | test json serialization of form data
 
@@ -476,6 +477,61 @@ 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)
 
+# **test_group_parameters**
+> test_group_parameters(required_string_group => $required_string_group, required_boolean_group => $required_boolean_group, required_int64_group => $required_int64_group, string_group => $string_group, boolean_group => $boolean_group, int64_group => $int64_group)
+
+Fake endpoint to test group parameters (optional)
+
+Fake endpoint to test group parameters (optional)
+
+### Example 
+```perl
+use Data::Dumper;
+use WWW::OpenAPIClient::FakeApi;
+my $api_instance = WWW::OpenAPIClient::FakeApi->new(
+);
+
+my $required_string_group = 56; # int | Required String in group parameters
+my $required_boolean_group = null; # boolean | Required Boolean in group parameters
+my $required_int64_group = 789; # int | Required Integer in group parameters
+my $string_group = 56; # int | String in group parameters
+my $boolean_group = null; # boolean | Boolean in group parameters
+my $int64_group = 789; # int | Integer in group parameters
+
+eval { 
+    $api_instance->test_group_parameters(required_string_group => $required_string_group, required_boolean_group => $required_boolean_group, required_int64_group => $required_int64_group, string_group => $string_group, boolean_group => $boolean_group, int64_group => $int64_group);
+};
+if ($@) {
+    warn "Exception when calling FakeApi->test_group_parameters: $@\n";
+}
+```
+
+### Parameters
+
+Name | Type | Description  | Notes
+------------- | ------------- | ------------- | -------------
+ **required_string_group** | **int**| Required String in group parameters | 
+ **required_boolean_group** | **boolean**| Required Boolean in group parameters | 
+ **required_int64_group** | **int**| Required Integer in group parameters | 
+ **string_group** | **int**| String in group parameters | [optional] 
+ **boolean_group** | **boolean**| Boolean in group parameters | [optional] 
+ **int64_group** | **int**| Integer in group parameters | [optional] 
+
+### Return type
+
+void (empty response body)
+
+### Authorization
+
+No authorization required
+
+### HTTP request headers
+
+ - **Content-Type**: 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)
+
 # **test_inline_additional_properties**
 > test_inline_additional_properties(request_body => $request_body)
 

samples/client/petstore/perl/docs/Foo.md

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

samples/client/petstore/perl/docs/Human.md

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

samples/client/petstore/perl/docs/InlineObject.md

@@ -0,0 +1,16 @@
+# WWW::OpenAPIClient::Object::InlineObject
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::InlineObject;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**name** | **string** | Updated name of the pet | [optional] 
+**status** | **string** | Updated status of the pet | [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)
+
+

samples/client/petstore/perl/docs/InlineObject1.md

@@ -0,0 +1,16 @@
+# WWW::OpenAPIClient::Object::InlineObject1
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::InlineObject1;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**additional_metadata** | **string** | Additional data to pass to server | [optional] 
+**file** | **string** | file to upload | [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)
+
+

samples/client/petstore/perl/docs/InlineObject2.md

@@ -0,0 +1,16 @@
+# WWW::OpenAPIClient::Object::InlineObject2
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::InlineObject2;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**enum_form_string_array** | **ARRAY[string]** | Form parameter enum test (string array) | [optional] 
+**enum_form_string** | **string** | Form parameter enum test (string) | [optional] [default to '-efg']
+
+[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)
+
+

samples/client/petstore/perl/docs/InlineObject3.md

@@ -0,0 +1,28 @@
+# WWW::OpenAPIClient::Object::InlineObject3
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::InlineObject3;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**integer** | **int** | None | [optional] 
+**int32** | **int** | None | [optional] 
+**int64** | **int** | None | [optional] 
+**number** | **double** | None | 
+**float** | **double** | None | [optional] 
+**double** | **double** | None | 
+**string** | **string** | None | [optional] 
+**pattern_without_delimiter** | **string** | None | 
+**byte** | **string** | None | 
+**binary** | **string** | None | [optional] 
+**date** | **DateTime** | None | [optional] 
+**date_time** | **DateTime** | None | [optional] 
+**password** | **string** | None | [optional] 
+**callback** | **string** | None | [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)
+
+

samples/client/petstore/perl/docs/InlineObject4.md

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

samples/client/petstore/perl/docs/InlineObject5.md

@@ -0,0 +1,16 @@
+# WWW::OpenAPIClient::Object::InlineObject5
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::InlineObject5;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**additional_metadata** | **string** | Additional data to pass to server | [optional] 
+**required_file** | **string** | file to upload | 
+
+[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)
+
+

samples/client/petstore/perl/docs/InlineResponseDefault.md

@@ -0,0 +1,15 @@
+# WWW::OpenAPIClient::Object::InlineResponseDefault
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::InlineResponseDefault;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**string** | [**Foo**](Foo.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)
+
+

samples/client/petstore/perl/docs/MapTest.md

@@ -11,7 +11,7 @@ Name | Type | Description | Notes
 **map_map_of_string** | **HASH[string,HASH[string,string]]** |  | [optional] 
 **map_of_enum_string** | **HASH[string,string]** |  | [optional] 
 **direct_map** | **HASH[string,boolean]** |  | [optional] 
-**indirect_map** | [**StringBooleanMap**](StringBooleanMap.md) |  | [optional] 
+**indirect_map** | **HASH[string,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)
 

samples/client/petstore/perl/docs/Person.md

@@ -0,0 +1,20 @@
+# WWW::OpenAPIClient::Object::Person
+
+## Load the model package
+```perl
+use WWW::OpenAPIClient::Object::Person;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**___type** | **string** |  | [optional] 
+**last_name** | **string** |  | [optional] 
+**first_name** | **string** |  | [optional] 
+**duplicated_optional** | **string** |  | [optional] 
+**duplicated_required** | **string** |  | 
+**person_required** | **DateTime** |  | 
+
+[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)
+
+

samples/client/petstore/perl/docs/PetApi.md

@@ -180,7 +180,7 @@ my $api_instance = WWW::OpenAPIClient::PetApi->new(
     access_token => 'YOUR_ACCESS_TOKEN',
 );
 
-my $tags = [("inner_example")]; # ARRAY[string] | Tags to filter by
+my $tags = [("null")]; # ARRAY[string] | Tags to filter by
 
 eval { 
     my $result = $api_instance->find_pets_by_tags(tags => $tags);

samples/client/petstore/perl/lib/WWW/OpenAPIClient/AnotherFakeApi.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -23,7 +22,7 @@ package WWW::OpenAPIClient::AnotherFakeApi;
 require 5.6.0;
 use strict;
 use warnings;
-use utf8;
+use utf8; 
 use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
@@ -32,16 +31,15 @@ use WWW::OpenAPIClient::ApiClient;
 
 use base "Class::Data::Inheritable";
 
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {});
 
 sub new {
     my $class = shift;
     my $api_client;
 
-    if ( $_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
+    if ($_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
         $api_client = $_[0];
-    }
+    } else {
-    else {
         $api_client = WWW::OpenAPIClient::ApiClient->new(@_);
     }
 
@@ -49,60 +47,55 @@ sub new {
 
 }
 
+
 #
 # call_123_test_special_tags
 #
 # To test special tags
-#
+# 
 # @param Client $client client model (required)
 {
     my $params = {
-        'client' => {
+    'client' => {
-            data_type   => 'Client',
+        data_type => 'Client',
-            description => 'client model',
+        description => 'client model',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'call_123_test_special_tags'} = {
+    __PACKAGE__->method_documentation->{ 'call_123_test_special_tags' } = { 
-        summary => 'To test special tags',
+    	summary => 'To test special tags',
-        params  => $params,
+        params => $params,
         returns => 'Client',
-    };
+        };
 }
-
 # @return Client
 #
 sub call_123_test_special_tags {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'client' is set
-    unless ( exists $args{'client'} ) {
+    unless (exists $args{'client'}) {
-        croak(
+      croak("Missing the required parameter 'client' when calling call_123_test_special_tags");
-"Missing the required parameter 'client' when calling call_123_test_special_tags"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/another-fake/dummy';
 
-    my $_method       = 'PATCH';
+    my $_method = 'PATCH';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
-    my $_header_accept =
+    my $_header_accept = $self->{api_client}->select_header_accept('application/json');
-      $self->{api_client}->select_header_accept('application/json');
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
-      $self->{api_client}->select_header_content_type('application/json');
 
     my $_body_data;
-
     # body params
-    if ( exists $args{'client'} ) {
+    if ( exists $args{'client'}) {
         $_body_data = $args{'client'};
     }
 
@@ -110,15 +103,13 @@ sub call_123_test_special_tags {
     my $auth_settings = [qw()];
 
     # make the API Call
-    my $response = $self->{api_client}->call_api(
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
-        $_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) {
-    if ( !$response ) {
         return;
     }
-    my $_response_object =
+    my $_response_object = $self->{api_client}->deserialize('Client', $response);
-      $self->{api_client}->deserialize( 'Client', $response );
     return $_response_object;
 }
 

samples/client/petstore/perl/lib/WWW/OpenAPIClient/ApiClient.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -40,25 +39,22 @@ use Module::Runtime qw(use_module);
 
 use WWW::OpenAPIClient::Configuration;
 
+
 sub new {
     my $class = shift;
 
     my $config;
-    if (   $_[0]
+    if ( $_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::Configuration' ) {
-        && ref $_[0]
-        && ref $_[0] eq 'WWW::OpenAPIClient::Configuration' )
-    {
         $config = $_[0];
-    }
+    } else {
-    else {
         $config = WWW::OpenAPIClient::Configuration->new(@_);
     }
 
     my (%args) = (
-        'ua'     => LWP::UserAgent->new,
+        'ua' => LWP::UserAgent->new,
         'config' => $config,
     );
-
+  
     return bless \%args, $class;
 }
 
@@ -67,17 +63,17 @@ sub new {
 # @param string $user_agent The user agent of the API client
 #
 sub set_user_agent {
-    my ( $self, $user_agent ) = @_;
+    my ($self, $user_agent) = @_;
-    $self->{http_user_agent} = $user_agent;
+    $self->{http_user_agent}= $user_agent;
 }
 
 # Set timeout
 #
 # @param integer $seconds Number of seconds before timing out [set to 0 for no timeout]
-#
+# 
 sub set_timeout {
-    my ( $self, $seconds ) = @_;
+    my ($self, $seconds) = @_;
-    if ( !looks_like_number($seconds) ) {
+    if (!looks_like_number($seconds)) {
         croak('Timeout variable must be numeric.');
     }
     $self->{http_timeout} = $seconds;
@@ -92,86 +88,72 @@ sub set_timeout {
 # @return mixed
 sub call_api {
     my $self = shift;
-    my (
+    my ($resource_path, $method, $query_params, $post_params, $header_params, $body_data, $auth_settings) = @_;
-        $resource_path, $method,    $query_params, $post_params,
+  
-        $header_params, $body_data, $auth_settings
-    ) = @_;
-
     # update parameters based on authentication settings
-    $self->update_params_for_auth( $header_params, $query_params,
+    $self->update_params_for_auth($header_params, $query_params, $auth_settings); 
-        $auth_settings );
+  
-
+  
     my $_url = $self->{config}{base_url} . $resource_path;
-
+  
-    # build query
+    # build query 
     if (%$query_params) {
-        $_url =
+        $_url = ($_url . '?' . eval { URI::Query->new($query_params)->stringify });
-          ( $_url . '?' . eval { URI::Query->new($query_params)->stringify } );
     }
-
+  
+  
     # body data
-    $body_data = to_json( $body_data->to_hash )
+    $body_data = to_json($body_data->to_hash) if defined $body_data && $body_data->can('to_hash'); # model to json string
-      if defined $body_data
-      && $body_data->can('to_hash');    # model to json string
     my $_body_data = %$post_params ? $post_params : $body_data;
-
+  
     # Make the HTTP request
     my $_request;
-    if ( $method eq 'POST' ) {
+    if ($method eq 'POST') {
-
         # multipart
-        $header_params->{'Content-Type'} =
+        $header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ? 
-          lc $header_params->{'Content-Type'} eq 'multipart/form'
+            'form-data' : $header_params->{'Content-Type'};
-          ? 'form-data'
+        
-          : $header_params->{'Content-Type'};
+        $_request = POST($_url, %$header_params, Content => $_body_data);
-
+  
-        $_request = POST( $_url, %$header_params, Content => $_body_data );
-
     }
-    elsif ( $method eq 'PUT' ) {
+    elsif ($method eq 'PUT') {
-
         # multipart
-        $header_params->{'Content-Type'} =
+        $header_params->{'Content-Type'}  = lc $header_params->{'Content-Type'} eq 'multipart/form' ? 
-          lc $header_params->{'Content-Type'} eq 'multipart/form'
+            'form-data' : $header_params->{'Content-Type'};
-          ? 'form-data'
+  
-          : $header_params->{'Content-Type'};
+        $_request = PUT($_url, %$header_params, Content => $_body_data);
-
+  
-        $_request = PUT( $_url, %$header_params, Content => $_body_data );
-
     }
-    elsif ( $method eq 'GET' ) {
+    elsif ($method eq 'GET') {
         my $headers = HTTP::Headers->new(%$header_params);
-        $_request = GET( $_url, %$header_params );
+        $_request = GET($_url, %$header_params);
     }
-    elsif ( $method eq 'HEAD' ) {
+    elsif ($method eq 'HEAD') {
         my $headers = HTTP::Headers->new(%$header_params);
-        $_request = HEAD( $_url, %$header_params );
+        $_request = HEAD($_url,%$header_params); 
     }
-    elsif ( $method eq 'DELETE' ) {    #TODO support form data
+    elsif ($method eq 'DELETE') { #TODO support form data
         my $headers = HTTP::Headers->new(%$header_params);
-        $_request = DELETE( $_url, %$headers );
+        $_request = DELETE($_url, %$headers);
     }
-    elsif ( $method eq 'PATCH' ) {     #TODO
+    elsif ($method eq 'PATCH') { #TODO
     }
     else {
     }
-
+   
-    $self->{ua}
+    $self->{ua}->timeout($self->{http_timeout} || $self->{config}{http_timeout});
-      ->timeout( $self->{http_timeout} || $self->{config}{http_timeout} );
+    $self->{ua}->agent($self->{http_user_agent} || $self->{config}{http_user_agent});
-    $self->{ua}
+    
-      ->agent( $self->{http_user_agent} || $self->{config}{http_user_agent} );
+    $log->debugf("REQUEST: %s", $_request->as_string);
-
-    $log->debugf( "REQUEST: %s", $_request->as_string );
     my $_response = $self->{ua}->request($_request);
-    $log->debugf( "RESPONSE: %s", $_response->as_string );
+    $log->debugf("RESPONSE: %s", $_response->as_string);
-
+  
-    unless ( $_response->is_success ) {
+    unless ($_response->is_success) {
-        croak( sprintf "API Exception(%s): %s\n%s",
+        croak(sprintf "API Exception(%s): %s\n%s", $_response->code, $_response->message, $_response->content);
-            $_response->code, $_response->message, $_response->content );
     }
-
+       
     return $_response->content;
-
+  
 }
 
 #  Take value and turn it into a string suitable for inclusion in
@@ -179,10 +161,11 @@ sub call_api {
 #  @param string $value a string which will be part of the path
 #  @return string the serialized object
 sub to_path_value {
-    my ( $self, $value ) = @_;
+    my ($self, $value) = @_;
-    return uri_escape( $self->to_string($value) );
+    return uri_escape($self->to_string($value));
 }
 
+
 # Take value and turn it into a string suitable for inclusion in
 # the query, by imploding comma-separated if it's an object.
 # If it's a string, pass through unchanged. It will be url-encoded
@@ -190,22 +173,22 @@ sub to_path_value {
 # @param object $object an object to be serialized to a string
 # @return string the serialized object
 sub to_query_value {
-    my ( $self, $object ) = @_;
+      my ($self, $object) = @_;
-    if ( ref($object) eq 'ARRAY' ) {
+      if (ref($object) eq 'ARRAY') {
-        return join( ',', @$object );
+          return join(',', @$object);
-    }
+      } else {
-    else {
+          return $self->to_string($object);
-        return $self->to_string($object);
+      }
-    }
 }
 
+
 # Take value and turn it into a string suitable for inclusion in
 # the header. If it's a string, pass through unchanged
 # If it's a datetime object, format it in ISO8601
 # @param string $value a string which will be part of the header
 # @return string the header string
 sub to_header_value {
-    my ( $self, $value ) = @_;
+    my ($self, $value) = @_;
     return $self->to_string($value);
 }
 
@@ -215,7 +198,7 @@ sub to_header_value {
 # @param string $value the value of the form parameter
 # @return string the form string
 sub to_form_value {
-    my ( $self, $value ) = @_;
+    my ($self, $value) = @_;
     return $self->to_string($value);
 }
 
@@ -225,8 +208,8 @@ sub to_form_value {
 # @param string $value the value of the parameter
 # @return string the header string
 sub to_string {
-    my ( $self, $value ) = @_;
+    my ($self, $value) = @_;
-    if ( ref($value) eq "DateTime" ) {    # datetime in ISO8601 format
+    if (ref($value) eq "DateTime") { # datetime in ISO8601 format
         return $value->datetime();
     }
     else {
@@ -235,216 +218,197 @@ sub to_string {
 }
 
 # Deserialize a JSON string into an object
-#
+#  
 # @param string $class class name is passed as a string
 # @param string $data data of the body
 # @return object an instance of $class
-sub deserialize {
+sub deserialize
-    my ( $self, $class, $data ) = @_;
+{
-    $log->debugf( "deserializing %s for %s", $data, $class );
+    my ($self, $class, $data) = @_;
-
+    $log->debugf("deserializing %s for %s", $data, $class);
-    if ( not defined $data ) {
+  
+    if (not defined $data) {
         return undef;
-    }
+    } elsif ( (substr($class, 0, 5)) eq 'HASH[') { #hash
-    elsif ( ( substr( $class, 0, 5 ) ) eq 'HASH[' ) {    #hash
+        if ($class =~ /^HASH\[(.*),(.*)\]$/) {
-        if ( $class =~ /^HASH\[(.*),(.*)\]$/ ) {
+            my ($key_type, $type) = ($1, $2);
-            my ( $key_type, $type ) = ( $1, $2 );
             my %hash;
             my $decoded_data = decode_json $data;
-            foreach my $key ( keys %$decoded_data ) {
+            foreach my $key (keys %$decoded_data) {
-                if ( ref $decoded_data->{$key} eq 'HASH' ) {
+                if (ref $decoded_data->{$key} eq 'HASH') {
-                    $hash{$key} = $self->deserialize( $type,
+                    $hash{$key} = $self->deserialize($type, encode_json $decoded_data->{$key});
-                        encode_json $decoded_data->{$key} );
+                } else {
-                }
+                    $hash{$key} = $self->deserialize($type, $decoded_data->{$key});
-                else {
-                    $hash{$key} =
-                      $self->deserialize( $type, $decoded_data->{$key} );
                 }
             }
             return \%hash;
+        } else {
+          #TODO log error
         }
-        else {
+    
-            #TODO log error
+    } elsif ( (substr($class, 0, 6)) eq 'ARRAY[' ) { # array of data
-        }
+        return $data if $data eq '[]'; # return if empty array
-
+    
-    }
+        my $_sub_class = substr($class, 6, -1);
-    elsif ( ( substr( $class, 0, 6 ) ) eq 'ARRAY[' ) {    # array of data
-        return $data if $data eq '[]';    # return if empty array
-
-        my $_sub_class = substr( $class, 6, -1 );
         my $_json_data = decode_json $data;
-        my @_values    = ();
+        my @_values = ();
         foreach my $_value (@$_json_data) {
-            if ( ref $_value eq 'ARRAY' ) {
+            if (ref $_value eq 'ARRAY') {
-                push @_values,
+                push @_values, $self->deserialize($_sub_class, encode_json $_value);
-                  $self->deserialize( $_sub_class, encode_json $_value);
+            } else {
-            }
+                push @_values, $self->deserialize($_sub_class, $_value);
-            else {
-                push @_values, $self->deserialize( $_sub_class, $_value );
             }
         }
         return \@_values;
-    }
+    } elsif ($class eq 'DateTime') {
-    elsif ( $class eq 'DateTime' ) {
+        return DateTime->from_epoch(epoch => str2time($data));
-        return DateTime->from_epoch( epoch => str2time($data) );
+    } elsif (grep /^$class$/, ('string', 'int', 'float', 'bool', 'object')) {
-    }
-    elsif ( grep /^$class$/, ( 'string', 'int', 'float', 'bool', 'object' ) ) {
         return $data;
-    }
+    } else { # model
-    else {    # model
         my $_instance = use_module("WWW::OpenAPIClient::Object::$class")->new;
-        if ( ref $data eq "HASH" ) {
+        if (ref $data eq "HASH") {
             return $_instance->from_hash($data);
-        }
+        } else { # string, need to json decode first
-        else {    # string, need to json decode first
+            return $_instance->from_hash(decode_json $data);
-            return $_instance->from_hash( decode_json $data);
         }
     }
-
+  
 }
 
 # return 'Accept' based on an array of accept provided
 # @param [Array] header_accept_array Array fo 'Accept'
 # @return String Accept (e.g. application/json)
-sub select_header_accept {
+sub select_header_accept
-    my ( $self, @header ) = @_;
+{
-
+    my ($self, @header) = @_;
-    if ( @header == 0 || ( @header == 1 && $header[0] eq '' ) ) {
+  
+    if (@header == 0 || (@header == 1 && $header[0] eq '')) {
         return undef;
-    }
+    } elsif (grep(/^application\/json$/i, @header)) {
-    elsif ( grep( /^application\/json$/i, @header ) ) {
         return 'application/json';
+    } else {
+        return join(',', @header);
     }
-    else {
+  
-        return join( ',', @header );
-    }
-
 }
 
 # return the content type based on an array of content-type provided
 # @param [Array] content_type_array Array fo content-type
 # @return String Content-Type (e.g. application/json)
-sub select_header_content_type {
+sub select_header_content_type
-    my ( $self, @header ) = @_;
+{
-
+    my ($self, @header) = @_;
-    if ( @header == 0 || ( @header == 1 && $header[0] eq '' ) ) {
+  
-        return 'application/json';    # default to application/json
+    if (@header == 0 || (@header == 1 && $header[0] eq '')) {
-    }
+        return 'application/json'; # default to application/json
-    elsif ( grep( /^application\/json$/i, @header ) ) {
+    } elsif (grep(/^application\/json$/i, @header)) {
         return 'application/json';
+    } else {
+        return join(',', @header);
     }
-    else {
+  
-        return join( ',', @header );
-    }
-
 }
 
 # Get API key (with prefix if set)
 # @param string key name
 # @return string API key with the prefix
-sub get_api_key_with_prefix {
+sub get_api_key_with_prefix
-    my ( $self, $key_name ) = @_;
+{
+	my ($self, $key_name) = @_;
 
-    my $api_key = $self->{config}{api_key}{$key_name};
+	my $api_key = $self->{config}{api_key}{$key_name};
-
+	
-    return unless $api_key;
+	return unless $api_key;
-
+	
-    my $prefix = $self->{config}{api_key_prefix}{$key_name};
+	my $prefix = $self->{config}{api_key_prefix}{$key_name};
-    return $prefix ? "$prefix $api_key" : $api_key;
+	return $prefix ? "$prefix $api_key" : $api_key;
-}
+}	
 
 # update header and query param based on authentication setting
-#
+#  
 # @param array $headerParams header parameters (by ref)
 # @param array $queryParams query parameters (by ref)
 # @param array $authSettings array of authentication scheme (e.g ['api_key'])
 sub update_params_for_auth {
-    my ( $self, $header_params, $query_params, $auth_settings ) = @_;
+    my ($self, $header_params, $query_params, $auth_settings) = @_;
-
+    
-    return $self->_global_auth_setup( $header_params, $query_params )
+    return $self->_global_auth_setup($header_params, $query_params) 
-      unless $auth_settings && @$auth_settings;
+    	unless $auth_settings && @$auth_settings;
-
+  
     # one endpoint can have more than 1 auth settings
     foreach my $auth (@$auth_settings) {
-
         # determine which one to use
-        if ( !defined($auth) ) {
+        if (!defined($auth)) {
-
             # TODO show warning about auth setting not defined
         }
-        elsif ( $auth eq 'api_key' ) {
+        elsif ($auth eq 'api_key') {
-
+            
             my $api_key = $self->get_api_key_with_prefix('api_key');
             if ($api_key) {
                 $header_params->{'api_key'} = $api_key;
             }
         }
-        elsif ( $auth eq 'api_key_query' ) {
+elsif ($auth eq 'api_key_query') {
-
+            
             my $api_key = $self->get_api_key_with_prefix('api_key_query');
             if ($api_key) {
                 $query_params->{'api_key_query'} = $api_key;
             }
         }
-        elsif ( $auth eq 'http_basic_test' ) {
+elsif ($auth eq 'http_basic_test') {
-
+            
-            if ( $self->{config}{username} || $self->{config}{password} ) {
+            if ($self->{config}{username} || $self->{config}{password}) {
-                $header_params->{'Authorization'} =
+                $header_params->{'Authorization'} = 'Basic ' . encode_base64($self->{config}{username} . ":" . $self->{config}{password});
-                  'Basic '
-                  . encode_base64( $self->{config}{username} . ":"
-                      . $self->{config}{password} );
             }
         }
-        elsif ( $auth eq 'petstore_auth' ) {
+elsif ($auth eq 'petstore_auth') {
-
+            
-            if ( $self->{config}{access_token} ) {
+            if ($self->{config}{access_token}) {
-                $header_params->{'Authorization'} =
+                $header_params->{'Authorization'} = 'Bearer ' . $self->{config}{access_token};
-                  'Bearer ' . $self->{config}{access_token};
             }
         }
         else {
-            # TODO show warning about security definition not found
+       	    # TODO show warning about security definition not found
         }
     }
 }
 
-# The endpoint API class has not found any settings for auth. This may be deliberate,
+# The endpoint API class has not found any settings for auth. This may be deliberate, 
-# in which case update_params_for_auth() will be a no-op. But it may also be that the
+# in which case update_params_for_auth() will be a no-op. But it may also be that the 
-# OpenAPI Spec does not describe the intended authorization. So we check in the config for any
+# OpenAPI Spec does not describe the intended authorization. So we check in the config for any 
-# auth tokens and if we find any, we use them for all endpoints;
+# auth tokens and if we find any, we use them for all endpoints; 
 sub _global_auth_setup {
-    my ( $self, $header_params, $query_params ) = @_;
+	my ($self, $header_params, $query_params) = @_; 
-
+	
-    my $tokens = $self->{config}->get_tokens;
+	my $tokens = $self->{config}->get_tokens;
-    return unless keys %$tokens;
+	return unless keys %$tokens;
-
+	
-    # basic
+	# basic
-    if ( my $uname = delete $tokens->{username} ) {
+	if (my $uname = delete $tokens->{username}) {
-        my $pword = delete $tokens->{password};
+		my $pword = delete $tokens->{password};
-        $header_params->{'Authorization'} =
+		$header_params->{'Authorization'} = 'Basic '.encode_base64($uname.":".$pword);
-          'Basic ' . encode_base64( $uname . ":" . $pword );
+	}
-    }
+	
-
+	# oauth
-    # oauth
+	if (my $access_token = delete $tokens->{access_token}) {
-    if ( my $access_token = delete $tokens->{access_token} ) {
+		$header_params->{'Authorization'} = 'Bearer ' . $access_token;
-        $header_params->{'Authorization'} = 'Bearer ' . $access_token;
+	}
-    }
+	
-
+	# other keys
-    # other keys
+	foreach my $token_name (keys %$tokens) {
-    foreach my $token_name ( keys %$tokens ) {
+		my $in = $tokens->{$token_name}->{in};
-        my $in    = $tokens->{$token_name}->{in};
+		my $token = $self->get_api_key_with_prefix($token_name);
-        my $token = $self->get_api_key_with_prefix($token_name);
+		if ($in eq 'head') {
-        if ( $in eq 'head' ) {
+			$header_params->{$token_name} = $token;
-            $header_params->{$token_name} = $token;
+		}
-        }
+		elsif ($in eq 'query') {
-        elsif ( $in eq 'query' ) {
+			$query_params->{$token_name} = $token;
-            $query_params->{$token_name} = $token;
+		}
-        }
+		else {
-        else {
+			die "Don't know where to put token '$token_name' ('$in' is not 'head' or 'query')";
-            die
+		}
-"Don't know where to put token '$token_name' ('$in' is not 'head' or 'query')";
+	}
-        }
-    }
 }
 
+
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/ApiFactory.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -59,8 +58,9 @@ use WWW::OpenAPIClient::ApiClient;
 =cut
 
 # Load all the API classes and construct a lookup table at startup time
-my %_apis = map { $_ =~ /^WWW::OpenAPIClient::(.*)$/; $1 => $_ }
+my %_apis = map { $_ =~ /^WWW::OpenAPIClient::(.*)$/; $1 => $_ } 
-  grep { $_ =~ /Api$/ } usesub 'WWW::OpenAPIClient';
+			grep {$_ =~ /Api$/} 
+			usesub 'WWW::OpenAPIClient';
 
 =head1 new($api_client)
 	
@@ -78,10 +78,9 @@ sub new {
     my ($class) = shift;
 
     my $api_client;
-    if ( $_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
+    if ($_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
         $api_client = $_[0];
-    }
+    } else {
-    else {
         $api_client = WWW::OpenAPIClient::ApiClient->new(@_);
     }
     bless { api_client => $api_client }, $class;
@@ -98,10 +97,10 @@ sub new {
 =cut
 
 sub get_api {
-    my ( $self, $which ) = @_;
+	my ($self, $which) = @_;
-    croak "API not specified" unless $which;
+	croak "API not specified" unless $which;
-    my $api_class = $_apis{"${which}Api"} || croak "No known API for '$which'";
+	my $api_class = $_apis{"${which}Api"} || croak "No known API for '$which'";
-    return $api_class->new( $self->api_client );
+	return $api_class->new($self->api_client); 
 }
 
 =head1 api_client()
@@ -115,16 +114,15 @@ sub api_client { $_[0]->{api_client} }
 =head1 apis_available()
 =cut 
 
-sub apis_available {
+sub apis_available { return map { $_ =~ s/Api$//; $_ } sort keys %_apis }
-    return map { $_ =~ s/Api$//; $_ } sort keys %_apis;
-}
 
 =head1 classname_for()
 =cut
 
 sub classname_for {
-    my ( $self, $api_name ) = @_;
+	my ($self, $api_name) = @_;
-    return $_apis{"${api_name}Api"};
+	return $_apis{"${api_name}Api"};
 }
 
+
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Configuration.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -92,81 +91,80 @@ default: http://petstore.swagger.io:80/v2
 =cut
 
 sub new {
-    my ( $self, %p ) = ( shift, @_ );
+	my ($self, %p) = (shift,@_);
 
-    # class/static variables
+	# class/static variables
-    $p{http_timeout}    //= 180;
+	$p{http_timeout} //= 180;
-    $p{http_user_agent} //= 'OpenAPI-Generator/1.0.0/perl';
+	$p{http_user_agent} //= 'OpenAPI-Generator/1.0.0/perl';
 
-    # authentication setting
+	# authentication setting
-    $p{api_key}        //= {};
+	$p{api_key} //= {};
-    $p{api_key_prefix} //= {};
+	$p{api_key_prefix} //= {};
-    $p{api_key_in}     //= {};
+	$p{api_key_in} //= {};
 
-    # username and password for HTTP basic authentication
+	# username and password for HTTP basic authentication
-    $p{username} //= '';
+	$p{username} //= '';
-    $p{password} //= '';
+	$p{password} //= '';
 
-    # access token for OAuth
+	# access token for OAuth
-    $p{access_token} //= '';
+	$p{access_token} //= '';
 
-    # base_url
+	# base_url
-    $p{base_url} //= 'http://petstore.swagger.io:80/v2';
+        $p{base_url} //= 'http://petstore.swagger.io:80/v2';
 
-    return bless \%p => $self;
+	return bless \%p => $self;
 }
 
+
 sub get_tokens {
-    my $self = shift;
+	my $self = shift;
+	
+	my $tokens = {};
+	$tokens->{username} = $self->{username} if $self->{username};
+	$tokens->{password} = $self->{password} if $self->{password};
+	$tokens->{access_token} = $self->{access_token} if $self->{access_token};
+	
+	foreach my $token_name (keys %{ $self->{api_key} }) {
+		$tokens->{$token_name}->{token} = $self->{api_key}{$token_name};
+		$tokens->{$token_name}->{prefix} = $self->{api_key_prefix}{$token_name};
+		$tokens->{$token_name}->{in} = $self->{api_key_in}{$token_name};
+	}
 
-    my $tokens = {};
+	return $tokens;
-    $tokens->{username}     = $self->{username}     if $self->{username};
-    $tokens->{password}     = $self->{password}     if $self->{password};
-    $tokens->{access_token} = $self->{access_token} if $self->{access_token};
-
-    foreach my $token_name ( keys %{ $self->{api_key} } ) {
-        $tokens->{$token_name}->{token}  = $self->{api_key}{$token_name};
-        $tokens->{$token_name}->{prefix} = $self->{api_key_prefix}{$token_name};
-        $tokens->{$token_name}->{in}     = $self->{api_key_in}{$token_name};
-    }
-
-    return $tokens;
 }
 
 sub clear_tokens {
-    my $self   = shift;
+	my $self = shift;
-    my %tokens = %{ $self->get_tokens };    # copy
+	my %tokens = %{$self->get_tokens}; # copy
+	
+	$self->{username} = '';
+	$self->{password} = '';
+	$self->{access_token} = '';
 
-    $self->{username}     = '';
+	$self->{api_key} = {};
-    $self->{password}     = '';
+	$self->{api_key_prefix} = {};
-    $self->{access_token} = '';
+	$self->{api_key_in} = {};
-
+	
-    $self->{api_key}        = {};
+	return \%tokens;
-    $self->{api_key_prefix} = {};
-    $self->{api_key_in}     = {};
-
-    return \%tokens;
 }
 
 sub accept_tokens {
-    my ( $self, $tokens ) = @_;
+	my ($self, $tokens) = @_;
-
+	
-    foreach my $known_name (qw(username password access_token)) {
+	foreach my $known_name (qw(username password access_token)) {
-        next unless $tokens->{$known_name};
+		next unless $tokens->{$known_name};
-        $self->{$known_name} = delete $tokens->{$known_name};
+		$self->{$known_name} = delete $tokens->{$known_name};
-    }
+	}
-
+	
-    foreach my $token_name ( keys %$tokens ) {
+	foreach my $token_name (keys %$tokens) {
-        $self->{api_key}{$token_name} = $tokens->{$token_name}{token};
+		$self->{api_key}{$token_name} = $tokens->{$token_name}{token};
-        if ( $tokens->{$token_name}{prefix} ) {
+		if ($tokens->{$token_name}{prefix}) {
-            $self->{api_key_prefix}{$token_name} =
+			$self->{api_key_prefix}{$token_name} = $tokens->{$token_name}{prefix};
-              $tokens->{$token_name}{prefix};
+		}
-        }
+		my $in = $tokens->{$token_name}->{in} || 'head';
-        my $in = $tokens->{$token_name}->{in} || 'head';
+		croak "Tokens can only go in 'head' or 'query' (not in '$in')" unless $in =~ /^(?:head|query)$/;
-        croak "Tokens can only go in 'head' or 'query' (not in '$in')"
+		$self->{api_key_in}{$token_name} = $in;
-          unless $in =~ /^(?:head|query)$/;
+	}
-        $self->{api_key_in}{$token_name} = $in;
+}	
-    }
-}
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/DefaultApi.pm

@@ -0,0 +1,100 @@
+=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: \" \\
+
+OpenAPI spec version: 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::DefaultApi;
+
+require 5.6.0;
+use strict;
+use warnings;
+use utf8; 
+use Exporter;
+use Carp qw( croak );
+use Log::Any qw($log);
+
+use WWW::OpenAPIClient::ApiClient;
+
+use base "Class::Data::Inheritable";
+
+__PACKAGE__->mk_classdata('method_documentation' => {});
+
+sub new {
+    my $class = shift;
+    my $api_client;
+
+    if ($_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
+        $api_client = $_[0];
+    } else {
+        $api_client = WWW::OpenAPIClient::ApiClient->new(@_);
+    }
+
+    bless { api_client => $api_client }, $class;
+
+}
+
+
+#
+# foo_get
+#
+# 
+# 
+{
+    my $params = {
+    };
+    __PACKAGE__->method_documentation->{ 'foo_get' } = { 
+    	summary => '',
+        params => $params,
+        returns => 'InlineResponseDefault',
+        };
+}
+# @return InlineResponseDefault
+#
+sub foo_get {
+    my ($self, %args) = @_;
+
+    # parse inputs
+    my $_resource_path = '/foo';
+
+    my $_method = 'GET';
+    my $query_params = {};
+    my $header_params = {};
+    my $form_params = {};
+
+    # 'Accept' and 'Content-Type' header
+    my $_header_accept = $self->{api_client}->select_header_accept('application/json');
+    if ($_header_accept) {
+        $header_params->{'Accept'} = $_header_accept;
+    }
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
+
+    my $_body_data;
+    # authentication setting, if any
+    my $auth_settings = [qw()];
+
+    # make the API Call
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
+                                           $query_params, $form_params,
+                                           $header_params, $_body_data, $auth_settings);
+    if (!$response) {
+        return;
+    }
+    my $_response_object = $self->{api_client}->deserialize('InlineResponseDefault', $response);
+    return $_response_object;
+}
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/FakeClassnameTags123Api.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -23,7 +22,7 @@ package WWW::OpenAPIClient::FakeClassnameTags123Api;
 require 5.6.0;
 use strict;
 use warnings;
-use utf8;
+use utf8; 
 use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
@@ -32,16 +31,15 @@ use WWW::OpenAPIClient::ApiClient;
 
 use base "Class::Data::Inheritable";
 
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {});
 
 sub new {
     my $class = shift;
     my $api_client;
 
-    if ( $_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
+    if ($_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
         $api_client = $_[0];
-    }
+    } else {
-    else {
         $api_client = WWW::OpenAPIClient::ApiClient->new(@_);
     }
 
@@ -49,60 +47,55 @@ sub new {
 
 }
 
+
 #
 # test_classname
 #
 # To test class name in snake case
-#
+# 
 # @param Client $client client model (required)
 {
     my $params = {
-        'client' => {
+    'client' => {
-            data_type   => 'Client',
+        data_type => 'Client',
-            description => 'client model',
+        description => 'client model',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'test_classname'} = {
+    __PACKAGE__->method_documentation->{ 'test_classname' } = { 
-        summary => 'To test class name in snake case',
+    	summary => 'To test class name in snake case',
-        params  => $params,
+        params => $params,
         returns => 'Client',
-    };
+        };
 }
-
 # @return Client
 #
 sub test_classname {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'client' is set
-    unless ( exists $args{'client'} ) {
+    unless (exists $args{'client'}) {
-        croak(
+      croak("Missing the required parameter 'client' when calling test_classname");
-"Missing the required parameter 'client' when calling test_classname"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/fake_classname_test';
 
-    my $_method       = 'PATCH';
+    my $_method = 'PATCH';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
-    my $_header_accept =
+    my $_header_accept = $self->{api_client}->select_header_accept('application/json');
-      $self->{api_client}->select_header_accept('application/json');
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
-      $self->{api_client}->select_header_content_type('application/json');
 
     my $_body_data;
-
     # body params
-    if ( exists $args{'client'} ) {
+    if ( exists $args{'client'}) {
         $_body_data = $args{'client'};
     }
 
@@ -110,15 +103,13 @@ sub test_classname {
     my $auth_settings = [qw(api_key_query )];
 
     # make the API Call
-    my $response = $self->{api_client}->call_api(
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
-        $_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) {
-    if ( !$response ) {
         return;
     }
-    my $_response_object =
+    my $_response_object = $self->{api_client}->deserialize('Client', $response);
-      $self->{api_client}->deserialize( 'Client', $response );
     return $_response_object;
 }
 

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

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'AdditionalPropertiesClass',
-        required    => [],                            # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'map_property' => {
-            datatype    => 'HASH[string,string]',
-            base_name   => 'map_property',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'map_of_map_property' => {
-            datatype    => 'HASH[string,HASH[string,string]]',
-            base_name   => 'map_of_map_property',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'AdditionalPropertiesClass',
-        'map_property'        => 'HASH[string,string]',
+                                  required => [], # TODO
-        'map_of_map_property' => 'HASH[string,HASH[string,string]]'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'map_property' => {
-        'map_property'        => 'map_property',
+    	datatype => 'HASH[string,string]',
-        'map_of_map_property' => 'map_of_map_property'
+    	base_name => 'map_property',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'map_of_map_property' => {
+    	datatype => 'HASH[string,HASH[string,string]]',
+    	base_name => 'map_of_map_property',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'map_property' => 'HASH[string,string]',
+    'map_of_map_property' => 'HASH[string,HASH[string,string]]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'map_property' => 'map_property',
+    'map_of_map_property' => 'map_of_map_property'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Adult.pm

@@ -0,0 +1,231 @@
+=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: \" \\
+
+OpenAPI spec version: 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::Adult;
+
+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 WWW::OpenAPIClient::Object::Child;
+use WWW::OpenAPIClient::Object::Human;
+use WWW::OpenAPIClient::Object::Person;
+
+use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Person", "WWW::OpenAPIClient::Object::Human");
+
+#
+#A representation of an adult
+#
+# 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: \" \\
+
+OpenAPI spec version: 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 } );
+	}
+
+	# initialize parent object Person
+    $self->WWW::OpenAPIClient::Object::Person::init(%args);
+
+	# initialize parent object Human
+    $self->WWW::OpenAPIClient::Object::Human::init(%args);
+}
+
+# return perl hash
+sub to_hash {
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+	# call Person to_hash and then combine hash
+    $_hash = { %$_hash, %$self->WWW::OpenAPIClient::Object::Person::to_hash };
+
+	# call Human to_hash and then combine hash
+    $_hash = { %$_hash, %$self->WWW::OpenAPIClient::Object::Human::to_hash };
+
+    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};
+        }
+    }
+
+    # combine parent (Person) TO_JSON
+    $_data = { %$_data, %$self->WWW::OpenAPIClient::Object::Person::TO_JSON };
+
+    # combine parent (Human) TO_JSON
+    $_data = { %$_data, %$self->WWW::OpenAPIClient::Object::Human::TO_JSON };
+
+    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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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);
+        }
+    }
+
+    # call parent (Person) from_hash
+    $self->WWW::OpenAPIClient::Object::Person::from_hash($hash);
+
+    # call parent (Human) from_hash
+    $self->WWW::OpenAPIClient::Object::Human::from_hash($hash);
+  
+    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 => 'A representation of an adult',
+                                  class => 'Adult',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'duplicated_optional' => {
+    	datatype => 'int',
+    	base_name => 'duplicated_optional',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'duplicated_required' => {
+    	datatype => 'int',
+    	base_name => 'duplicated_required',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'children' => {
+    	datatype => 'ARRAY[Child]',
+    	base_name => 'children',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'adult_required' => {
+    	datatype => 'boolean',
+    	base_name => 'adult_required',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'duplicated_optional' => 'int',
+    'duplicated_required' => 'int',
+    'children' => 'ARRAY[Child]',
+    'adult_required' => 'boolean'
+} );
+
+__PACKAGE__->attribute_map( {
+    'duplicated_optional' => 'duplicated_optional',
+    'duplicated_required' => 'duplicated_required',
+    'children' => 'children',
+    'adult_required' => 'adult_required'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Animal.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Animal',
-        required    => [],         # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'class_name' => {
-            datatype    => 'string',
-            base_name   => 'className',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'color' => {
-            datatype    => 'string',
-            base_name   => 'color',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Animal',
-        'class_name' => 'string',
+                                  required => [], # TODO
-        'color'      => 'string'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'class_name' => {
-        'class_name' => 'className',
+    	datatype => 'string',
-        'color'      => 'color'
+    	base_name => 'className',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'color' => {
+    	datatype => 'string',
+    	base_name => 'color',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'class_name' => 'string',
+    'color' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'class_name' => 'className',
+    'color' => 'color'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/ApiResponse.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,138 +59,137 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'ApiResponse',
-        required    => [],              # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'code' => {
-            datatype    => 'int',
-            base_name   => 'code',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'type' => {
-            datatype    => 'string',
-            base_name   => 'type',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'message' => {
-            datatype    => 'string',
-            base_name   => 'message',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'ApiResponse',
-        'code'    => 'int',
+                                  required => [], # TODO
-        'type'    => 'string',
+}                                 );
-        'message' => 'string'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'code' => {
-        'code'    => 'code',
+    	datatype => 'int',
-        'type'    => 'type',
+    	base_name => 'code',
-        'message' => 'message'
+    	description => '',
-    }
+    	format => '',
-);
+    	read_only => '',
+    		},
+    'type' => {
+    	datatype => 'string',
+    	base_name => 'type',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'message' => {
+    	datatype => 'string',
+    	base_name => 'message',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'code' => 'int',
+    'type' => 'string',
+    'message' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'code' => 'code',
+    'type' => 'type',
+    'message' => 'message'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/ArrayOfArrayOfNumberOnly.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'ArrayOfArrayOfNumberOnly',
-        required    => [],                           # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'array_array_number' => {
-            datatype    => 'ARRAY[ARRAY[double]]',
-            base_name   => 'ArrayArrayNumber',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'ArrayOfArrayOfNumberOnly',
-        'array_array_number' => 'ARRAY[ARRAY[double]]'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'array_array_number' => {
-        'array_array_number' => 'ArrayArrayNumber'
+    	datatype => 'ARRAY[ARRAY[double]]',
-    }
+    	base_name => 'ArrayArrayNumber',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'array_array_number' => 'ARRAY[ARRAY[double]]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'array_array_number' => 'ArrayArrayNumber'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/ArrayOfNumberOnly.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'ArrayOfNumberOnly',
-        required    => [],                    # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'array_number' => {
-            datatype    => 'ARRAY[double]',
-            base_name   => 'ArrayNumber',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'ArrayOfNumberOnly',
-        'array_number' => 'ARRAY[double]'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'array_number' => {
-        'array_number' => 'ArrayNumber'
+    	datatype => 'ARRAY[double]',
-    }
+    	base_name => 'ArrayNumber',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'array_number' => 'ARRAY[double]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'array_number' => 'ArrayNumber'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/ArrayTest.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -33,7 +32,7 @@ use DateTime;
 
 use WWW::OpenAPIClient::Object::ReadOnlyFirst;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -61,138 +60,137 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'ArrayTest',
-        required    => [],            # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'array_of_string' => {
-            datatype    => 'ARRAY[string]',
-            base_name   => 'array_of_string',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'array_array_of_integer' => {
-            datatype    => 'ARRAY[ARRAY[int]]',
-            base_name   => 'array_array_of_integer',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'array_array_of_model' => {
-            datatype    => 'ARRAY[ARRAY[ReadOnlyFirst]]',
-            base_name   => 'array_array_of_model',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'ArrayTest',
-        'array_of_string'        => 'ARRAY[string]',
+                                  required => [], # TODO
-        'array_array_of_integer' => 'ARRAY[ARRAY[int]]',
+}                                 );
-        'array_array_of_model'   => 'ARRAY[ARRAY[ReadOnlyFirst]]'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'array_of_string' => {
-        'array_of_string'        => 'array_of_string',
+    	datatype => 'ARRAY[string]',
-        'array_array_of_integer' => 'array_array_of_integer',
+    	base_name => 'array_of_string',
-        'array_array_of_model'   => 'array_array_of_model'
+    	description => '',
-    }
+    	format => '',
-);
+    	read_only => '',
+    		},
+    'array_array_of_integer' => {
+    	datatype => 'ARRAY[ARRAY[int]]',
+    	base_name => 'array_array_of_integer',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'array_array_of_model' => {
+    	datatype => 'ARRAY[ARRAY[ReadOnlyFirst]]',
+    	base_name => 'array_array_of_model',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'array_of_string' => 'ARRAY[string]',
+    'array_array_of_integer' => 'ARRAY[ARRAY[int]]',
+    'array_array_of_model' => 'ARRAY[ARRAY[ReadOnlyFirst]]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'array_of_string' => 'array_of_string',
+    'array_array_of_integer' => 'array_array_of_integer',
+    'array_array_of_model' => 'array_array_of_model'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Capitalization.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,165 +59,164 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Capitalization',
-        required    => [],                 # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'small_camel' => {
-            datatype    => 'string',
-            base_name   => 'smallCamel',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'capital_camel' => {
-            datatype    => 'string',
-            base_name   => 'CapitalCamel',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'small_snake' => {
-            datatype    => 'string',
-            base_name   => 'small_Snake',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'capital_snake' => {
-            datatype    => 'string',
-            base_name   => 'Capital_Snake',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'sca_eth_flow_points' => {
-            datatype    => 'string',
-            base_name   => 'SCA_ETH_Flow_Points',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'att_name' => {
-            datatype    => 'string',
-            base_name   => 'ATT_NAME',
-            description => 'Name of the pet ',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Capitalization',
-        'small_camel'         => 'string',
+                                  required => [], # TODO
-        'capital_camel'       => 'string',
+}                                 );
-        'small_snake'         => 'string',
-        'capital_snake'       => 'string',
-        'sca_eth_flow_points' => 'string',
-        'att_name'            => 'string'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'small_camel' => {
-        'small_camel'         => 'smallCamel',
+    	datatype => 'string',
-        'capital_camel'       => 'CapitalCamel',
+    	base_name => 'smallCamel',
-        'small_snake'         => 'small_Snake',
+    	description => '',
-        'capital_snake'       => 'Capital_Snake',
+    	format => '',
-        'sca_eth_flow_points' => 'SCA_ETH_Flow_Points',
+    	read_only => '',
-        'att_name'            => 'ATT_NAME'
+    		},
-    }
+    'capital_camel' => {
-);
+    	datatype => 'string',
+    	base_name => 'CapitalCamel',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'small_snake' => {
+    	datatype => 'string',
+    	base_name => 'small_Snake',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'capital_snake' => {
+    	datatype => 'string',
+    	base_name => 'Capital_Snake',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'sca_eth_flow_points' => {
+    	datatype => 'string',
+    	base_name => 'SCA_ETH_Flow_Points',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'att_name' => {
+    	datatype => 'string',
+    	base_name => 'ATT_NAME',
+    	description => 'Name of the pet ',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'small_camel' => 'string',
+    'capital_camel' => 'string',
+    'small_snake' => 'string',
+    'capital_snake' => 'string',
+    'sca_eth_flow_points' => 'string',
+    'att_name' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'small_camel' => 'smallCamel',
+    'capital_camel' => 'CapitalCamel',
+    'small_snake' => 'small_Snake',
+    'capital_snake' => 'Capital_Snake',
+    'sca_eth_flow_points' => 'SCA_ETH_Flow_Points',
+    'att_name' => 'ATT_NAME'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

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

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -33,7 +32,7 @@ use DateTime;
 
 use WWW::OpenAPIClient::Object::Animal;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Animal");
 
 #
 #
@@ -61,138 +60,131 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 } );
+	}
+
+	# initialize parent object Animal
+    $self->WWW::OpenAPIClient::Object::Animal::init(%args);
 }
 
 # return perl hash
 sub to_hash {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+	# call Animal to_hash and then combine hash
+    $_hash = { %$_hash, %$self->WWW::OpenAPIClient::Object::Animal::to_hash };
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
+    # combine parent (Animal) TO_JSON
+    $_data = { %$_data, %$self->WWW::OpenAPIClient::Object::Animal::TO_JSON };
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $self->_deserialize( $_type, $hash->{$_json_attribute} );
-        }
-        else {
-            $log->debugf( "Warning: %s (%s) does not exist in input hash\n",
-                $_key, $_json_attribute );
         }
     }
 
+    # call parent (Animal) from_hash
+    $self->WWW::OpenAPIClient::Object::Animal::from_hash($hash);
+  
     return $self;
 }
 
 # deserialize non-array data
 sub _deserialize {
-    my ( $self, $type, $data ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Cat',
-        required    => [],      # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'class_name' => {
-            datatype    => 'string',
-            base_name   => 'className',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'color' => {
-            datatype    => 'string',
-            base_name   => 'color',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'declawed' => {
-            datatype    => 'boolean',
-            base_name   => 'declawed',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Cat',
-        'class_name' => 'string',
+                                  required => [], # TODO
-        'color'      => 'string',
+}                                 );
-        'declawed'   => 'boolean'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'declawed' => {
-        'class_name' => 'className',
+    	datatype => 'boolean',
-        'color'      => 'color',
+    	base_name => 'declawed',
-        'declawed'   => 'declawed'
+    	description => '',
-    }
+    	format => '',
-);
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'declawed' => 'boolean'
+} );
+
+__PACKAGE__->attribute_map( {
+    'declawed' => 'declawed'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Category.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Category',
-        required    => [],           # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'id' => {
-            datatype    => 'int',
-            base_name   => 'id',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'name' => {
-            datatype    => 'string',
-            base_name   => 'name',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Category',
-        'id'   => 'int',
+                                  required => [], # TODO
-        'name' => 'string'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'id' => {
-        'id'   => 'id',
+    	datatype => 'int',
-        'name' => 'name'
+    	base_name => 'id',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'name' => {
+    	datatype => 'string',
+    	base_name => 'name',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'id' => 'int',
+    'name' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'id' => 'id',
+    'name' => 'name'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Child.pm

@@ -0,0 +1,199 @@
+=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: \" \\
+
+OpenAPI spec version: 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::Child;
+
+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 WWW::OpenAPIClient::Object::Person;
+
+use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Person");
+
+#
+#A representation of a child
+#
+# 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: \" \\
+
+OpenAPI spec version: 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 } );
+	}
+
+	# initialize parent object Person
+    $self->WWW::OpenAPIClient::Object::Person::init(%args);
+}
+
+# return perl hash
+sub to_hash {
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+	# call Person to_hash and then combine hash
+    $_hash = { %$_hash, %$self->WWW::OpenAPIClient::Object::Person::to_hash };
+
+    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};
+        }
+    }
+
+    # combine parent (Person) TO_JSON
+    $_data = { %$_data, %$self->WWW::OpenAPIClient::Object::Person::TO_JSON };
+
+    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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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);
+        }
+    }
+
+    # call parent (Person) from_hash
+    $self->WWW::OpenAPIClient::Object::Person::from_hash($hash);
+  
+    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 => 'A representation of a child',
+                                  class => 'Child',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'age' => {
+    	datatype => 'int',
+    	base_name => 'age',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'first_name' => {
+    	datatype => 'string',
+    	base_name => 'firstName',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'age' => 'int',
+    'first_name' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'age' => 'age',
+    'first_name' => 'firstName'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/ClassModel.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #Model for testing model with \"_class\" property
@@ -59,121 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description =>
-          'Model for testing model with \"_class\" property',
-        class    => 'ClassModel',
-        required => [],             # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        '_class' => {
-            datatype    => 'string',
-            base_name   => '_class',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => 'Model for testing model with \"_class\" property',
-    {
+                                  class => 'ClassModel',
-        '_class' => 'string'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    '_class' => {
-        '_class' => '_class'
+    	datatype => 'string',
-    }
+    	base_name => '_class',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    '_class' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    '_class' => '_class'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Client.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Client',
-        required    => [],         # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'client' => {
-            datatype    => 'string',
-            base_name   => 'client',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Client',
-        'client' => 'string'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'client' => {
-        'client' => 'client'
+    	datatype => 'string',
-    }
+    	base_name => 'client',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'client' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'client' => 'client'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

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

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -33,7 +32,7 @@ use DateTime;
 
 use WWW::OpenAPIClient::Object::Animal;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable", "WWW::OpenAPIClient::Object::Animal");
 
 #
 #
@@ -61,138 +60,131 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 } );
+	}
+
+	# initialize parent object Animal
+    $self->WWW::OpenAPIClient::Object::Animal::init(%args);
 }
 
 # return perl hash
 sub to_hash {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+	# call Animal to_hash and then combine hash
+    $_hash = { %$_hash, %$self->WWW::OpenAPIClient::Object::Animal::to_hash };
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
+    # combine parent (Animal) TO_JSON
+    $_data = { %$_data, %$self->WWW::OpenAPIClient::Object::Animal::TO_JSON };
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $self->_deserialize( $_type, $hash->{$_json_attribute} );
-        }
-        else {
-            $log->debugf( "Warning: %s (%s) does not exist in input hash\n",
-                $_key, $_json_attribute );
         }
     }
 
+    # call parent (Animal) from_hash
+    $self->WWW::OpenAPIClient::Object::Animal::from_hash($hash);
+  
     return $self;
 }
 
 # deserialize non-array data
 sub _deserialize {
-    my ( $self, $type, $data ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Dog',
-        required    => [],      # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'class_name' => {
-            datatype    => 'string',
-            base_name   => 'className',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'color' => {
-            datatype    => 'string',
-            base_name   => 'color',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'breed' => {
-            datatype    => 'string',
-            base_name   => 'breed',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Dog',
-        'class_name' => 'string',
+                                  required => [], # TODO
-        'color'      => 'string',
+}                                 );
-        'breed'      => 'string'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'breed' => {
-        'class_name' => 'className',
+    	datatype => 'string',
-        'color'      => 'color',
+    	base_name => 'breed',
-        'breed'      => 'breed'
+    	description => '',
-    }
+    	format => '',
-);
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'breed' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'breed' => 'breed'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/EnumArrays.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'EnumArrays',
-        required    => [],             # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'just_symbol' => {
-            datatype    => 'string',
-            base_name   => 'just_symbol',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'array_enum' => {
-            datatype    => 'ARRAY[string]',
-            base_name   => 'array_enum',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'EnumArrays',
-        'just_symbol' => 'string',
+                                  required => [], # TODO
-        'array_enum'  => 'ARRAY[string]'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'just_symbol' => {
-        'just_symbol' => 'just_symbol',
+    	datatype => 'string',
-        'array_enum'  => 'array_enum'
+    	base_name => 'just_symbol',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'array_enum' => {
+    	datatype => 'ARRAY[string]',
+    	base_name => 'array_enum',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'just_symbol' => 'string',
+    'array_enum' => 'ARRAY[string]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'just_symbol' => 'just_symbol',
+    'array_enum' => 'array_enum'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/EnumClass.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,110 +59,112 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'EnumClass',
-        required    => [],            # TODO
-    }
-);
 
-__PACKAGE__->method_documentation( {} );
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'EnumClass',
+                                  required => [], # TODO
+}                                 );
 
-    }
+__PACKAGE__->method_documentation({
-);
+});
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->openapi_types( {
-    {
+    
+} );
 
-    }
+__PACKAGE__->attribute_map( {
-);
+    
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

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

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -33,7 +32,7 @@ use DateTime;
 
 use WWW::OpenAPIClient::Object::OuterEnum;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -61,156 +60,155 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'EnumTest',
-        required    => [],           # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'enum_string' => {
-            datatype    => 'string',
-            base_name   => 'enum_string',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'enum_string_required' => {
-            datatype    => 'string',
-            base_name   => 'enum_string_required',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'enum_integer' => {
-            datatype    => 'int',
-            base_name   => 'enum_integer',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'enum_number' => {
-            datatype    => 'double',
-            base_name   => 'enum_number',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'outer_enum' => {
-            datatype    => 'OuterEnum',
-            base_name   => 'outerEnum',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'EnumTest',
-        'enum_string'          => 'string',
+                                  required => [], # TODO
-        'enum_string_required' => 'string',
+}                                 );
-        'enum_integer'         => 'int',
-        'enum_number'          => 'double',
-        'outer_enum'           => 'OuterEnum'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'enum_string' => {
-        'enum_string'          => 'enum_string',
+    	datatype => 'string',
-        'enum_string_required' => 'enum_string_required',
+    	base_name => 'enum_string',
-        'enum_integer'         => 'enum_integer',
+    	description => '',
-        'enum_number'          => 'enum_number',
+    	format => '',
-        'outer_enum'           => 'outerEnum'
+    	read_only => '',
-    }
+    		},
-);
+    'enum_string_required' => {
+    	datatype => 'string',
+    	base_name => 'enum_string_required',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'enum_integer' => {
+    	datatype => 'int',
+    	base_name => 'enum_integer',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'enum_number' => {
+    	datatype => 'double',
+    	base_name => 'enum_number',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'outer_enum' => {
+    	datatype => 'OuterEnum',
+    	base_name => 'outerEnum',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'enum_string' => 'string',
+    'enum_string_required' => 'string',
+    'enum_integer' => 'int',
+    'enum_number' => 'double',
+    'outer_enum' => 'OuterEnum'
+} );
+
+__PACKAGE__->attribute_map( {
+    'enum_string' => 'enum_string',
+    'enum_string_required' => 'enum_string_required',
+    'enum_integer' => 'enum_integer',
+    'enum_number' => 'enum_number',
+    'outer_enum' => 'outerEnum'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

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

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #Must be named `File` for test.
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => 'Must be named `File` for test.',
-        class       => 'File',
-        required    => [],                                           # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'source_uri' => {
-            datatype    => 'string',
-            base_name   => 'sourceURI',
-            description => 'Test capitalization',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => 'Must be named `File` for test.',
-    {
+                                  class => 'File',
-        'source_uri' => 'string'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'source_uri' => {
-        'source_uri' => 'sourceURI'
+    	datatype => 'string',
-    }
+    	base_name => 'sourceURI',
-);
+    	description => 'Test capitalization',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'source_uri' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'source_uri' => 'sourceURI'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/FileSchemaTestClass.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -33,7 +32,7 @@ use DateTime;
 
 use WWW::OpenAPIClient::Object::File;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -61,129 +60,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'FileSchemaTestClass',
-        required    => [],                      # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'file' => {
-            datatype    => 'File',
-            base_name   => 'file',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'files' => {
-            datatype    => 'ARRAY[File]',
-            base_name   => 'files',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'FileSchemaTestClass',
-        'file'  => 'File',
+                                  required => [], # TODO
-        'files' => 'ARRAY[File]'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'file' => {
-        'file'  => 'file',
+    	datatype => 'File',
-        'files' => 'files'
+    	base_name => 'file',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'files' => {
+    	datatype => 'ARRAY[File]',
+    	base_name => 'files',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'file' => 'File',
+    'files' => 'ARRAY[File]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'file' => 'file',
+    'files' => 'files'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Foo.pm

@@ -0,0 +1,177 @@
+=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: \" \\
+
+OpenAPI spec version: 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::Foo;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'Foo',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'bar' => {
+    	datatype => 'string',
+    	base_name => 'bar',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'bar' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'bar' => 'bar'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

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

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,228 +59,227 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'FormatTest',
-        required    => [],             # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'integer' => {
-            datatype    => 'int',
-            base_name   => 'integer',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'int32' => {
-            datatype    => 'int',
-            base_name   => 'int32',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'int64' => {
-            datatype    => 'int',
-            base_name   => 'int64',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'number' => {
-            datatype    => 'double',
-            base_name   => 'number',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'float' => {
-            datatype    => 'double',
-            base_name   => 'float',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'double' => {
-            datatype    => 'double',
-            base_name   => 'double',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'string' => {
-            datatype    => 'string',
-            base_name   => 'string',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'byte' => {
-            datatype    => 'string',
-            base_name   => 'byte',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'binary' => {
-            datatype    => 'string',
-            base_name   => 'binary',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'date' => {
-            datatype    => 'DateTime',
-            base_name   => 'date',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'date_time' => {
-            datatype    => 'DateTime',
-            base_name   => 'dateTime',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'uuid' => {
-            datatype    => 'string',
-            base_name   => 'uuid',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'password' => {
-            datatype    => 'string',
-            base_name   => 'password',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'FormatTest',
-        'integer'   => 'int',
+                                  required => [], # TODO
-        'int32'     => 'int',
+}                                 );
-        'int64'     => 'int',
-        'number'    => 'double',
-        'float'     => 'double',
-        'double'    => 'double',
-        'string'    => 'string',
-        'byte'      => 'string',
-        'binary'    => 'string',
-        'date'      => 'DateTime',
-        'date_time' => 'DateTime',
-        'uuid'      => 'string',
-        'password'  => 'string'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'integer' => {
-        'integer'   => 'integer',
+    	datatype => 'int',
-        'int32'     => 'int32',
+    	base_name => 'integer',
-        'int64'     => 'int64',
+    	description => '',
-        'number'    => 'number',
+    	format => '',
-        'float'     => 'float',
+    	read_only => '',
-        'double'    => 'double',
+    		},
-        'string'    => 'string',
+    'int32' => {
-        'byte'      => 'byte',
+    	datatype => 'int',
-        'binary'    => 'binary',
+    	base_name => 'int32',
-        'date'      => 'date',
+    	description => '',
-        'date_time' => 'dateTime',
+    	format => '',
-        'uuid'      => 'uuid',
+    	read_only => '',
-        'password'  => 'password'
+    		},
-    }
+    'int64' => {
-);
+    	datatype => 'int',
+    	base_name => 'int64',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'number' => {
+    	datatype => 'double',
+    	base_name => 'number',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'float' => {
+    	datatype => 'double',
+    	base_name => 'float',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'double' => {
+    	datatype => 'double',
+    	base_name => 'double',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'string' => {
+    	datatype => 'string',
+    	base_name => 'string',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'byte' => {
+    	datatype => 'string',
+    	base_name => 'byte',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'binary' => {
+    	datatype => 'string',
+    	base_name => 'binary',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'date' => {
+    	datatype => 'DateTime',
+    	base_name => 'date',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'date_time' => {
+    	datatype => 'DateTime',
+    	base_name => 'dateTime',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'uuid' => {
+    	datatype => 'string',
+    	base_name => 'uuid',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'password' => {
+    	datatype => 'string',
+    	base_name => 'password',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'integer' => 'int',
+    'int32' => 'int',
+    'int64' => 'int',
+    'number' => 'double',
+    'float' => 'double',
+    'double' => 'double',
+    'string' => 'string',
+    'byte' => 'string',
+    'binary' => 'string',
+    'date' => 'DateTime',
+    'date_time' => 'DateTime',
+    'uuid' => 'string',
+    'password' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'integer' => 'integer',
+    'int32' => 'int32',
+    'int64' => 'int64',
+    'number' => 'number',
+    'float' => 'float',
+    'double' => 'double',
+    'string' => 'string',
+    'byte' => 'byte',
+    'binary' => 'binary',
+    'date' => 'date',
+    'date_time' => 'dateTime',
+    'uuid' => 'uuid',
+    'password' => 'password'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/HasOnlyReadOnly.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'HasOnlyReadOnly',
-        required    => [],                  # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'bar' => {
-            datatype    => 'string',
-            base_name   => 'bar',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'foo' => {
-            datatype    => 'string',
-            base_name   => 'foo',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'HasOnlyReadOnly',
-        'bar' => 'string',
+                                  required => [], # TODO
-        'foo' => 'string'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'bar' => {
-        'bar' => 'bar',
+    	datatype => 'string',
-        'foo' => 'foo'
+    	base_name => 'bar',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'foo' => {
+    	datatype => 'string',
+    	base_name => 'foo',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'bar' => 'string',
+    'foo' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'bar' => 'bar',
+    'foo' => 'foo'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Human.pm

@@ -0,0 +1,186 @@
+=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: \" \\
+
+OpenAPI spec version: 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::Human;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'Human',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    '___type' => {
+    	datatype => 'string',
+    	base_name => '$_type',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'body' => {
+    	datatype => 'string',
+    	base_name => 'body',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    '___type' => 'string',
+    'body' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    '___type' => '$_type',
+    'body' => 'body'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/InlineObject.pm

@@ -0,0 +1,186 @@
+=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: \" \\
+
+OpenAPI spec version: 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::InlineObject;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'InlineObject',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'name' => {
+    	datatype => 'string',
+    	base_name => 'name',
+    	description => 'Updated name of the pet',
+    	format => '',
+    	read_only => '',
+    		},
+    'status' => {
+    	datatype => 'string',
+    	base_name => 'status',
+    	description => 'Updated status of the pet',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'name' => 'string',
+    'status' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'name' => 'name',
+    'status' => 'status'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/InlineObject1.pm

@@ -0,0 +1,186 @@
+=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: \" \\
+
+OpenAPI spec version: 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::InlineObject1;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'InlineObject1',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'additional_metadata' => {
+    	datatype => 'string',
+    	base_name => 'additionalMetadata',
+    	description => 'Additional data to pass to server',
+    	format => '',
+    	read_only => '',
+    		},
+    'file' => {
+    	datatype => 'string',
+    	base_name => 'file',
+    	description => 'file to upload',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'additional_metadata' => 'string',
+    'file' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'additional_metadata' => 'additionalMetadata',
+    'file' => 'file'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/InlineObject2.pm

@@ -0,0 +1,186 @@
+=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: \" \\
+
+OpenAPI spec version: 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::InlineObject2;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'InlineObject2',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'enum_form_string_array' => {
+    	datatype => 'ARRAY[string]',
+    	base_name => 'enum_form_string_array',
+    	description => 'Form parameter enum test (string array)',
+    	format => '',
+    	read_only => '',
+    		},
+    'enum_form_string' => {
+    	datatype => 'string',
+    	base_name => 'enum_form_string',
+    	description => 'Form parameter enum test (string)',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'enum_form_string_array' => 'ARRAY[string]',
+    'enum_form_string' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'enum_form_string_array' => 'enum_form_string_array',
+    'enum_form_string' => 'enum_form_string'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/InlineObject3.pm

@@ -0,0 +1,294 @@
+=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: \" \\
+
+OpenAPI spec version: 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::InlineObject3;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'InlineObject3',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'integer' => {
+    	datatype => 'int',
+    	base_name => 'integer',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'int32' => {
+    	datatype => 'int',
+    	base_name => 'int32',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'int64' => {
+    	datatype => 'int',
+    	base_name => 'int64',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'number' => {
+    	datatype => 'double',
+    	base_name => 'number',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'float' => {
+    	datatype => 'double',
+    	base_name => 'float',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'double' => {
+    	datatype => 'double',
+    	base_name => 'double',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'string' => {
+    	datatype => 'string',
+    	base_name => 'string',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'pattern_without_delimiter' => {
+    	datatype => 'string',
+    	base_name => 'pattern_without_delimiter',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'byte' => {
+    	datatype => 'string',
+    	base_name => 'byte',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'binary' => {
+    	datatype => 'string',
+    	base_name => 'binary',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'date' => {
+    	datatype => 'DateTime',
+    	base_name => 'date',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'date_time' => {
+    	datatype => 'DateTime',
+    	base_name => 'dateTime',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'password' => {
+    	datatype => 'string',
+    	base_name => 'password',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+    'callback' => {
+    	datatype => 'string',
+    	base_name => 'callback',
+    	description => 'None',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'integer' => 'int',
+    'int32' => 'int',
+    'int64' => 'int',
+    'number' => 'double',
+    'float' => 'double',
+    'double' => 'double',
+    'string' => 'string',
+    'pattern_without_delimiter' => 'string',
+    'byte' => 'string',
+    'binary' => 'string',
+    'date' => 'DateTime',
+    'date_time' => 'DateTime',
+    'password' => 'string',
+    'callback' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'integer' => 'integer',
+    'int32' => 'int32',
+    'int64' => 'int64',
+    'number' => 'number',
+    'float' => 'float',
+    'double' => 'double',
+    'string' => 'string',
+    'pattern_without_delimiter' => 'pattern_without_delimiter',
+    'byte' => 'byte',
+    'binary' => 'binary',
+    'date' => 'date',
+    'date_time' => 'dateTime',
+    'password' => 'password',
+    'callback' => 'callback'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/InlineObject4.pm

@@ -0,0 +1,186 @@
+=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: \" \\
+
+OpenAPI spec version: 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::InlineObject4;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'InlineObject4',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'param' => {
+    	datatype => 'string',
+    	base_name => 'param',
+    	description => 'field1',
+    	format => '',
+    	read_only => '',
+    		},
+    'param2' => {
+    	datatype => 'string',
+    	base_name => 'param2',
+    	description => 'field2',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'param' => 'string',
+    'param2' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'param' => 'param',
+    'param2' => 'param2'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/InlineObject5.pm

@@ -0,0 +1,186 @@
+=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: \" \\
+
+OpenAPI spec version: 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::InlineObject5;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'InlineObject5',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'additional_metadata' => {
+    	datatype => 'string',
+    	base_name => 'additionalMetadata',
+    	description => 'Additional data to pass to server',
+    	format => '',
+    	read_only => '',
+    		},
+    'required_file' => {
+    	datatype => 'string',
+    	base_name => 'requiredFile',
+    	description => 'file to upload',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'additional_metadata' => 'string',
+    'required_file' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'additional_metadata' => 'additionalMetadata',
+    'required_file' => 'requiredFile'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/InlineResponseDefault.pm

@@ -0,0 +1,178 @@
+=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: \" \\
+
+OpenAPI spec version: 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::InlineResponseDefault;
+
+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 WWW::OpenAPIClient::Object::Foo;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'InlineResponseDefault',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    'string' => {
+    	datatype => 'Foo',
+    	base_name => 'string',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'string' => 'Foo'
+} );
+
+__PACKAGE__->attribute_map( {
+    'string' => 'string'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/List.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'List',
-        required    => [],       # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        '_123_list' => {
-            datatype    => 'string',
-            base_name   => '123-list',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'List',
-        '_123_list' => 'string'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    '_123_list' => {
-        '_123_list' => '123-list'
+    	datatype => 'string',
-    }
+    	base_name => '123-list',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    '_123_list' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    '_123_list' => '123-list'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/MapTest.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,9 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use WWW::OpenAPIClient::Object::StringBooleanMap;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -61,147 +59,146 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'MapTest',
-        required    => [],          # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'map_map_of_string' => {
-            datatype    => 'HASH[string,HASH[string,string]]',
-            base_name   => 'map_map_of_string',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'map_of_enum_string' => {
-            datatype    => 'HASH[string,string]',
-            base_name   => 'map_of_enum_string',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'direct_map' => {
-            datatype    => 'HASH[string,boolean]',
-            base_name   => 'direct_map',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'indirect_map' => {
-            datatype    => 'StringBooleanMap',
-            base_name   => 'indirect_map',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'MapTest',
-        'map_map_of_string'  => 'HASH[string,HASH[string,string]]',
+                                  required => [], # TODO
-        'map_of_enum_string' => 'HASH[string,string]',
+}                                 );
-        'direct_map'         => 'HASH[string,boolean]',
-        'indirect_map'       => 'StringBooleanMap'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'map_map_of_string' => {
-        'map_map_of_string'  => 'map_map_of_string',
+    	datatype => 'HASH[string,HASH[string,string]]',
-        'map_of_enum_string' => 'map_of_enum_string',
+    	base_name => 'map_map_of_string',
-        'direct_map'         => 'direct_map',
+    	description => '',
-        'indirect_map'       => 'indirect_map'
+    	format => '',
-    }
+    	read_only => '',
-);
+    		},
+    'map_of_enum_string' => {
+    	datatype => 'HASH[string,string]',
+    	base_name => 'map_of_enum_string',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'direct_map' => {
+    	datatype => 'HASH[string,boolean]',
+    	base_name => 'direct_map',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'indirect_map' => {
+    	datatype => 'HASH[string,boolean]',
+    	base_name => 'indirect_map',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'map_map_of_string' => 'HASH[string,HASH[string,string]]',
+    'map_of_enum_string' => 'HASH[string,string]',
+    'direct_map' => 'HASH[string,boolean]',
+    'indirect_map' => 'HASH[string,boolean]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'map_map_of_string' => 'map_map_of_string',
+    'map_of_enum_string' => 'map_of_enum_string',
+    'direct_map' => 'direct_map',
+    'indirect_map' => 'indirect_map'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/MixedPropertiesAndAdditionalPropertiesClass.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -33,7 +32,7 @@ use DateTime;
 
 use WWW::OpenAPIClient::Object::Animal;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -61,138 +60,137 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'MixedPropertiesAndAdditionalPropertiesClass',
-        required    => [],                                              # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'uuid' => {
-            datatype    => 'string',
-            base_name   => 'uuid',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'date_time' => {
-            datatype    => 'DateTime',
-            base_name   => 'dateTime',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'map' => {
-            datatype    => 'HASH[string,Animal]',
-            base_name   => 'map',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'MixedPropertiesAndAdditionalPropertiesClass',
-        'uuid'      => 'string',
+                                  required => [], # TODO
-        'date_time' => 'DateTime',
+}                                 );
-        'map'       => 'HASH[string,Animal]'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'uuid' => {
-        'uuid'      => 'uuid',
+    	datatype => 'string',
-        'date_time' => 'dateTime',
+    	base_name => 'uuid',
-        'map'       => 'map'
+    	description => '',
-    }
+    	format => '',
-);
+    	read_only => '',
+    		},
+    'date_time' => {
+    	datatype => 'DateTime',
+    	base_name => 'dateTime',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'map' => {
+    	datatype => 'HASH[string,Animal]',
+    	base_name => 'map',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'uuid' => 'string',
+    'date_time' => 'DateTime',
+    'map' => 'HASH[string,Animal]'
+} );
+
+__PACKAGE__->attribute_map( {
+    'uuid' => 'uuid',
+    'date_time' => 'dateTime',
+    'map' => 'map'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Model200Response.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #Model for testing model name starting with number
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => 'Model for testing model name starting with number',
-        class       => 'Model200Response',
-        required => [],    # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'name' => {
-            datatype    => 'int',
-            base_name   => 'name',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'class' => {
-            datatype    => 'string',
-            base_name   => 'class',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => 'Model for testing model name starting with number',
-    {
+                                  class => 'Model200Response',
-        'name'  => 'int',
+                                  required => [], # TODO
-        'class' => 'string'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'name' => {
-        'name'  => 'name',
+    	datatype => 'int',
-        'class' => 'class'
+    	base_name => 'name',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'class' => {
+    	datatype => 'string',
+    	base_name => 'class',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'name' => 'int',
+    'class' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'name' => 'name',
+    'class' => 'class'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/ModelReturn.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #Model for testing reserved words
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => 'Model for testing reserved words',
-        class       => 'ModelReturn',
-        required    => [],                                   # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'return' => {
-            datatype    => 'int',
-            base_name   => 'return',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => 'Model for testing reserved words',
-    {
+                                  class => 'ModelReturn',
-        'return' => 'int'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'return' => {
-        'return' => 'return'
+    	datatype => 'int',
-    }
+    	base_name => 'return',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'return' => 'int'
+} );
+
+__PACKAGE__->attribute_map( {
+    'return' => 'return'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Name.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #Model for testing model name same as property name
@@ -59,147 +59,146 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => 'Model for testing model name same as property name',
-        class       => 'Name',
-        required => [],    # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'name' => {
-            datatype    => 'int',
-            base_name   => 'name',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'snake_case' => {
-            datatype    => 'int',
-            base_name   => 'snake_case',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'property' => {
-            datatype    => 'string',
-            base_name   => 'property',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        '_123_number' => {
-            datatype    => 'int',
-            base_name   => '123Number',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => 'Model for testing model name same as property name',
-    {
+                                  class => 'Name',
-        'name'        => 'int',
+                                  required => [], # TODO
-        'snake_case'  => 'int',
+}                                 );
-        'property'    => 'string',
-        '_123_number' => 'int'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'name' => {
-        'name'        => 'name',
+    	datatype => 'int',
-        'snake_case'  => 'snake_case',
+    	base_name => 'name',
-        'property'    => 'property',
+    	description => '',
-        '_123_number' => '123Number'
+    	format => '',
-    }
+    	read_only => '',
-);
+    		},
+    'snake_case' => {
+    	datatype => 'int',
+    	base_name => 'snake_case',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'property' => {
+    	datatype => 'string',
+    	base_name => 'property',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    '_123_number' => {
+    	datatype => 'int',
+    	base_name => '123Number',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'name' => 'int',
+    'snake_case' => 'int',
+    'property' => 'string',
+    '_123_number' => 'int'
+} );
+
+__PACKAGE__->attribute_map( {
+    'name' => 'name',
+    'snake_case' => 'snake_case',
+    'property' => 'property',
+    '_123_number' => '123Number'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/NumberOnly.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'NumberOnly',
-        required    => [],             # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'just_number' => {
-            datatype    => 'double',
-            base_name   => 'JustNumber',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'NumberOnly',
-        'just_number' => 'double'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'just_number' => {
-        'just_number' => 'JustNumber'
+    	datatype => 'double',
-    }
+    	base_name => 'JustNumber',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'just_number' => 'double'
+} );
+
+__PACKAGE__->attribute_map( {
+    'just_number' => 'JustNumber'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Order.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,165 +59,164 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Order',
-        required    => [],        # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'id' => {
-            datatype    => 'int',
-            base_name   => 'id',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'pet_id' => {
-            datatype    => 'int',
-            base_name   => 'petId',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'quantity' => {
-            datatype    => 'int',
-            base_name   => 'quantity',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'ship_date' => {
-            datatype    => 'DateTime',
-            base_name   => 'shipDate',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'status' => {
-            datatype    => 'string',
-            base_name   => 'status',
-            description => 'Order Status',
-            format      => '',
-            read_only   => '',
-        },
-        'complete' => {
-            datatype    => 'boolean',
-            base_name   => 'complete',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Order',
-        'id'        => 'int',
+                                  required => [], # TODO
-        'pet_id'    => 'int',
+}                                 );
-        'quantity'  => 'int',
-        'ship_date' => 'DateTime',
-        'status'    => 'string',
-        'complete'  => 'boolean'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'id' => {
-        'id'        => 'id',
+    	datatype => 'int',
-        'pet_id'    => 'petId',
+    	base_name => 'id',
-        'quantity'  => 'quantity',
+    	description => '',
-        'ship_date' => 'shipDate',
+    	format => '',
-        'status'    => 'status',
+    	read_only => '',
-        'complete'  => 'complete'
+    		},
-    }
+    'pet_id' => {
-);
+    	datatype => 'int',
+    	base_name => 'petId',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'quantity' => {
+    	datatype => 'int',
+    	base_name => 'quantity',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'ship_date' => {
+    	datatype => 'DateTime',
+    	base_name => 'shipDate',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'status' => {
+    	datatype => 'string',
+    	base_name => 'status',
+    	description => 'Order Status',
+    	format => '',
+    	read_only => '',
+    		},
+    'complete' => {
+    	datatype => 'boolean',
+    	base_name => 'complete',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'id' => 'int',
+    'pet_id' => 'int',
+    'quantity' => 'int',
+    'ship_date' => 'DateTime',
+    'status' => 'string',
+    'complete' => 'boolean'
+} );
+
+__PACKAGE__->attribute_map( {
+    'id' => 'id',
+    'pet_id' => 'petId',
+    'quantity' => 'quantity',
+    'ship_date' => 'shipDate',
+    'status' => 'status',
+    'complete' => 'complete'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/OuterComposite.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,138 +59,137 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'OuterComposite',
-        required    => [],                 # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'my_number' => {
-            datatype    => 'double',
-            base_name   => 'my_number',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'my_string' => {
-            datatype    => 'string',
-            base_name   => 'my_string',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'my_boolean' => {
-            datatype    => 'boolean',
-            base_name   => 'my_boolean',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'OuterComposite',
-        'my_number'  => 'double',
+                                  required => [], # TODO
-        'my_string'  => 'string',
+}                                 );
-        'my_boolean' => 'boolean'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'my_number' => {
-        'my_number'  => 'my_number',
+    	datatype => 'double',
-        'my_string'  => 'my_string',
+    	base_name => 'my_number',
-        'my_boolean' => 'my_boolean'
+    	description => '',
-    }
+    	format => '',
-);
+    	read_only => '',
+    		},
+    'my_string' => {
+    	datatype => 'string',
+    	base_name => 'my_string',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'my_boolean' => {
+    	datatype => 'boolean',
+    	base_name => 'my_boolean',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'my_number' => 'double',
+    'my_string' => 'string',
+    'my_boolean' => 'boolean'
+} );
+
+__PACKAGE__->attribute_map( {
+    'my_number' => 'my_number',
+    'my_string' => 'my_string',
+    'my_boolean' => 'my_boolean'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/OuterEnum.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,110 +59,112 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'OuterEnum',
-        required    => [],            # TODO
-    }
-);
 
-__PACKAGE__->method_documentation( {} );
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'OuterEnum',
+                                  required => [], # TODO
+}                                 );
 
-    }
+__PACKAGE__->method_documentation({
-);
+});
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->openapi_types( {
-    {
+    
+} );
 
-    }
+__PACKAGE__->attribute_map( {
-);
+    
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Person.pm

@@ -0,0 +1,222 @@
+=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: \" \\
+
+OpenAPI spec version: 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::Person;
+
+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: \" \\
+
+OpenAPI spec version: 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 = substr($_type, 6, -1);
+            my @_array = ();
+            foreach my $_element (@{$hash->{$_json_attribute}}) {
+                push @_array, $self->_deserialize($_subclass, $_element);
+            }
+            $self->{$_key} = \@_array;
+        } 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 => 'Person',
+                                  required => [], # TODO
+}                                 );
+
+__PACKAGE__->method_documentation({
+    '___type' => {
+    	datatype => 'string',
+    	base_name => '$_type',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'last_name' => {
+    	datatype => 'string',
+    	base_name => 'lastName',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'first_name' => {
+    	datatype => 'string',
+    	base_name => 'firstName',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'duplicated_optional' => {
+    	datatype => 'string',
+    	base_name => 'duplicated_optional',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'duplicated_required' => {
+    	datatype => 'string',
+    	base_name => 'duplicated_required',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'person_required' => {
+    	datatype => 'DateTime',
+    	base_name => 'person_required',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    '___type' => 'string',
+    'last_name' => 'string',
+    'first_name' => 'string',
+    'duplicated_optional' => 'string',
+    'duplicated_required' => 'string',
+    'person_required' => 'DateTime'
+} );
+
+__PACKAGE__->attribute_map( {
+    '___type' => '$_type',
+    'last_name' => 'lastName',
+    'first_name' => 'firstName',
+    'duplicated_optional' => 'duplicated_optional',
+    'duplicated_required' => 'duplicated_required',
+    'person_required' => 'person_required'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
+
+
+1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Pet.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -34,7 +33,7 @@ use DateTime;
 use WWW::OpenAPIClient::Object::Category;
 use WWW::OpenAPIClient::Object::Tag;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -62,165 +61,164 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Pet',
-        required    => [],      # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'id' => {
-            datatype    => 'int',
-            base_name   => 'id',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'category' => {
-            datatype    => 'Category',
-            base_name   => 'category',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'name' => {
-            datatype    => 'string',
-            base_name   => 'name',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'photo_urls' => {
-            datatype    => 'ARRAY[string]',
-            base_name   => 'photoUrls',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'tags' => {
-            datatype    => 'ARRAY[Tag]',
-            base_name   => 'tags',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'status' => {
-            datatype    => 'string',
-            base_name   => 'status',
-            description => 'pet status in the store',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Pet',
-        'id'         => 'int',
+                                  required => [], # TODO
-        'category'   => 'Category',
+}                                 );
-        'name'       => 'string',
-        'photo_urls' => 'ARRAY[string]',
-        'tags'       => 'ARRAY[Tag]',
-        'status'     => 'string'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'id' => {
-        'id'         => 'id',
+    	datatype => 'int',
-        'category'   => 'category',
+    	base_name => 'id',
-        'name'       => 'name',
+    	description => '',
-        'photo_urls' => 'photoUrls',
+    	format => '',
-        'tags'       => 'tags',
+    	read_only => '',
-        'status'     => 'status'
+    		},
-    }
+    'category' => {
-);
+    	datatype => 'Category',
+    	base_name => 'category',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'name' => {
+    	datatype => 'string',
+    	base_name => 'name',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'photo_urls' => {
+    	datatype => 'ARRAY[string]',
+    	base_name => 'photoUrls',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'tags' => {
+    	datatype => 'ARRAY[Tag]',
+    	base_name => 'tags',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'status' => {
+    	datatype => 'string',
+    	base_name => 'status',
+    	description => 'pet status in the store',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'id' => 'int',
+    'category' => 'Category',
+    'name' => 'string',
+    'photo_urls' => 'ARRAY[string]',
+    'tags' => 'ARRAY[Tag]',
+    'status' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'id' => 'id',
+    'category' => 'category',
+    'name' => 'name',
+    'photo_urls' => 'photoUrls',
+    'tags' => 'tags',
+    'status' => 'status'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/ReadOnlyFirst.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'ReadOnlyFirst',
-        required    => [],                # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'bar' => {
-            datatype    => 'string',
-            base_name   => 'bar',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'baz' => {
-            datatype    => 'string',
-            base_name   => 'baz',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'ReadOnlyFirst',
-        'bar' => 'string',
+                                  required => [], # TODO
-        'baz' => 'string'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'bar' => {
-        'bar' => 'bar',
+    	datatype => 'string',
-        'baz' => 'baz'
+    	base_name => 'bar',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'baz' => {
+    	datatype => 'string',
+    	base_name => 'baz',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'bar' => 'string',
+    'baz' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'bar' => 'bar',
+    'baz' => 'baz'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/SpecialModelName.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,120 +59,119 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'SpecialModelName',
-        required    => [],                   # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        '__special[property/name]' => {
-            datatype    => 'int',
-            base_name   => '$special[property.name]',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'SpecialModelName',
-        '__special[property/name]' => 'int'
+                                  required => [], # TODO
-    }
+}                                 );
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    '__special[property/name]' => {
-        '__special[property/name]' => '$special[property.name]'
+    	datatype => 'int',
-    }
+    	base_name => '$special[property.name]',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    '__special[property/name]' => 'int'
+} );
+
+__PACKAGE__->attribute_map( {
+    '__special[property/name]' => '$special[property.name]'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/Tag.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,129 +59,128 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'Tag',
-        required    => [],      # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'id' => {
-            datatype    => 'int',
-            base_name   => 'id',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'name' => {
-            datatype    => 'string',
-            base_name   => 'name',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'Tag',
-        'id'   => 'int',
+                                  required => [], # TODO
-        'name' => 'string'
+}                                 );
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'id' => {
-        'id'   => 'id',
+    	datatype => 'int',
-        'name' => 'name'
+    	base_name => 'id',
-    }
+    	description => '',
-);
+    	format => '',
+    	read_only => '',
+    		},
+    'name' => {
+    	datatype => 'string',
+    	base_name => 'name',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'id' => 'int',
+    'name' => 'string'
+} );
+
+__PACKAGE__->attribute_map( {
+    'id' => 'id',
+    'name' => 'name'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/User.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -31,7 +30,8 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use base ( "Class::Accessor", "Class::Data::Inheritable" );
+
+use base ("Class::Accessor", "Class::Data::Inheritable");
 
 #
 #
@@ -59,183 +59,182 @@ Generated by: https://openapi-generator.tech
 # Do not edit the class manually.
 # Ref: https://openapi-generator.tech
 #
-__PACKAGE__->mk_classdata( 'attribute_map'        => {} );
+__PACKAGE__->mk_classdata('attribute_map' => {});
-__PACKAGE__->mk_classdata( 'openapi_types'        => {} );
+__PACKAGE__->mk_classdata('openapi_types' => {});
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {}); 
-__PACKAGE__->mk_classdata( 'class_documentation'  => {} );
+__PACKAGE__->mk_classdata('class_documentation' => {});
 
-# new object
+# new plain object
-sub new {
+sub new { 
-    my ( $class, %args ) = @_;
+    my ($class, %args) = @_; 
 
-    my $self = bless {}, $class;
+	my $self = bless {}, $class;
 
-    foreach my $attribute ( keys %{ $class->attribute_map } ) {
+	$self->init(%args);
-        my $args_key = $class->attribute_map->{$attribute};
+	
-        $self->$attribute( $args{$args_key} );
+	return $self;
-    }
+}
 
-    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 {
-    return decode_json( JSON->new->convert_blessed->encode(shift) );
+    my $self = shift;
+    my $_hash = decode_json(JSON->new->convert_blessed->encode($self));
+
+    return $_hash;
 }
 
 # used by JSON for serialization
-sub TO_JSON {
+sub TO_JSON { 
-    my $self  = shift;
+    my $self = shift;
     my $_data = {};
-    foreach my $_key ( keys %{ $self->attribute_map } ) {
+    foreach my $_key (keys %{$self->attribute_map}) {
-        if ( defined $self->{$_key} ) {
+        if (defined $self->{$_key}) {
-            $_data->{ $self->attribute_map->{$_key} } = $self->{$_key};
+            $_data->{$self->attribute_map->{$_key}} = $self->{$_key};
         }
     }
+
     return $_data;
 }
 
 # from Perl hashref
 sub from_hash {
-    my ( $self, $hash ) = @_;
+    my ($self, $hash) = @_;
 
     # 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 = substr($_type, 6, -1);
             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;
-        }
+        } elsif (exists $hash->{$_json_attribute}) { #hash(model), primitive, datetime
-        elsif ( exists $hash->{$_json_attribute} )
+            $self->{$_key} = $self->_deserialize($_type, $hash->{$_json_attribute});
-        {                                 #hash(model), primitive, datetime
+        } else {
-            $self->{$_key} =
+        	$log->debugf("Warning: %s (%s) does not exist in input hash\n", $_key, $_json_attribute);
-              $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 ) = @_;
+    my ($self, $type, $data) = @_;
-    $log->debugf( "deserializing %s with %s", Dumper($data), $type );
+    $log->debugf("deserializing %s with %s",Dumper($data), $type);
-
+        
-    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$/, ('int', 'double', 'string', 'boolean'))) {
-    elsif ( grep( /^$type$/, ( 'int', 'double', 'string', 'boolean' ) ) ) {
         return $data;
-    }
+    } else { # hash(model)
-    else {    # hash(model)
         my $_instance = eval "WWW::OpenAPIClient::Object::$type->new()";
         return $_instance->from_hash($data);
     }
 }
 
-__PACKAGE__->class_documentation(
-    {
-        description => '',
-        class       => 'User',
-        required    => [],       # TODO
-    }
-);
 
-__PACKAGE__->method_documentation(
-    {
-        'id' => {
-            datatype    => 'int',
-            base_name   => 'id',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'username' => {
-            datatype    => 'string',
-            base_name   => 'username',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'first_name' => {
-            datatype    => 'string',
-            base_name   => 'firstName',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'last_name' => {
-            datatype    => 'string',
-            base_name   => 'lastName',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'email' => {
-            datatype    => 'string',
-            base_name   => 'email',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'password' => {
-            datatype    => 'string',
-            base_name   => 'password',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'phone' => {
-            datatype    => 'string',
-            base_name   => 'phone',
-            description => '',
-            format      => '',
-            read_only   => '',
-        },
-        'user_status' => {
-            datatype    => 'int',
-            base_name   => 'userStatus',
-            description => 'User Status',
-            format      => '',
-            read_only   => '',
-        },
-    }
-);
 
-__PACKAGE__->openapi_types(
+__PACKAGE__->class_documentation({description => '',
-    {
+                                  class => 'User',
-        'id'          => 'int',
+                                  required => [], # TODO
-        'username'    => 'string',
+}                                 );
-        'first_name'  => 'string',
-        'last_name'   => 'string',
-        'email'       => 'string',
-        'password'    => 'string',
-        'phone'       => 'string',
-        'user_status' => 'int'
-    }
-);
 
-__PACKAGE__->attribute_map(
+__PACKAGE__->method_documentation({
-    {
+    'id' => {
-        'id'          => 'id',
+    	datatype => 'int',
-        'username'    => 'username',
+    	base_name => 'id',
-        'first_name'  => 'firstName',
+    	description => '',
-        'last_name'   => 'lastName',
+    	format => '',
-        'email'       => 'email',
+    	read_only => '',
-        'password'    => 'password',
+    		},
-        'phone'       => 'phone',
+    'username' => {
-        'user_status' => 'userStatus'
+    	datatype => 'string',
-    }
+    	base_name => 'username',
-);
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'first_name' => {
+    	datatype => 'string',
+    	base_name => 'firstName',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'last_name' => {
+    	datatype => 'string',
+    	base_name => 'lastName',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'email' => {
+    	datatype => 'string',
+    	base_name => 'email',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'password' => {
+    	datatype => 'string',
+    	base_name => 'password',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'phone' => {
+    	datatype => 'string',
+    	base_name => 'phone',
+    	description => '',
+    	format => '',
+    	read_only => '',
+    		},
+    'user_status' => {
+    	datatype => 'int',
+    	base_name => 'userStatus',
+    	description => 'User Status',
+    	format => '',
+    	read_only => '',
+    		},
+});
+
+__PACKAGE__->openapi_types( {
+    'id' => 'int',
+    'username' => 'string',
+    'first_name' => 'string',
+    'last_name' => 'string',
+    'email' => 'string',
+    'password' => 'string',
+    'phone' => 'string',
+    'user_status' => 'int'
+} );
+
+__PACKAGE__->attribute_map( {
+    'id' => 'id',
+    'username' => 'username',
+    'first_name' => 'firstName',
+    'last_name' => 'lastName',
+    'email' => 'email',
+    'password' => 'password',
+    'phone' => 'phone',
+    'user_status' => 'userStatus'
+} );
+
+__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
 
-__PACKAGE__->mk_accessors( keys %{ __PACKAGE__->attribute_map } );
 
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Role.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -27,108 +26,87 @@ use Class::Inspector;
 use Log::Any qw($log);
 use WWW::OpenAPIClient::ApiFactory;
 
-has base_url => (
+has base_url => ( is => 'ro',
-    is            => 'ro',
+                  required => 0,
-    required      => 0,
+                  isa => 'Str',
-    isa           => 'Str',
+                  documentation => 'Root of the server that requests are sent to',
-    documentation => 'Root of the server that requests are sent to',
+                  );
-);
 
-has api_factory => (
+has api_factory => ( is => 'ro',
-    is            => 'ro',
+                     isa => 'WWW::OpenAPIClient::ApiFactory',
-    isa           => 'WWW::OpenAPIClient::ApiFactory',
+                     builder => '_build_af',
-    builder       => '_build_af',
+                     lazy => 1,
-    lazy          => 1,
+                     documentation => 'Builds an instance of the endpoint API class',
-    documentation => 'Builds an instance of the endpoint API class',
+                     );
-);
 
-has tokens => (
+has tokens => ( is => 'ro',
-    is       => 'ro',
+                isa => 'HashRef',
-    isa      => 'HashRef',
+                required => 0,
-    required => 0,
+                default => sub { {} },
-    default  => sub { {} },
+                documentation => 'The auth tokens required by the application - basic, OAuth and/or API key(s)',
-    documentation =>
+                );
-'The auth tokens required by the application - basic, OAuth and/or API key(s)',
-);
 
-has _cfg => (
+has _cfg => ( is => 'ro',
-    is      => 'ro',
+              isa => 'WWW::OpenAPIClient::Configuration',
-    isa     => 'WWW::OpenAPIClient::Configuration',
+              default => sub { WWW::OpenAPIClient::Configuration->new() },
-    default => sub { WWW::OpenAPIClient::Configuration->new() },
+              );
-);
 
-has version_info => (
+has version_info => ( is => 'ro',
-    is      => 'ro',
+                      isa => 'HashRef',
-    isa     => 'HashRef',
+                      default => sub { {
-    default => sub {
+                          app_name => 'OpenAPI Petstore',
-        {
+                          app_version => '1.0.0',
-            app_name    => 'OpenAPI Petstore',
+                          generator_class => 'org.openapitools.codegen.languages.PerlClientCodegen',
-            app_version => '1.0.0',
+                      } },
-            generator_class =>
+                      documentation => 'Information about the application version and the codegen codebase version'
-              'org.openapitools.codegen.languages.PerlClientCodegen',
+                      );
-        }
-    },
-    documentation =>
-'Information about the application version and the codegen codebase version'
-);
 
 sub BUILD {
-    my $self = shift;
+	my $self = shift;
 
-    $self->_cfg->accept_tokens( $self->tokens ) if keys %{ $self->tokens };
+	$self->_cfg->accept_tokens( $self->tokens ) if keys %{$self->tokens};
 
-    # ignore these symbols imported into API namespaces
+	# ignore these symbols imported into API namespaces
-    my %outsiders = map { $_ => 1 } qw( croak );
+	my %outsiders = map {$_ => 1} qw( croak );
 
-    my %delegates;
+	my %delegates;
 
-    # collect the methods callable on each API
+	# collect the methods callable on each API
-    foreach my $api_name ( $self->api_factory->apis_available ) {
+	foreach my $api_name ($self->api_factory->apis_available) {
-        my $api_class = $self->api_factory->classname_for($api_name);
+		my $api_class = $self->api_factory->classname_for($api_name);
-        my $methods = Class::Inspector->methods( $api_class, 'expanded' )
+		my $methods = Class::Inspector->methods($api_class, 'expanded'); # not Moose, so use CI instead
-          ;    # not Moose, so use CI instead
+		my @local_methods = grep {! /^_/} grep {! $outsiders{$_}} map {$_->[2]} grep {$_->[1] eq $api_class} @$methods;
-        my @local_methods =
+		push( @{$delegates{$_}}, {api_name => $api_name, api_class => $api_class} ) for @local_methods;
-          grep { !/^_/ }
+	}
-          grep { !$outsiders{$_} }
-          map { $_->[2] } grep { $_->[1] eq $api_class } @$methods;
-        push(
-            @{ $delegates{$_} },
-            { api_name => $api_name, api_class => $api_class }
-        ) for @local_methods;
-    }
 
-    # remove clashes
+	# remove clashes
-    foreach my $method ( keys %delegates ) {
+	foreach my $method (keys %delegates) {
-        if ( @{ $delegates{$method} } > 1 ) {
+		if ( @{$delegates{$method}} > 1 ) {
-            my ($apis) = delete $delegates{$method};
+			my ($apis) = delete $delegates{$method};
-        }
+		}
-    }
+	}
 
     # build the flattened API
-    foreach my $api_name ( $self->api_factory->apis_available ) {
+    foreach my $api_name ($self->api_factory->apis_available) {
         my $att_name = sprintf "%s_api", lc($api_name);
         my $api_class = $self->api_factory->classname_for($api_name);
-        my @delegated =
+        my @delegated = grep { $delegates{$_}->[0]->{api_name} eq $api_name } keys %delegates;
-          grep { $delegates{$_}->[0]->{api_name} eq $api_name } keys %delegates;
+        $log->debugf("Adding API: '%s' handles %s", $att_name, join ', ', @delegated);
-        $log->debugf( "Adding API: '%s' handles %s",
+        $self->meta->add_attribute( $att_name => (
-            $att_name, join ', ', @delegated );
+                                    is => 'ro',
-        $self->meta->add_attribute(
+                                    isa => $api_class,
-            $att_name => (
+                                    default => sub {$self->api_factory->get_api($api_name)},
-                is      => 'ro',
+                                    lazy => 1,
-                isa     => $api_class,
+                                    handles => \@delegated,
-                default => sub { $self->api_factory->get_api($api_name) },
+                                    ) );
-                lazy    => 1,
-                handles => \@delegated,
-            )
-        );
     }
 }
 
 sub _build_af {
-    my $self = shift;
+	my $self = shift;
-    my %args;
+	my %args;
-    $args{base_url} = $self->base_url if $self->base_url;
+	$args{base_url} = $self->base_url if $self->base_url;
-    return WWW::OpenAPIClient::ApiFactory->new(%args);
+	return WWW::OpenAPIClient::ApiFactory->new(%args);
 }
 
 =head1 NAME

samples/client/petstore/perl/lib/WWW/OpenAPIClient/Role/AutoDoc.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -24,57 +23,56 @@ use List::MoreUtils qw(uniq);
 use Moose::Role;
 
 sub autodoc {
-    my ( $self, $how ) = @_;
+	my ($self, $how) = @_;
-
+	
-    die "Unknown format '$how'" unless $how =~ /^(pod|wide|narrow)$/;
+	die "Unknown format '$how'" unless $how =~ /^(pod|wide|narrow)$/;
-
+	
-    $self->_printisa($how);
+	$self->_printisa($how);
-    $self->_printmethods($how);
+	$self->_printmethods($how);
-    $self->_printattrs($how);
+	$self->_printattrs($how);
-    print "\n";
+	print "\n";
 }
 
 sub _printisa {
-    my ( $self, $how ) = @_;
+	my ($self, $how) = @_;	
-    my $meta = $self->meta;
+	my $meta = $self->meta;
+	
+	my $myclass = ref $self;
+	
+	my $super = join ', ', $meta->superclasses;
+	my @roles = $meta->calculate_all_roles;
+	#shift(@roles) if @roles > 1; # if > 1, the first is a composite, the rest are the roles
 
-    my $myclass = ref $self;
+	my $isa =   join ', ', grep {$_ ne $myclass} $meta->linearized_isa;
-
+	my $sub =   join ', ', $meta->subclasses;
-    my $super = join ', ', $meta->superclasses;
+	my $dsub =  join ', ', $meta->direct_subclasses;
-    my @roles = $meta->calculate_all_roles;
+	
-
+    my $app_name = $self->version_info->{app_name};
-#shift(@roles) if @roles > 1; # if > 1, the first is a composite, the rest are the roles
+    my $app_version = $self->version_info->{app_version};
-
+    my $generated_date = $self->version_info->{generated_date};
-    my $isa  = join ', ', grep { $_ ne $myclass } $meta->linearized_isa;
-    my $sub  = join ', ', $meta->subclasses;
-    my $dsub = join ', ', $meta->direct_subclasses;
-
-    my $app_name        = $self->version_info->{app_name};
-    my $app_version     = $self->version_info->{app_version};
-    my $generated_date  = $self->version_info->{generated_date};
     my $generator_class = $self->version_info->{generator_class};
 
     $~ = $how eq 'pod' ? 'INHERIT_POD' : 'INHERIT';
     write;
-
+	
-    my ( $rolepkg, $role_reqs );
+	my ($rolepkg, $role_reqs);
-
+	
-    foreach my $role (@roles) {
+	foreach my $role (@roles) {
-        $rolepkg = $role->{package} || next;  # some are anonymous, or something
+		$rolepkg = $role->{package} || next; # some are anonymous, or something
-        next if $rolepkg eq 'WWW::OpenAPIClient::Role::AutoDoc';
+		next if $rolepkg eq 'WWW::OpenAPIClient::Role::AutoDoc';
-        $role_reqs = join ', ', keys %{ $role->{required_methods} };
+		$role_reqs = join ', ', keys %{$role->{required_methods}};
-        $role_reqs ||= '';
+		$role_reqs ||= '';
-        $~ = $how eq 'pod' ? 'ROLES_POD' : 'ROLES';
+		$~ = $how eq 'pod' ? 'ROLES_POD' : 'ROLES';
-        write;
+		write;
-    }
+	}
-
+	
-    if ( $how eq 'pod' ) {
+	if ($how eq 'pod') {
-        $~ = 'ROLES_POD_CLOSE';
+		$~ = 'ROLES_POD_CLOSE';
-        write;
+		write;
-    }
+	}
-
+	
-    # ----- format specs -----
+# ----- format specs -----
-    format INHERIT = 
+	format INHERIT = 
 
 @* -
 $myclass
@@ -93,7 +91,7 @@ $myclass
                        $generator_class
                        
 .
-    format ROLES =   
+	format ROLES =   
              Composes: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~
                        $rolepkg
                        requires: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~
@@ -102,7 +100,7 @@ $myclass
                                  $role_reqs
 .
 
-    format INHERIT_POD =
+	format INHERIT_POD =
 =head1 NAME
 
 @*
@@ -153,7 +151,7 @@ $myclass
 
 
 .
-    format ROLES_POD =
+	format ROLES_POD =
 =head2 C<@*>
        $rolepkg
        
@@ -163,108 +161,104 @@ Requires:
 $role_reqs
 
 .
-    format ROLES_POD_CLOSE =
+	format ROLES_POD_CLOSE =
 
 
 .
-
+# ----- / format specs -----
-    # ----- / format specs -----
 }
 
 sub _printmethods {
-    my ( $self, $how ) = @_;
+	my ($self, $how) = @_;
-
+	
-    if ( $how eq 'narrow' ) {
+	if ($how eq 'narrow') {
-        print <<HEAD;
+		print <<HEAD;
 METHODS
 -------
 HEAD
-    }
+	}
-    elsif ( $how eq 'wide' ) {
+	elsif ($how eq 'wide') {
-        $~ = 'METHODHEAD';
+		$~ = 'METHODHEAD';
-        write;
+		write;
-    }
+	}
-    elsif ( $how eq 'pod' ) {
+	elsif ($how eq 'pod') {
-        $~ = 'METHODHEAD_POD';
+		$~ = 'METHODHEAD_POD';
-        write;
+		write;
-    }
+	}
-    else {
+	else {
-        die "Don't know how to print '$how'";
+		die "Don't know how to print '$how'";
-    }
+	}
+	
+	$self->_printmethod($_, $how) for uniq sort $self->meta->get_all_method_names; #$self->meta->get_method_list, 
+	
+	if ($how eq 'pod') {
+		$~ = 'METHOD_POD_CLOSE';
+		write;
+	}
 
-    $self->_printmethod( $_, $how )
-      for uniq
-      sort $self->meta->get_all_method_names;    #$self->meta->get_method_list,
-
-    if ( $how eq 'pod' ) {
-        $~ = 'METHOD_POD_CLOSE';
-        write;
-    }
 
 }
 
 sub _printmethod {
-    my ( $self, $methodname, $how ) = @_;
+	my ($self, $methodname, $how) = @_;
-    return if $methodname =~ /^_/;
+	return if $methodname =~ /^_/;
-    return if $self->meta->has_attribute($methodname);
+	return if $self->meta->has_attribute($methodname);
-    my %internal = map { $_ => 1 }
+	my %internal = map {$_ => 1} qw(BUILD BUILDARGS meta can new DEMOLISHALL DESTROY 
-      qw(BUILD BUILDARGS meta can new DEMOLISHALL DESTROY
+		DOES isa BUILDALL does VERSION dump
-      DOES isa BUILDALL does VERSION dump
+		);
-    );
+	return if $internal{$methodname};
-    return if $internal{$methodname};
+	my $method = $self->meta->get_method($methodname) or return; # symbols imported into namespaces i.e. not known by Moose
-    my $method = $self->meta->get_method($methodname)
+	
-      or return;    # symbols imported into namespaces i.e. not known by Moose
+	return if $method->original_package_name eq __PACKAGE__;
-
+	
-    return if $method->original_package_name eq __PACKAGE__;
+	my $delegate_to = '';
-
+	my $via = '';
-    my $delegate_to  = '';
+	my $on = '';
-    my $via          = '';
+	my $doc = '';
-    my $on           = '';
+	my $original_pkg = $method->original_package_name;
-    my $doc          = '';
+	if ($method->can('associated_attribute')) {
-    my $original_pkg = $method->original_package_name;
+		$delegate_to = $method->delegate_to_method;
-    if ( $method->can('associated_attribute') ) {
+		my $aa = $method->associated_attribute;
-        $delegate_to = $method->delegate_to_method;
+		$on = $aa->{isa};
-        my $aa = $method->associated_attribute;
+		$via = $aa->{name};
-        $on           = $aa->{isa};
+		$original_pkg = $on; 
-        $via          = $aa->{name};
+		$doc = $original_pkg->method_documentation->{$delegate_to}->{summary};
-        $original_pkg = $on;
+	}
-        $doc = $original_pkg->method_documentation->{$delegate_to}->{summary};
+	else {
-    }
+	    $doc = $method->documentation;
-    else {
+	}
-        $doc = $method->documentation;
+	
-    }
+	if ($how eq 'narrow') {
-
+		$~ = 'METHOD_NARROW';
-    if ( $how eq 'narrow' ) {
+		write;
-        $~ = 'METHOD_NARROW';
+	}
-        write;
+	elsif ($how eq 'pod' and $delegate_to) {
-    }
+		$~ = 'METHOD_POD_DELEGATED';
-    elsif ( $how eq 'pod' and $delegate_to ) {
+		write;
-        $~ = 'METHOD_POD_DELEGATED';
+	}
-        write;
+	elsif ($how eq 'pod') {
-    }
+		$~ = 'METHOD_POD';
-    elsif ( $how eq 'pod' ) {
+		write;
-        $~ = 'METHOD_POD';
+	}
-        write;
+	else {
-    }
+		$~ = 'METHOD';
-    else {
+		write;
-        $~ = 'METHOD';
+	}
-        write;
+	
-    }
+# ----- format specs -----
-
+	format METHODHEAD =
-    # ----- format specs -----
-    format METHODHEAD =
 
 METHODS
 -------
 Name                                                  delegates to                                             on                                      via
 ===========================================================================================================================================================================
 .
-    format METHOD = 
+	format METHOD = 
 @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<... @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<... @<<<<<<<<<<<<<<<<...
 $methodname,                                          $delegate_to,                                            $on,                                    $via
 .
 
-    format METHOD_NARROW =
+	format METHOD_NARROW =
 @*
 $methodname
     original pkg: @*
@@ -278,13 +272,13 @@ $methodname
 
 .
 
-    format METHODHEAD_POD = 
+	format METHODHEAD_POD = 
 
 =head1 METHODS
 
 .
-
+	
-    format METHOD_POD = 
+	format METHOD_POD = 
 	
 =head2 C<@*()>
        $methodname
@@ -294,7 +288,7 @@ $methodname
 
 
 .
-    format METHOD_POD_DELEGATED = 
+	format METHOD_POD_DELEGATED = 
 
 =head2 C<@*()>
        $methodname
@@ -313,96 +307,90 @@ $methodname
                      $via, $delegate_to
 
 .
-    format METHOD_POD_CLOSE =
+	format METHOD_POD_CLOSE =
 	
 .
-
+# ----- / format specs -----
-    # ----- / format specs -----
 }
 
 sub _printattrs {
-    my ( $self, $how ) = @_;
+	my ($self, $how) = @_;
-
+	
-    if ( $how eq 'narrow' ) {
+	if ($how eq 'narrow') {
-        print <<HEAD;
+		print <<HEAD;
 ATTRIBUTES
 ----------
 HEAD
-    }
+	}
-    elsif ( $how eq 'wide' ) {
+	elsif ($how eq 'wide') {
-        $~ = 'ATTRHEAD';
+		$~ = 'ATTRHEAD';
-        write;
+		write;
-    }
+	}
-    elsif ( $how eq 'pod' ) {
+	elsif ($how eq 'pod') {
-        $~ = 'ATTRHEAD_POD';
+		$~ = 'ATTRHEAD_POD';
-        write;
+		write;
-    }
+	}
-    else {
+	else {
-        die "Don't know how to print attributes '$how'";
+		die "Don't know how to print attributes '$how'";
-    }
+	}
-
+	
-    $self->_printattr( $_, $how ) for sort $self->meta->get_attribute_list;
+	$self->_printattr($_, $how) for sort $self->meta->get_attribute_list;
-
+	
-    if ( $how eq 'pod' ) {
+	if ($how eq 'pod') {
-        $~ = 'ATTR_POD_CLOSE';
+		$~ = 'ATTR_POD_CLOSE';
-        write;
+		write;
-    }
+	}
 }
 
 sub _printattr {
-    my ( $self, $attrname, $how ) = @_;
+	my ($self, $attrname, $how) = @_;
-    return if $attrname =~ /^_/;
+	return if $attrname =~ /^_/;
-    my $attr = $self->meta->get_attribute($attrname)
+	my $attr = $self->meta->get_attribute($attrname) or die "No attr for $attrname";
-      or die "No attr for $attrname";
+	
+	my $is;
+	$is = 'rw' if $attr->get_read_method && $attr->get_write_method;
+	$is = 'ro' if $attr->get_read_method && ! $attr->get_write_method;
+	$is = 'wo' if $attr->get_write_method && ! $attr->get_read_method;
+	$is = '--' if ! $attr->get_write_method && ! $attr->get_read_method;
+	$is or die "No \$is for $attrname";
+	
+	my $tc = $attr->type_constraint || '';
+	my $from = $attr->associated_class->name || '';
+	my $reqd = $attr->is_required ? 'yes' : 'no';
+	my $lazy = $attr->is_lazy ? 'yes' : 'no';
+	my $has_doc = $attr->has_documentation ? 'yes' : 'no'; # *_api attributes will never have doc, but other attributes might have
+	my $doc = $attr->documentation || '';
+	my $handles = join ', ', sort @{$attr->handles || []};
+	$handles ||= '';
+	
+	if ($how eq 'narrow') {
+		$~ = 'ATTR_NARROW';
+	}
+	elsif ($how eq 'pod') {
+		$~ = 'ATTR_POD';
+	}
+	else {
+		$~ = 'ATTR';
+	}
 
-    my $is;
+	write;
-    $is = 'rw' if $attr->get_read_method   && $attr->get_write_method;
-    $is = 'ro' if $attr->get_read_method   && !$attr->get_write_method;
-    $is = 'wo' if $attr->get_write_method  && !$attr->get_read_method;
-    $is = '--' if !$attr->get_write_method && !$attr->get_read_method;
-    $is or die "No \$is for $attrname";
 
-    my $tc   = $attr->type_constraint        || '';
+# ----- format specs -----
-    my $from = $attr->associated_class->name || '';
+	format ATTRHEAD =
-    my $reqd = $attr->is_required ? 'yes' : 'no';
-    my $lazy = $attr->is_lazy     ? 'yes' : 'no';
-    my $has_doc =
-      $attr->has_documentation
-      ? 'yes'
-      : 'no'
-      ;  # *_api attributes will never have doc, but other attributes might have
-    my $doc = $attr->documentation || '';
-    my $handles = join ', ', sort @{ $attr->handles || [] };
-    $handles ||= '';
-
-    if ( $how eq 'narrow' ) {
-        $~ = 'ATTR_NARROW';
-    }
-    elsif ( $how eq 'pod' ) {
-        $~ = 'ATTR_POD';
-    }
-    else {
-        $~ = 'ATTR';
-    }
-
-    write;
-
-    # ----- format specs -----
-    format ATTRHEAD =
 
 ATTRIBUTES
 ----------
 Name                is isa                       reqd lazy doc handles
 ==============================================================================================================
 .	
-    format ATTR = 
+	format ATTR = 
 @<<<<<<<<<<<<<<<<<  @< @<<<<<<<<<<<<<<<<<<<<<<<< @<<< @<<< @<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $attrname,          $is, $tc,                    $reqd, $lazy, $has_doc, $handles
                                                                ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
                                                                $handles
 .
 
-    format ATTR_NARROW = 
+	format ATTR_NARROW = 
 @*
 $attrname
          is: @*
@@ -421,11 +409,11 @@ $attrname
              $handles
 
 .
-    format ATTRHEAD_POD =
+	format ATTRHEAD_POD =
 =head1 ATTRIBUTES
 
 .
-    format ATTR_POD =
+	format ATTR_POD =
 
 =head2 C<@*>
          $attrname
@@ -446,12 +434,13 @@ $attrname
              $handles
 
 .
-    format ATTR_POD_CLOSE = 
+	format ATTR_POD_CLOSE = 
 
 
 .
-
+# ----- / format specs -----
-    # ----- / format specs -----
 }
 
+
+
 1;

samples/client/petstore/perl/lib/WWW/OpenAPIClient/StoreApi.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -23,7 +22,7 @@ package WWW::OpenAPIClient::StoreApi;
 require 5.6.0;
 use strict;
 use warnings;
-use utf8;
+use utf8; 
 use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
@@ -32,16 +31,15 @@ use WWW::OpenAPIClient::ApiClient;
 
 use base "Class::Data::Inheritable";
 
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {});
 
 sub new {
     my $class = shift;
     my $api_client;
 
-    if ( $_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
+    if ($_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
         $api_client = $_[0];
-    }
+    } else {
-    else {
         $api_client = WWW::OpenAPIClient::ApiClient->new(@_);
     }
 
@@ -49,73 +47,67 @@ sub new {
 
 }
 
+
 #
 # delete_order
 #
 # Delete purchase order by ID
-#
+# 
 # @param string $order_id ID of the order that needs to be deleted (required)
 {
     my $params = {
-        'order_id' => {
+    'order_id' => {
-            data_type   => 'string',
+        data_type => 'string',
-            description => 'ID of the order that needs to be deleted',
+        description => 'ID of the order that needs to be deleted',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'delete_order'} = {
+    __PACKAGE__->method_documentation->{ 'delete_order' } = { 
-        summary => 'Delete purchase order by ID',
+    	summary => 'Delete purchase order by ID',
-        params  => $params,
+        params => $params,
         returns => undef,
-    };
+        };
 }
-
 # @return void
 #
 sub delete_order {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'order_id' is set
-    unless ( exists $args{'order_id'} ) {
+    unless (exists $args{'order_id'}) {
-        croak(
+      croak("Missing the required parameter 'order_id' when calling delete_order");
-"Missing the required parameter 'order_id' when calling delete_order"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/store/order/{order_id}';
 
-    my $_method       = 'DELETE';
+    my $_method = 'DELETE';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
     my $_header_accept = $self->{api_client}->select_header_accept();
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     # path params
-    if ( exists $args{'order_id'} ) {
+    if ( exists $args{'order_id'}) {
         my $_base_variable = "{" . "order_id" . "}";
-        my $_base_value =
+        my $_base_value = $self->{api_client}->to_path_value($args{'order_id'});
-          $self->{api_client}->to_path_value( $args{'order_id'} );
         $_resource_path =~ s/$_base_variable/$_base_value/g;
     }
 
     my $_body_data;
-
     # authentication setting, if any
     my $auth_settings = [qw()];
 
     # make the API Call
-    $self->{api_client}->call_api(
+    $self->{api_client}->call_api($_resource_path, $_method,
-        $_resource_path, $_method,    $query_params, $form_params,
+                                           $query_params, $form_params,
-        $header_params,  $_body_data, $auth_settings
+                                           $header_params, $_body_data, $auth_settings);
-    );
     return;
 }
 
@@ -123,53 +115,48 @@ sub delete_order {
 # get_inventory
 #
 # Returns pet inventories by status
-#
+# 
 {
-    my $params = {};
+    my $params = {
-    __PACKAGE__->method_documentation->{'get_inventory'} = {
-        summary => 'Returns pet inventories by status',
-        params  => $params,
-        returns => 'HASH[string,int]',
     };
+    __PACKAGE__->method_documentation->{ 'get_inventory' } = { 
+    	summary => 'Returns pet inventories by status',
+        params => $params,
+        returns => 'HASH[string,int]',
+        };
 }
-
 # @return HASH[string,int]
 #
 sub get_inventory {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # parse inputs
     my $_resource_path = '/store/inventory';
 
-    my $_method       = 'GET';
+    my $_method = 'GET';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
-    my $_header_accept =
+    my $_header_accept = $self->{api_client}->select_header_accept('application/json');
-      $self->{api_client}->select_header_accept('application/json');
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     my $_body_data;
-
     # authentication setting, if any
     my $auth_settings = [qw(api_key )];
 
     # make the API Call
-    my $response = $self->{api_client}->call_api(
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
-        $_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) {
-    if ( !$response ) {
         return;
     }
-    my $_response_object =
+    my $_response_object = $self->{api_client}->deserialize('HASH[string,int]', $response);
-      $self->{api_client}->deserialize( 'HASH[string,int]', $response );
     return $_response_object;
 }
 
@@ -177,75 +164,66 @@ sub get_inventory {
 # get_order_by_id
 #
 # Find purchase order by ID
-#
+# 
 # @param int $order_id ID of pet that needs to be fetched (required)
 {
     my $params = {
-        'order_id' => {
+    'order_id' => {
-            data_type   => 'int',
+        data_type => 'int',
-            description => 'ID of pet that needs to be fetched',
+        description => 'ID of pet that needs to be fetched',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'get_order_by_id'} = {
+    __PACKAGE__->method_documentation->{ 'get_order_by_id' } = { 
-        summary => 'Find purchase order by ID',
+    	summary => 'Find purchase order by ID',
-        params  => $params,
+        params => $params,
         returns => 'Order',
-    };
+        };
 }
-
 # @return Order
 #
 sub get_order_by_id {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'order_id' is set
-    unless ( exists $args{'order_id'} ) {
+    unless (exists $args{'order_id'}) {
-        croak(
+      croak("Missing the required parameter 'order_id' when calling get_order_by_id");
-"Missing the required parameter 'order_id' when calling get_order_by_id"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/store/order/{order_id}';
 
-    my $_method       = 'GET';
+    my $_method = 'GET';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
-    my $_header_accept = $self->{api_client}
+    my $_header_accept = $self->{api_client}->select_header_accept('application/xml', 'application/json');
-      ->select_header_accept( 'application/xml', 'application/json' );
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     # path params
-    if ( exists $args{'order_id'} ) {
+    if ( exists $args{'order_id'}) {
         my $_base_variable = "{" . "order_id" . "}";
-        my $_base_value =
+        my $_base_value = $self->{api_client}->to_path_value($args{'order_id'});
-          $self->{api_client}->to_path_value( $args{'order_id'} );
         $_resource_path =~ s/$_base_variable/$_base_value/g;
     }
 
     my $_body_data;
-
     # authentication setting, if any
     my $auth_settings = [qw()];
 
     # make the API Call
-    my $response = $self->{api_client}->call_api(
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
-        $_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) {
-    if ( !$response ) {
         return;
     }
-    my $_response_object =
+    my $_response_object = $self->{api_client}->deserialize('Order', $response);
-      $self->{api_client}->deserialize( 'Order', $response );
     return $_response_object;
 }
 
@@ -253,55 +231,50 @@ sub get_order_by_id {
 # place_order
 #
 # Place an order for a pet
-#
+# 
 # @param Order $order order placed for purchasing the pet (required)
 {
     my $params = {
-        'order' => {
+    'order' => {
-            data_type   => 'Order',
+        data_type => 'Order',
-            description => 'order placed for purchasing the pet',
+        description => 'order placed for purchasing the pet',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'place_order'} = {
+    __PACKAGE__->method_documentation->{ 'place_order' } = { 
-        summary => 'Place an order for a pet',
+    	summary => 'Place an order for a pet',
-        params  => $params,
+        params => $params,
         returns => 'Order',
-    };
+        };
 }
-
 # @return Order
 #
 sub place_order {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'order' is set
-    unless ( exists $args{'order'} ) {
+    unless (exists $args{'order'}) {
-        croak(
+      croak("Missing the required parameter 'order' when calling place_order");
-            "Missing the required parameter 'order' when calling place_order");
     }
 
     # parse inputs
     my $_resource_path = '/store/order';
 
-    my $_method       = 'POST';
+    my $_method = 'POST';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
-    my $_header_accept = $self->{api_client}
+    my $_header_accept = $self->{api_client}->select_header_accept('application/xml', 'application/json');
-      ->select_header_accept( 'application/xml', 'application/json' );
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     my $_body_data;
-
     # body params
-    if ( exists $args{'order'} ) {
+    if ( exists $args{'order'}) {
         $_body_data = $args{'order'};
     }
 
@@ -309,15 +282,13 @@ sub place_order {
     my $auth_settings = [qw()];
 
     # make the API Call
-    my $response = $self->{api_client}->call_api(
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
-        $_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) {
-    if ( !$response ) {
         return;
     }
-    my $_response_object =
+    my $_response_object = $self->{api_client}->deserialize('Order', $response);
-      $self->{api_client}->deserialize( 'Order', $response );
     return $_response_object;
 }
 

samples/client/petstore/perl/lib/WWW/OpenAPIClient/UserApi.pm

@@ -1,4 +1,3 @@
-
 =begin comment
 
 OpenAPI Petstore
@@ -23,7 +22,7 @@ package WWW::OpenAPIClient::UserApi;
 require 5.6.0;
 use strict;
 use warnings;
-use utf8;
+use utf8; 
 use Exporter;
 use Carp qw( croak );
 use Log::Any qw($log);
@@ -32,16 +31,15 @@ use WWW::OpenAPIClient::ApiClient;
 
 use base "Class::Data::Inheritable";
 
-__PACKAGE__->mk_classdata( 'method_documentation' => {} );
+__PACKAGE__->mk_classdata('method_documentation' => {});
 
 sub new {
     my $class = shift;
     my $api_client;
 
-    if ( $_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
+    if ($_[0] && ref $_[0] && ref $_[0] eq 'WWW::OpenAPIClient::ApiClient' ) {
         $api_client = $_[0];
-    }
+    } else {
-    else {
         $api_client = WWW::OpenAPIClient::ApiClient->new(@_);
     }
 
@@ -49,57 +47,55 @@ sub new {
 
 }
 
+
 #
 # create_user
 #
 # Create user
-#
+# 
 # @param User $user Created user object (required)
 {
     my $params = {
-        'user' => {
+    'user' => {
-            data_type   => 'User',
+        data_type => 'User',
-            description => 'Created user object',
+        description => 'Created user object',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'create_user'} = {
+    __PACKAGE__->method_documentation->{ 'create_user' } = { 
-        summary => 'Create user',
+    	summary => 'Create user',
-        params  => $params,
+        params => $params,
         returns => undef,
-    };
+        };
 }
-
 # @return void
 #
 sub create_user {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'user' is set
-    unless ( exists $args{'user'} ) {
+    unless (exists $args{'user'}) {
-        croak("Missing the required parameter 'user' when calling create_user");
+      croak("Missing the required parameter 'user' when calling create_user");
     }
 
     # parse inputs
     my $_resource_path = '/user';
 
-    my $_method       = 'POST';
+    my $_method = 'POST';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
     my $_header_accept = $self->{api_client}->select_header_accept();
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     my $_body_data;
-
     # body params
-    if ( exists $args{'user'} ) {
+    if ( exists $args{'user'}) {
         $_body_data = $args{'user'};
     }
 
@@ -107,10 +103,9 @@ sub create_user {
     my $auth_settings = [qw()];
 
     # make the API Call
-    $self->{api_client}->call_api(
+    $self->{api_client}->call_api($_resource_path, $_method,
-        $_resource_path, $_method,    $query_params, $form_params,
+                                           $query_params, $form_params,
-        $header_params,  $_body_data, $auth_settings
+                                           $header_params, $_body_data, $auth_settings);
-    );
     return;
 }
 
@@ -118,55 +113,50 @@ sub create_user {
 # create_users_with_array_input
 #
 # Creates list of users with given input array
-#
+# 
 # @param ARRAY[User] $user List of user object (required)
 {
     my $params = {
-        'user' => {
+    'user' => {
-            data_type   => 'ARRAY[User]',
+        data_type => 'ARRAY[User]',
-            description => 'List of user object',
+        description => 'List of user object',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'create_users_with_array_input'} = {
+    __PACKAGE__->method_documentation->{ 'create_users_with_array_input' } = { 
-        summary => 'Creates list of users with given input array',
+    	summary => 'Creates list of users with given input array',
-        params  => $params,
+        params => $params,
         returns => undef,
-    };
+        };
 }
-
 # @return void
 #
 sub create_users_with_array_input {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'user' is set
-    unless ( exists $args{'user'} ) {
+    unless (exists $args{'user'}) {
-        croak(
+      croak("Missing the required parameter 'user' when calling create_users_with_array_input");
-"Missing the required parameter 'user' when calling create_users_with_array_input"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/user/createWithArray';
 
-    my $_method       = 'POST';
+    my $_method = 'POST';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
     my $_header_accept = $self->{api_client}->select_header_accept();
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     my $_body_data;
-
     # body params
-    if ( exists $args{'user'} ) {
+    if ( exists $args{'user'}) {
         $_body_data = $args{'user'};
     }
 
@@ -174,10 +164,9 @@ sub create_users_with_array_input {
     my $auth_settings = [qw()];
 
     # make the API Call
-    $self->{api_client}->call_api(
+    $self->{api_client}->call_api($_resource_path, $_method,
-        $_resource_path, $_method,    $query_params, $form_params,
+                                           $query_params, $form_params,
-        $header_params,  $_body_data, $auth_settings
+                                           $header_params, $_body_data, $auth_settings);
-    );
     return;
 }
 
@@ -185,55 +174,50 @@ sub create_users_with_array_input {
 # create_users_with_list_input
 #
 # Creates list of users with given input array
-#
+# 
 # @param ARRAY[User] $user List of user object (required)
 {
     my $params = {
-        'user' => {
+    'user' => {
-            data_type   => 'ARRAY[User]',
+        data_type => 'ARRAY[User]',
-            description => 'List of user object',
+        description => 'List of user object',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'create_users_with_list_input'} = {
+    __PACKAGE__->method_documentation->{ 'create_users_with_list_input' } = { 
-        summary => 'Creates list of users with given input array',
+    	summary => 'Creates list of users with given input array',
-        params  => $params,
+        params => $params,
         returns => undef,
-    };
+        };
 }
-
 # @return void
 #
 sub create_users_with_list_input {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'user' is set
-    unless ( exists $args{'user'} ) {
+    unless (exists $args{'user'}) {
-        croak(
+      croak("Missing the required parameter 'user' when calling create_users_with_list_input");
-"Missing the required parameter 'user' when calling create_users_with_list_input"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/user/createWithList';
 
-    my $_method       = 'POST';
+    my $_method = 'POST';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
     my $_header_accept = $self->{api_client}->select_header_accept();
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     my $_body_data;
-
     # body params
-    if ( exists $args{'user'} ) {
+    if ( exists $args{'user'}) {
         $_body_data = $args{'user'};
     }
 
@@ -241,10 +225,9 @@ sub create_users_with_list_input {
     my $auth_settings = [qw()];
 
     # make the API Call
-    $self->{api_client}->call_api(
+    $self->{api_client}->call_api($_resource_path, $_method,
-        $_resource_path, $_method,    $query_params, $form_params,
+                                           $query_params, $form_params,
-        $header_params,  $_body_data, $auth_settings
+                                           $header_params, $_body_data, $auth_settings);
-    );
     return;
 }
 
@@ -252,69 +235,62 @@ sub create_users_with_list_input {
 # delete_user
 #
 # Delete user
-#
+# 
 # @param string $username The name that needs to be deleted (required)
 {
     my $params = {
-        'username' => {
+    'username' => {
-            data_type   => 'string',
+        data_type => 'string',
-            description => 'The name that needs to be deleted',
+        description => 'The name that needs to be deleted',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'delete_user'} = {
+    __PACKAGE__->method_documentation->{ 'delete_user' } = { 
-        summary => 'Delete user',
+    	summary => 'Delete user',
-        params  => $params,
+        params => $params,
         returns => undef,
-    };
+        };
 }
-
 # @return void
 #
 sub delete_user {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'username' is set
-    unless ( exists $args{'username'} ) {
+    unless (exists $args{'username'}) {
-        croak(
+      croak("Missing the required parameter 'username' when calling delete_user");
-            "Missing the required parameter 'username' when calling delete_user"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/user/{username}';
 
-    my $_method       = 'DELETE';
+    my $_method = 'DELETE';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
     my $_header_accept = $self->{api_client}->select_header_accept();
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     # path params
-    if ( exists $args{'username'} ) {
+    if ( exists $args{'username'}) {
         my $_base_variable = "{" . "username" . "}";
-        my $_base_value =
+        my $_base_value = $self->{api_client}->to_path_value($args{'username'});
-          $self->{api_client}->to_path_value( $args{'username'} );
         $_resource_path =~ s/$_base_variable/$_base_value/g;
     }
 
     my $_body_data;
-
     # authentication setting, if any
     my $auth_settings = [qw()];
 
     # make the API Call
-    $self->{api_client}->call_api(
+    $self->{api_client}->call_api($_resource_path, $_method,
-        $_resource_path, $_method,    $query_params, $form_params,
+                                           $query_params, $form_params,
-        $header_params,  $_body_data, $auth_settings
+                                           $header_params, $_body_data, $auth_settings);
-    );
     return;
 }
 
@@ -322,76 +298,66 @@ sub delete_user {
 # get_user_by_name
 #
 # Get user by user name
-#
+# 
 # @param string $username The name that needs to be fetched. Use user1 for testing. (required)
 {
     my $params = {
-        'username' => {
+    'username' => {
-            data_type => 'string',
+        data_type => 'string',
-            description =>
+        description => 'The name that needs to be fetched. Use user1 for testing.',
-              'The name that needs to be fetched. Use user1 for testing.',
+        required => '1',
-            required => '1',
+    },
-        },
     };
-    __PACKAGE__->method_documentation->{'get_user_by_name'} = {
+    __PACKAGE__->method_documentation->{ 'get_user_by_name' } = { 
-        summary => 'Get user by user name',
+    	summary => 'Get user by user name',
-        params  => $params,
+        params => $params,
         returns => 'User',
-    };
+        };
 }
-
 # @return User
 #
 sub get_user_by_name {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'username' is set
-    unless ( exists $args{'username'} ) {
+    unless (exists $args{'username'}) {
-        croak(
+      croak("Missing the required parameter 'username' when calling get_user_by_name");
-"Missing the required parameter 'username' when calling get_user_by_name"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/user/{username}';
 
-    my $_method       = 'GET';
+    my $_method = 'GET';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
-    my $_header_accept = $self->{api_client}
+    my $_header_accept = $self->{api_client}->select_header_accept('application/xml', 'application/json');
-      ->select_header_accept( 'application/xml', 'application/json' );
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     # path params
-    if ( exists $args{'username'} ) {
+    if ( exists $args{'username'}) {
         my $_base_variable = "{" . "username" . "}";
-        my $_base_value =
+        my $_base_value = $self->{api_client}->to_path_value($args{'username'});
-          $self->{api_client}->to_path_value( $args{'username'} );
         $_resource_path =~ s/$_base_variable/$_base_value/g;
     }
 
     my $_body_data;
-
     # authentication setting, if any
     my $auth_settings = [qw()];
 
     # make the API Call
-    my $response = $self->{api_client}->call_api(
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
-        $_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) {
-    if ( !$response ) {
         return;
     }
-    my $_response_object =
+    my $_response_object = $self->{api_client}->deserialize('User', $response);
-      $self->{api_client}->deserialize( 'User', $response );
     return $_response_object;
 }
 
@@ -399,92 +365,80 @@ sub get_user_by_name {
 # login_user
 #
 # Logs user into the system
-#
+# 
 # @param string $username The user name for login (required)
 # @param string $password The password for login in clear text (required)
 {
     my $params = {
-        'username' => {
+    'username' => {
-            data_type   => 'string',
+        data_type => 'string',
-            description => 'The user name for login',
+        description => 'The user name for login',
-            required    => '1',
+        required => '1',
-        },
+    },
-        'password' => {
+    'password' => {
-            data_type   => 'string',
+        data_type => 'string',
-            description => 'The password for login in clear text',
+        description => 'The password for login in clear text',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'login_user'} = {
+    __PACKAGE__->method_documentation->{ 'login_user' } = { 
-        summary => 'Logs user into the system',
+    	summary => 'Logs user into the system',
-        params  => $params,
+        params => $params,
         returns => 'string',
-    };
+        };
 }
-
 # @return string
 #
 sub login_user {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'username' is set
-    unless ( exists $args{'username'} ) {
+    unless (exists $args{'username'}) {
-        croak(
+      croak("Missing the required parameter 'username' when calling login_user");
-            "Missing the required parameter 'username' when calling login_user"
-        );
     }
 
     # verify the required parameter 'password' is set
-    unless ( exists $args{'password'} ) {
+    unless (exists $args{'password'}) {
-        croak(
+      croak("Missing the required parameter 'password' when calling login_user");
-            "Missing the required parameter 'password' when calling login_user"
-        );
     }
 
     # parse inputs
     my $_resource_path = '/user/login';
 
-    my $_method       = 'GET';
+    my $_method = 'GET';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
-    my $_header_accept = $self->{api_client}
+    my $_header_accept = $self->{api_client}->select_header_accept('application/xml', 'application/json');
-      ->select_header_accept( 'application/xml', 'application/json' );
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     # query params
-    if ( exists $args{'username'} ) {
+    if ( exists $args{'username'}) {
-        $query_params->{'username'} =
+        $query_params->{'username'} = $self->{api_client}->to_query_value($args{'username'});
-          $self->{api_client}->to_query_value( $args{'username'} );
     }
 
     # query params
-    if ( exists $args{'password'} ) {
+    if ( exists $args{'password'}) {
-        $query_params->{'password'} =
+        $query_params->{'password'} = $self->{api_client}->to_query_value($args{'password'});
-          $self->{api_client}->to_query_value( $args{'password'} );
     }
 
     my $_body_data;
-
     # authentication setting, if any
     my $auth_settings = [qw()];
 
     # make the API Call
-    my $response = $self->{api_client}->call_api(
+    my $response = $self->{api_client}->call_api($_resource_path, $_method,
-        $_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) {
-    if ( !$response ) {
         return;
     }
-    my $_response_object =
+    my $_response_object = $self->{api_client}->deserialize('string', $response);
-      $self->{api_client}->deserialize( 'string', $response );
     return $_response_object;
 }
 
@@ -492,47 +446,44 @@ sub login_user {
 # logout_user
 #
 # Logs out current logged in user session
-#
+# 
 {
-    my $params = {};
+    my $params = {
-    __PACKAGE__->method_documentation->{'logout_user'} = {
-        summary => 'Logs out current logged in user session',
-        params  => $params,
-        returns => undef,
     };
+    __PACKAGE__->method_documentation->{ 'logout_user' } = { 
+    	summary => 'Logs out current logged in user session',
+        params => $params,
+        returns => undef,
+        };
 }
-
 # @return void
 #
 sub logout_user {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # parse inputs
     my $_resource_path = '/user/logout';
 
-    my $_method       = 'GET';
+    my $_method = 'GET';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
     my $_header_accept = $self->{api_client}->select_header_accept();
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     my $_body_data;
-
     # authentication setting, if any
     my $auth_settings = [qw()];
 
     # make the API Call
-    $self->{api_client}->call_api(
+    $self->{api_client}->call_api($_resource_path, $_method,
-        $_resource_path, $_method,    $query_params, $form_params,
+                                           $query_params, $form_params,
-        $header_params,  $_body_data, $auth_settings
+                                           $header_params, $_body_data, $auth_settings);
-    );
     return;
 }
 
@@ -540,74 +491,68 @@ sub logout_user {
 # update_user
 #
 # Updated user
-#
+# 
 # @param string $username name that need to be deleted (required)
 # @param User $user Updated user object (required)
 {
     my $params = {
-        'username' => {
+    'username' => {
-            data_type   => 'string',
+        data_type => 'string',
-            description => 'name that need to be deleted',
+        description => 'name that need to be deleted',
-            required    => '1',
+        required => '1',
-        },
+    },
-        'user' => {
+    'user' => {
-            data_type   => 'User',
+        data_type => 'User',
-            description => 'Updated user object',
+        description => 'Updated user object',
-            required    => '1',
+        required => '1',
-        },
+    },
     };
-    __PACKAGE__->method_documentation->{'update_user'} = {
+    __PACKAGE__->method_documentation->{ 'update_user' } = { 
-        summary => 'Updated user',
+    	summary => 'Updated user',
-        params  => $params,
+        params => $params,
         returns => undef,
-    };
+        };
 }
-
 # @return void
 #
 sub update_user {
-    my ( $self, %args ) = @_;
+    my ($self, %args) = @_;
 
     # verify the required parameter 'username' is set
-    unless ( exists $args{'username'} ) {
+    unless (exists $args{'username'}) {
-        croak(
+      croak("Missing the required parameter 'username' when calling update_user");
-            "Missing the required parameter 'username' when calling update_user"
-        );
     }
 
     # verify the required parameter 'user' is set
-    unless ( exists $args{'user'} ) {
+    unless (exists $args{'user'}) {
-        croak("Missing the required parameter 'user' when calling update_user");
+      croak("Missing the required parameter 'user' when calling update_user");
     }
 
     # parse inputs
     my $_resource_path = '/user/{username}';
 
-    my $_method       = 'PUT';
+    my $_method = 'PUT';
-    my $query_params  = {};
+    my $query_params = {};
     my $header_params = {};
-    my $form_params   = {};
+    my $form_params = {};
 
     # 'Accept' and 'Content-Type' header
     my $_header_accept = $self->{api_client}->select_header_accept();
     if ($_header_accept) {
         $header_params->{'Accept'} = $_header_accept;
     }
-    $header_params->{'Content-Type'} =
+    $header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
-      $self->{api_client}->select_header_content_type();
 
     # path params
-    if ( exists $args{'username'} ) {
+    if ( exists $args{'username'}) {
         my $_base_variable = "{" . "username" . "}";
-        my $_base_value =
+        my $_base_value = $self->{api_client}->to_path_value($args{'username'});
-          $self->{api_client}->to_path_value( $args{'username'} );
         $_resource_path =~ s/$_base_variable/$_base_value/g;
     }
 
     my $_body_data;
-
     # body params
-    if ( exists $args{'user'} ) {
+    if ( exists $args{'user'}) {
         $_body_data = $args{'user'};
     }
 
@@ -615,10 +560,9 @@ sub update_user {
     my $auth_settings = [qw()];
 
     # make the API Call
-    $self->{api_client}->call_api(
+    $self->{api_client}->call_api($_resource_path, $_method,
-        $_resource_path, $_method,    $query_params, $form_params,
+                                           $query_params, $form_params,
-        $header_params,  $_body_data, $auth_settings
+                                           $header_params, $_body_data, $auth_settings);
-    );
     return;
 }
 

samples/client/petstore/perl/pom.xml

@@ -78,6 +78,19 @@
                             </arguments>
                         </configuration>
                     </execution>
+                    <!--<execution>
+                        <id>Test::More for Inheritance</id>
+                        <phase>integration-test</phase>
+                        <goals>
+                            <goal>exec</goal>
+                        </goals>
+                        <configuration>
+                            <executable>perl</executable>
+                            <arguments>
+                                <argument>tests/06_inheritance.t</argument>
+                            </arguments>
+                        </configuration>
+                    </execution>-->
                 </executions>
             </plugin>
         </plugins>

samples/client/petstore/perl/t/AdultTest.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::Adult');
+
+my $instance = WWW::OpenAPIClient::Object::Adult->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::Adult');
+

samples/client/petstore/perl/t/ChildTest.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::Child');
+
+my $instance = WWW::OpenAPIClient::Object::Child->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::Child');
+

samples/client/petstore/perl/t/DefaultApiTest.t

@@ -0,0 +1,40 @@
+=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: \" \\
+
+OpenAPI spec version: 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::DefaultApi');
+
+my $api = WWW::OpenAPIClient::DefaultApi->new();
+isa_ok($api, 'WWW::OpenAPIClient::DefaultApi');
+
+#
+# foo_get test
+#
+{
+    my $result = $api->foo_get();
+}
+
+
+1;

samples/client/petstore/perl/t/FooTest.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::Foo');
+
+my $instance = WWW::OpenAPIClient::Object::Foo->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::Foo');
+

samples/client/petstore/perl/t/HumanTest.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::Human');
+
+my $instance = WWW::OpenAPIClient::Object::Human->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::Human');
+

samples/client/petstore/perl/t/InlineObject1Test.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::InlineObject1');
+
+my $instance = WWW::OpenAPIClient::Object::InlineObject1->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject1');
+

samples/client/petstore/perl/t/InlineObject2Test.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::InlineObject2');
+
+my $instance = WWW::OpenAPIClient::Object::InlineObject2->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject2');
+

samples/client/petstore/perl/t/InlineObject3Test.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::InlineObject3');
+
+my $instance = WWW::OpenAPIClient::Object::InlineObject3->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject3');
+

samples/client/petstore/perl/t/InlineObject4Test.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::InlineObject4');
+
+my $instance = WWW::OpenAPIClient::Object::InlineObject4->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject4');
+

samples/client/petstore/perl/t/InlineObject5Test.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::InlineObject5');
+
+my $instance = WWW::OpenAPIClient::Object::InlineObject5->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject5');
+

samples/client/petstore/perl/t/InlineObjectTest.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::InlineObject');
+
+my $instance = WWW::OpenAPIClient::Object::InlineObject->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject');
+

samples/client/petstore/perl/t/InlineResponseDefaultTest.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::InlineResponseDefault');
+
+my $instance = WWW::OpenAPIClient::Object::InlineResponseDefault->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineResponseDefault');
+

samples/client/petstore/perl/t/PersonTest.t

@@ -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: \" \\
+
+OpenAPI spec version: 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::Person');
+
+my $instance = WWW::OpenAPIClient::Object::Person->new();
+
+isa_ok($instance, 'WWW::OpenAPIClient::Object::Person');
+

samples/client/petstore/perl/tests/06_inheritance.t

@@ -0,0 +1,64 @@
+use Test::More tests => 37;
+use Test::Exception;
+
+use lib 'lib';
+use strict;
+use warnings;
+
+use_ok('WWW::OpenAPIClient::Object::Adult');
+use_ok('WWW::OpenAPIClient::Object::Person');
+use_ok('WWW::OpenAPIClient::Object::Human');
+
+my $pet_id = 10008;
+
+my $adult =  WWW::OpenAPIClient::Object::Adult->new('duplicated_optional' => 22,
+                                                       'duplicated_required' => 11,
+                                                       'children' => [],
+                                                       'adult_required' => 1);
+my $child =  WWW::OpenAPIClient::Object::Child->new('age' => 11, 'first_name' => 'William');
+my $human =  WWW::OpenAPIClient::Object::Human->new('___type' => $pet_id, 'body' => 'perl test');
+
+isa_ok($adult, 'WWW::OpenAPIClient::Object::Adult');
+isa_ok($child, 'WWW::OpenAPIClient::Object::Child');
+isa_ok($human, 'WWW::OpenAPIClient::Object::Human');
+
+#my $pet_hash = $pet->to_hash;
+#
+#is $pet_hash->{category}->{id}, '22', 'get the proper category id';
+#is $pet_hash->{category}->{name}, 'perl', 'get the proper category name';
+#is $pet_hash->{tags}[0]->{name}, 'just kidding', 'get the proper tag name';
+#is $pet_hash->{tags}[0]->{id}, '11', 'get the proper tag id';
+#
+#my $add_pet = $api->add_pet(pet => $pet);
+#
+#my $get_pet = $api->get_pet_by_id(pet_id => $pet_id);
+#my $get_pet_hash = $get_pet->to_hash;
+#is $get_pet_hash->{name}, 'perl test', 'get the proper pet name from get_pet_by_id';
+#is $get_pet_hash->{id}, '10008', 'get the proper pet id from get_pet_by_id';
+#is $get_pet_hash->{category}->{name}, 'perl', 'get the proper category name from get_pet_by_id';
+#is $get_pet_hash->{category}->{id}, '22', 'get the proper category id from get_pet_by_id';
+#is $get_pet_hash->{category}->{name}, 'perl', 'get the proper category from get_pet_by_id';
+#is $get_pet_hash->{tags}[0]->{name}, 'just kidding', 'get the proper tag from get_pet_by_id';
+#is $get_pet_hash->{tags}[0]->{id}, '11', 'get the proper tag id from get_pet_by_id';
+#is $get_pet_hash->{photoUrls}->[0], '123', 'get the proper photoUrl from get_pet_by_id';
+#is $get_pet_hash->{photoUrls}->[1], 'oop', 'get the proper photoUrl from get_pet_by_id';
+#
+#
+#my $update_pet_with_form = $api->update_pet_with_form(pet_id => $pet_id, name => 'test_name', status => 'sold');
+#is $update_pet_with_form, undef, 'get the null response from update_pet_wth_form';
+#
+#my $get_pet_after_update = $api->get_pet_by_id(pet_id => $pet_id);
+#is $get_pet_after_update->{status}, 'sold', 'get the updated status after update_pet_with_form';
+#
+#my $upload_pet = $api->upload_file(pet_id => $pet_id, additional_metadata => 'testabc', file => 'test.pl');
+#isa_ok($upload_pet, 'WWW::OpenAPIClient::Object::ApiResponse');
+#
+#my $delete_pet = $api->delete_pet(pet_id => $pet_id);
+#is $delete_pet, undef, 'get the null response from delete_pet';
+#throws_ok{$api->get_pet_by_id(pet_id => $pet_id)} qr/API Exception\(404\): Not Found/, "throw 404 error about pet not found after delete";
+##is $get_pet_after_delete->{status}, undef, 'get the updated status after update_pet_with_form';
+#
+#my $pets;
+#lives_ok {$pets = $api->find_pets_by_status(status => [qw(sold available)])} 'array query param processed correctly';
+#isa_ok($pets->[0], 'WWW::OpenAPIClient::Object::Pet');
+#