Skip to content

Commit 9b919c5

Browse files
wing328wing328
committed
added http basic auth test
1 parent fceaed3 commit 9b919c5

File tree

3 files changed

+18
-42
lines changed

3 files changed

+18
-42
lines changed

‎modules/swagger-codegen/src/main/resources/perl/APIClient.mustache‎

Lines changed: 7 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -84,45 +84,31 @@ sub call_api {
8484
my $_request;
8585
if ($method eq 'POST') {
8686
# multipart
87-
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
87+
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
8888
'form-data' : $header_params->{'Content-Type'};
89-
$header_params->{'Content-Type'} = $_content_type;
90-
my $headers = HTTP::Headers->new(%$header_params);
9189

92-
#$_request = POST($_url, Accept => $header_params->{Accept},
93-
# Content_Type => $_content_type, Content => $_body_data);
94-
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
90+
$_request = POST($_url, %$header_params, Content => $_body_data);
9591

9692
}
9793
elsif ($method eq 'PUT') {
9894
# multipart
99-
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
95+
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
10096
'form-data' : $header_params->{'Content-Type'};
101-
$header_params->{'Content-Type'} = $_content_type;
102-
my $headers = HTTP::Headers->new(%$header_params);
10397

104-
#$_request = PUT($_url, Accept => $header_params->{Accept},
105-
# Content_Type => $_content_type, Content => $_body_data);
106-
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
98+
$_request = PUT($_url, %$header_params, Content => $_body_data);
10799

108100
}
109101
elsif ($method eq 'GET') {
110102
my $headers = HTTP::Headers->new(%$header_params);
111-
#$_request = GET($_url, Accept => $header_params->{'Accept'},
112-
# Content_Type => $header_params->{'Content-Type'});
113-
$_request = HTTP::Request->new( $method, $_url, $headers)
103+
$_request = GET($_url, %$header_params);
114104
}
115105
elsif ($method eq 'HEAD') {
116106
my $headers = HTTP::Headers->new(%$header_params);
117-
#$_request = HEAD($_url, Accept => $header_params->{'Accept'},
118-
# Content_Type => $header_params->{'Content-Type'});
119-
$_request = HTTP::Request->new( $method, $_url, $headers)
107+
$_request = HEAD($_url,%$header_params);
120108
}
121109
elsif ($method eq 'DELETE') { #TODO support form data
122110
my $headers = HTTP::Headers->new(%$header_params);
123-
#$_request = DELETE($_url, Accept => $header_params->{'Accept'},
124-
# Content_Type => $header_params->{'Content-Type'}, Content => $_body_data);
125-
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
111+
$_request = DELETE($_url, %$headers);
126112
}
127113
elsif ($method eq 'PATCH') { #TODO
128114
}

‎samples/client/petstore/perl/lib/WWW/SwaggerClient/APIClient.pm‎

Lines changed: 7 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -84,45 +84,31 @@ sub call_api {
8484
my $_request;
8585
if ($method eq 'POST') {
8686
# multipart
87-
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
87+
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
8888
'form-data' : $header_params->{'Content-Type'};
89-
$header_params->{'Content-Type'} = $_content_type;
90-
my $headers = HTTP::Headers->new(%$header_params);
9189

92-
#$_request = POST($_url, Accept => $header_params->{Accept},
93-
# Content_Type => $_content_type, Content => $_body_data);
94-
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
90+
$_request = POST($_url, %$header_params, Content => $_body_data);
9591

9692
}
9793
elsif ($method eq 'PUT') {
9894
# multipart
99-
my $_content_type = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
95+
$header_params->{'Content-Type'} = lc $header_params->{'Content-Type'} eq 'multipart/form' ?
10096
'form-data' : $header_params->{'Content-Type'};
101-
$header_params->{'Content-Type'} = $_content_type;
102-
my $headers = HTTP::Headers->new(%$header_params);
10397

104-
#$_request = PUT($_url, Accept => $header_params->{Accept},
105-
# Content_Type => $_content_type, Content => $_body_data);
106-
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
98+
$_request = PUT($_url, %$header_params, Content => $_body_data);
10799

108100
}
109101
elsif ($method eq 'GET') {
110102
my $headers = HTTP::Headers->new(%$header_params);
111-
#$_request = GET($_url, Accept => $header_params->{'Accept'},
112-
# Content_Type => $header_params->{'Content-Type'});
113-
$_request = HTTP::Request->new( $method, $_url, $headers)
103+
$_request = GET($_url, %$header_params);
114104
}
115105
elsif ($method eq 'HEAD') {
116106
my $headers = HTTP::Headers->new(%$header_params);
117-
#$_request = HEAD($_url, Accept => $header_params->{'Accept'},
118-
# Content_Type => $header_params->{'Content-Type'});
119-
$_request = HTTP::Request->new( $method, $_url, $headers)
107+
$_request = HEAD($_url,%$header_params);
120108
}
121109
elsif ($method eq 'DELETE') { #TODO support form data
122110
my $headers = HTTP::Headers->new(%$header_params);
123-
#$_request = DELETE($_url, Accept => $header_params->{'Accept'},
124-
# Content_Type => $header_params->{'Content-Type'}, Content => $_body_data);
125-
$_request = HTTP::Request->new( $method, $_url, $headers, $_body_data )
111+
$_request = DELETE($_url, %$headers);
126112
}
127113
elsif ($method eq 'PATCH') { #TODO
128114
}

‎samples/client/petstore/perl/test.pl‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -18,6 +18,10 @@
1818
$WWW::SwaggerClient::Configuration::api_key->{'api_key'} = 'ZZZZZZZZZZZZZZ';
1919
$WWW::SwaggerClient::Configuration::api_key_prefix->{'api_key'} = 'BEARER';
2020

21+
$WWW::SwaggerClient::Configuration::username = 'username';
22+
$WWW::SwaggerClient::Configuration::password = 'password';
23+
24+
2125
my $api = WWW::SwaggerClient::PetApi->new();
2226

2327
my $pet_id = 10008;

0 commit comments

Comments
 (0)