From f05dd12b43737b981c61923ea02b22d333e1b31a Mon Sep 17 00:00:00 2001
From: William Cheng <wing328hk@gmail.com>
Date: Sun, 17 Jul 2022 13:10:53 +0800
Subject: [PATCH] add decimal mapping in perl client gen (#12897)

---
 .../openapitools/codegen/languages/PerlClientCodegen.java    | 1 +
 samples/client/petstore/perl/docs/FormatTest.md              | 2 +-
 .../petstore/perl/lib/WWW/OpenAPIClient/Object/FormatTest.pm | 5 ++---
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/PerlClientCodegen.java b/modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/PerlClientCodegen.java
index 0986c187e6f..bfae655bbd4 100644
--- a/modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/PerlClientCodegen.java
+++ b/modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/PerlClientCodegen.java
@@ -127,6 +127,7 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
         typeMapping.put("float", "double");
         typeMapping.put("double", "double");
         typeMapping.put("number", "double");
+        typeMapping.put("decimal", "double");
         typeMapping.put("boolean", "boolean");
         typeMapping.put("string", "string");
         typeMapping.put("date", "DATE");
diff --git a/samples/client/petstore/perl/docs/FormatTest.md b/samples/client/petstore/perl/docs/FormatTest.md
index a55b89f6ce8..bd9dd2565c2 100644
--- a/samples/client/petstore/perl/docs/FormatTest.md
+++ b/samples/client/petstore/perl/docs/FormatTest.md
@@ -14,7 +14,7 @@ Name | Type | Description | Notes
 **number** | **double** |  | 
 **float** | **double** |  | [optional] 
 **double** | **double** |  | [optional] 
-**decimal** | [**Decimal**](Decimal.md) |  | [optional] 
+**decimal** | **double** |  | [optional] 
 **string** | **string** |  | [optional] 
 **byte** | **string** |  | 
 **binary** | **string** |  | [optional] 
diff --git a/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/FormatTest.pm b/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/FormatTest.pm
index e107e0697e0..d0ad7e619ff 100644
--- a/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/FormatTest.pm
+++ b/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Object/FormatTest.pm
@@ -30,7 +30,6 @@ use Log::Any qw($log);
 use Date::Parse;
 use DateTime;
 
-use WWW::OpenAPIClient::Object::Decimal;
 
 use base ("Class::Accessor", "Class::Data::Inheritable");
 
@@ -257,7 +256,7 @@ __PACKAGE__->method_documentation({
         read_only => '',
             },
     'decimal' => {
-        datatype => 'Decimal',
+        datatype => 'double',
         base_name => 'decimal',
         description => '',
         format => '',
@@ -335,7 +334,7 @@ __PACKAGE__->openapi_types( {
     'number' => 'double',
     'float' => 'double',
     'double' => 'double',
-    'decimal' => 'Decimal',
+    'decimal' => 'double',
     'string' => 'string',
     'byte' => 'string',
     'binary' => 'string',