loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

Fix Perl client header params (#11713)

Browse Source 
* Fixed perl client header construction

* update perl-petstore sample
This commit is contained in:
koudenpa 2022-02-25 21:43:36 +09:00 committed by GitHub
parent 2daa7391e0
commit aa63ea09f8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
modules/openapi-generator/src/main/resources/perl/ApiClient.mustache vendored
View File

@ -109,16 +109,13 @@ sub call_api {
}
elsif ($method eq 'GET') {
my $headers = HTTP::Headers->new(%$header_params);
$_request = GET($_url, %$header_params);
}
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
my $headers = HTTP::Headers->new(%$header_params);
$_request = DELETE($_url, %$headers);
$_request = DELETE($_url, %$header_params);
}
elsif ($method eq 'PATCH') { #TODO
}

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

@ -122,16 +122,13 @@ sub call_api {
}
elsif ($method eq 'GET') {
my $headers = HTTP::Headers->new(%$header_params);
$_request = GET($_url, %$header_params);
}
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
my $headers = HTTP::Headers->new(%$header_params);
$_request = DELETE($_url, %$headers);
$_request = DELETE($_url, %$header_params);
}
elsif ($method eq 'PATCH') { #TODO
}