valitydev/openapi-generator
14
0
Fork 0
mirror of https://github.com/valitydev/openapi-generator.git synced 2024-11-08 03:18:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

added http basic auth test

Browse Source
This commit is contained in:
wing328 2015-06-03 11:21:10 +08:00
parent fceaed34e4
commit 9b919c54dd
3 changed files with 18 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
modules/swagger-codegen/src/main/resources/perl/APIClient.mustache
View File

@ -84,45 +84,31 @@ sub call_api {
my $_request;
if ($method eq 'POST') {
# multipart
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
'form-data' : $header_params->{'Content-Type'};
$header_params->{'Content-Type'} = $_content_type;
my $headers = HTTP::Headers->new(%$header_params);
#$_request = POST($_url, Accept => $header_params->{Accept},
# Content_Type => $_content_type, Content => $_body_data);
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
$_request = POST($_url, %$header_params, Content => $_body_data);
}
elsif ($method eq 'PUT') {
# multipart
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
'form-data' : $header_params->{'Content-Type'};
$header_params->{'Content-Type'} = $_content_type;
my $headers = HTTP::Headers->new(%$header_params);
#$_request = PUT($_url, Accept => $header_params->{Accept},
# Content_Type => $_content_type, Content => $_body_data);
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
$_request = PUT($_url, %$header_params, Content => $_body_data);
}
elsif ($method eq 'GET') {
my $headers = HTTP::Headers->new(%$header_params);
#$_request = GET($_url, Accept => $header_params->{'Accept'},
# Content_Type => $header_params->{'Content-Type'});
$_request = HTTP::Request->new( $method, $_url, $headers)
$_request = GET($_url, %$header_params);
}
elsif ($method eq 'HEAD') {
my $headers = HTTP::Headers->new(%$header_params);
#$_request = HEAD($_url, Accept => $header_params->{'Accept'},
# Content_Type => $header_params->{'Content-Type'});
$_request = HTTP::Request->new( $method, $_url, $headers)
$_request = HEAD($_url,%$header_params);
}
elsif ($method eq 'DELETE') { #TODO support form data
my $headers = HTTP::Headers->new(%$header_params);
#$_request = DELETE($_url, Accept => $header_params->{'Accept'},
# Content_Type => $header_params->{'Content-Type'}, Content => $_body_data);
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
$_request = DELETE($_url, %$headers);
}
elsif ($method eq 'PATCH') { #TODO
}

28
samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm
View File

@ -84,45 +84,31 @@ sub call_api {
my $_request;
if ($method eq 'POST') {
# multipart
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
'form-data' : $header_params->{'Content-Type'};
$header_params->{'Content-Type'} = $_content_type;
my $headers = HTTP::Headers->new(%$header_params);
#$_request = POST($_url, Accept => $header_params->{Accept},
# Content_Type => $_content_type, Content => $_body_data);
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
$_request = POST($_url, %$header_params, Content => $_body_data);
}
elsif ($method eq 'PUT') {
# multipart
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
'form-data' : $header_params->{'Content-Type'};
$header_params->{'Content-Type'} = $_content_type;
my $headers = HTTP::Headers->new(%$header_params);
#$_request = PUT($_url, Accept => $header_params->{Accept},
# Content_Type => $_content_type, Content => $_body_data);
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
$_request = PUT($_url, %$header_params, Content => $_body_data);
}
elsif ($method eq 'GET') {
my $headers = HTTP::Headers->new(%$header_params);
#$_request = GET($_url, Accept => $header_params->{'Accept'},
# Content_Type => $header_params->{'Content-Type'});
$_request = HTTP::Request->new( $method, $_url, $headers)
$_request = GET($_url, %$header_params);
}
elsif ($method eq 'HEAD') {
my $headers = HTTP::Headers->new(%$header_params);
#$_request = HEAD($_url, Accept => $header_params->{'Accept'},
# Content_Type => $header_params->{'Content-Type'});
$_request = HTTP::Request->new( $method, $_url, $headers)
$_request = HEAD($_url,%$header_params);
}
elsif ($method eq 'DELETE') { #TODO support form data
my $headers = HTTP::Headers->new(%$header_params);
#$_request = DELETE($_url, Accept => $header_params->{'Accept'},
# Content_Type => $header_params->{'Content-Type'}, Content => $_body_data);
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
$_request = DELETE($_url, %$headers);
}
elsif ($method eq 'PATCH') { #TODO
}

4
samples/client/petstore/perl/test.pl
View File

@ -18,6 +18,10 @@ $WWW::SwaggerClient::Configuration::http_user_agent = 'Perl-Swagger-Test';
$WWW::SwaggerClient::Configuration::api_key->{'api_key'} = 'ZZZZZZZZZZZZZZ';
$WWW::SwaggerClient::Configuration::api_key_prefix->{'api_key'} = 'BEARER';
$WWW::SwaggerClient::Configuration::username = 'username';
$WWW::SwaggerClient::Configuration::password = 'password';
my $api = WWW::SwaggerClient::PetApi->new();
my $pet_id = 10008;