Perl: Fix JSONization of ArrayObjects (#12896)

* Perl: fix object to json

* generate samples

* add test case

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

@@ -111,6 +111,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -161,6 +161,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -161,6 +161,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -155,6 +155,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -152,6 +152,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -153,6 +153,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

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

@@ -151,6 +151,8 @@ sub _to_json_primitives {
             return $data->rfc3339;
         }
         return $data .q();
+    } else { # hash (model),  In this case, the TO_JSON of the $data object is executed
+        return $data;
     }
 }
 

samples/client/petstore/perl/tests/02_store_api.t

@@ -1,4 +1,4 @@
-use Test::More tests => 52;
+use Test::More tests => 56;
 use Test::Exception;
 
 use lib 'lib';
@@ -171,3 +171,17 @@ like $order_to_json, qr/2020-11-06T09:20:48Z/, '$order{shipDate} to date-time fo
 like $order_to_json, qr/"101112"/, '$order{status} is number. But json type is string';
 
 like $order_to_json, qr/false/, '$order{complete} is number. But json type is boolean';
+
+my $pet_object = WWW::OpenAPIClient::Object::Pet->new->from_hash({
+    tags => [ 
+        WWW::OpenAPIClient::Object::Tag->new->from_hash({id => 123, name => 1000}), 
+        WWW::OpenAPIClient::Object::Tag->new->from_hash({id => 456, name => 'test2'}),
+    ]
+});
+
+
+my $pet_object_to_json = JSON->new->convert_blessed->encode($pet_object);
+like $pet_object_to_json, qr/\"id\":123/, '$pet_object->tags->[0]->id';
+like $pet_object_to_json, qr/\"name\":\"1000\"/, '$pet_object->tags->[0]->name';
+like $pet_object_to_json, qr/\"id\":456/, '$pet_object->tags->[1]->id';
+like $pet_object_to_json, qr/\"name\":\"test2\"/, '$pet_object->tags->[1]->name';