add auto-generated cpanfile in perl client (#17662)

OpenAPITools · Jan 20, 2024 · e326d6a · e326d6a
1 parent 27f7667
commit e326d6a
Show file tree

Hide file tree

Showing 4 changed files with 32 additions and 6 deletions.
diff --git a/...openapi-generator/src/main/java/org/openapitools/codegen/languages/PerlClientCodegen.java b/...openapi-generator/src/main/java/org/openapitools/codegen/languages/PerlClientCodegen.java
@@ -159,8 +159,8 @@ public PerlClientCodegen() {
 
         // option to change the order of form/body parameter
         cliOptions.add(CliOption.newBoolean(
-                CodegenConstants.PREPEND_FORM_OR_BODY_PARAMETERS,
-                CodegenConstants.PREPEND_FORM_OR_BODY_PARAMETERS_DESC)
+                        CodegenConstants.PREPEND_FORM_OR_BODY_PARAMETERS,
+                        CodegenConstants.PREPEND_FORM_OR_BODY_PARAMETERS_DESC)
                 .defaultValue(Boolean.FALSE.toString()));
 
     }
@@ -202,6 +202,7 @@ public void processOpts() {
         supportingFiles.add(new SupportingFile("gitignore.mustache", "", ".gitignore"));
         supportingFiles.add(new SupportingFile("git_push.sh.mustache", "", "git_push.sh"));
         supportingFiles.add(new SupportingFile("travis.mustache", "", ".travis.yml"));
+        supportingFiles.add(new SupportingFile("cpanfile.mustache", "", "cpanfile"));
     }
 
     @Override
@@ -700,9 +701,9 @@ public CodegenModel fromModel(String name, Schema sc) {
      * A custom version is made for this method to ensure that
      * property.format remains empty string
      *
-     * @param name name of the property
-     * @param p OAS property schema
-     * @param required true if the property is required in the next higher object schema, false otherwise
+     * @param name                             name of the property
+     * @param p                                OAS property schema
+     * @param required                         true if the property is required in the next higher object schema, false otherwise
      * @param schemaIsFromAdditionalProperties true if the property is defined by additional properties schema
      * @return Codegen Property object
      */
@@ -714,5 +715,7 @@ public CodegenProperty fromProperty(String name, Schema p, boolean required, boo
     }
 
     @Override
-    public GeneratorLanguage generatorLanguage() { return GeneratorLanguage.PERL; }
+    public GeneratorLanguage generatorLanguage() {
+        return GeneratorLanguage.PERL;
+    }
 }
diff --git a/modules/openapi-generator/src/main/resources/perl/cpanfile.mustache b/modules/openapi-generator/src/main/resources/perl/cpanfile.mustache
@@ -0,0 +1,11 @@
+requires 'Class::Accessor';
+requires 'Test::Exception';
+requires 'Test::More';
+requires 'Log::Any';
+requires 'LWP::UserAgent';
+requires 'URI::Query';
+requires 'Module::Runtime';
+requires 'DateTime';
+requires 'Module::Find';
+requires 'Moose::Role';
+requires 'JSON', '>= 2.00, < 2.80';
diff --git a/samples/client/petstore/perl/.openapi-generator/FILES b/samples/client/petstore/perl/.openapi-generator/FILES
@@ -2,6 +2,7 @@
 .travis.yml
 README.md
 bin/autodoc
+cpanfile
 docs/AdditionalPropertiesClass.md
 docs/AllOfWithSingleRef.md
 docs/Animal.md

diff --git a/samples/client/petstore/perl/cpanfile b/samples/client/petstore/perl/cpanfile
@@ -0,0 +1,11 @@
+requires 'Class::Accessor';
+requires 'Test::Exception';
+requires 'Test::More';
+requires 'Log::Any';
+requires 'LWP::UserAgent';
+requires 'URI::Query';
+requires 'Module::Runtime';
+requires 'DateTime';
+requires 'Module::Find';
+requires 'Moose::Role';
+requires 'JSON', '>= 2.00, < 2.80';