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

update subroutine argument

Browse Source
This commit is contained in:
William Cheng 2015-05-07 20:49:35 +08:00
parent c03250132d
commit 1d4735f76d
11 changed files with 168 additions and 184 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
modules/swagger-codegen/src/main/resources/perl/api.mustache
View File

@ -43,21 +43,17 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; my $class = shift;
my $default_api_client = WWW::{{invokerPackage}}::APIClient->new; my $default_api_client = WWW::{{invokerPackage}}::APIClient->new;
#TODO fix default my (%self) = (
#my (%arg) = ( 'api_client' => $default_api_client,
# 'api_client' => $default_api_client, @_
# @_ );
#);
#croak("You must supply an API client") #my $self = {
# unless $options->{api_client}; # #api_client => $options->{api_client}
# api_client => $default_api_client
#};
my $self = { bless \%self, $class;
#api_client => $options->{api_client}
api_client => $default_api_client
};
bless $self, $class;
} }
@ -71,11 +67,11 @@ sub new {
{{/allParams}} # @return {{#returnType}}{{{returnType}}}{{/returnType}}{{^returnType}}void{{/returnType}} {{/allParams}} # @return {{#returnType}}{{{returnType}}}{{/returnType}}{{^returnType}}void{{/returnType}}
# #
sub {{nickname}} { sub {{nickname}} {
my ($self, $args) = @_; my ($self, %args) = @_;
{{#allParams}}{{#required}} {{#allParams}}{{#required}}
# verify the required parameter '{{paramName}}' is set # verify the required parameter '{{paramName}}' is set
unless (exists $args->{'{{paramName}}'}) { unless (exists $args{'{{paramName}}'}) {
croak("Missing the required parameter '{{paramName}}' when calling {{nickname}}"); croak("Missing the required parameter '{{paramName}}' when calling {{nickname}}");
} }
{{/required}}{{/allParams}} {{/required}}{{/allParams}}
@ -97,31 +93,31 @@ sub new {
$header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json'; $header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json';
{{#queryParams}} # query params {{#queryParams}} # query params
if ( exists $args->{'{{paramName}}'}) { if ( exists $args{'{{paramName}}'}) {
$query_params->{'{{baseName}}'} = WWW::{{invokerPacakge}}::APIClient::to_query_value($args->{'{{paramName}}'}); $query_params->{'{{baseName}}'} = WWW::{{invokerPacakge}}::APIClient::to_query_value($args{'{{paramName}}'});
}{{/queryParams}} }{{/queryParams}}
{{#headerParams}} # header params {{#headerParams}} # header params
if ( exists $args->{'{{paramName}}'}) { if ( exists $args{'{{paramName}}'}) {
$header_params->{'{{baseName}}'} = WWW::{{invokerPackage}}::APIClient::to_header_value($args->{'{{paramName}}'}); $header_params->{'{{baseName}}'} = WWW::{{invokerPackage}}::APIClient::to_header_value($args{'{{paramName}}'});
}{{/headerParams}} }{{/headerParams}}
{{#pathParams}} # path params {{#pathParams}} # path params
if ( exists $args->{'{{paramName}}'}) { if ( exists $args{'{{paramName}}'}) {
my $_base_variable = "{" . "{{baseName}}" . "}"; my $_base_variable = "{" . "{{baseName}}" . "}";
my $_base_value = WWW::{{invokerPackage}}::APIClient::to_path_value($args->{'{{paramName}}'}); my $_base_value = WWW::{{invokerPackage}}::APIClient::to_path_value($args{'{{paramName}}'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
}{{/pathParams}} }{{/pathParams}}
{{#formParams}} # form params {{#formParams}} # form params
if ( exists $args->{'{{paramName}}'} ) { if ( exists $args{'{{paramName}}'} ) {
{{#isFile}}$form_params->{'{{baseName}}'} = [] unless defined $form_params->{'{{baseName}}'}; {{#isFile}}$form_params->{'{{baseName}}'} = [] unless defined $form_params->{'{{baseName}}'};
push $form_params->{'{{baseName}}'}, $args->{'{{paramName}}'}; push $form_params->{'{{baseName}}'}, $args{'{{paramName}}'};
{{/isFile}} {{/isFile}}
{{^isFile}}$form_params->{'{{baseName}}'} = WWW::{{invokerPackage}}::APIClient::to_form_value($args->{'{{paramName}}'}); {{^isFile}}$form_params->{'{{baseName}}'} = WWW::{{invokerPackage}}::APIClient::to_form_value($args{'{{paramName}}'});
{{/isFile}} {{/isFile}}
}{{/formParams}} }{{/formParams}}
my $_body_data; my $_body_data;
{{#bodyParams}} # body params {{#bodyParams}} # body params
if ( exists $args->{'{{paramName}}'}) { if ( exists $args{'{{paramName}}'}) {
$_body_data = $args->{'{{paramName}}'}; $_body_data = $args{'{{paramName}}'};
}{{/bodyParams}} }{{/bodyParams}}
# for HTTP post (form) # for HTTP post (form)

4
modules/swagger-codegen/src/main/resources/perl/object.mustache
View File

@ -33,10 +33,10 @@ my $attribute_map = {
# new object # new object
sub new { sub new {
my ($class, $args) = @_; my ($class, %args) = @_;
my $self = { my $self = {
{{#vars}}#{{#description}}{{{description}}}{{/description}} {{#vars}}#{{#description}}{{{description}}}{{/description}}
'{{name}}' => $args->{'{{baseName}}'}{{#hasMore}}, '{{name}}' => $args{'{{baseName}}'}{{#hasMore}},
{{/hasMore}}{{/vars}} {{/hasMore}}{{/vars}}
}; };

6
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Category.pm
View File

@ -31,12 +31,12 @@ my $attribute_map = {
# new object # new object
sub new { sub new {
my ($class, $args) = @_; my ($class, %args) = @_;
my $self = { my $self = {
# #
'id' => $args->{'id'}, 'id' => $args{'id'},
# #
'name' => $args->{'name'} 'name' => $args{'name'}
}; };
return bless $self, $class; return bless $self, $class;

14
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Order.pm
View File

@ -39,20 +39,20 @@ my $attribute_map = {
# new object # new object
sub new { sub new {
my ($class, $args) = @_; my ($class, %args) = @_;
my $self = { my $self = {
# #
'id' => $args->{'id'}, 'id' => $args{'id'},
# #
'pet_id' => $args->{'petId'}, 'pet_id' => $args{'petId'},
# #
'quantity' => $args->{'quantity'}, 'quantity' => $args{'quantity'},
# #
'ship_date' => $args->{'shipDate'}, 'ship_date' => $args{'shipDate'},
#Order Status #Order Status
'status' => $args->{'status'}, 'status' => $args{'status'},
# #
'complete' => $args->{'complete'} 'complete' => $args{'complete'}
}; };
return bless $self, $class; return bless $self, $class;

14
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Pet.pm
View File

@ -39,20 +39,20 @@ my $attribute_map = {
# new object # new object
sub new { sub new {
my ($class, $args) = @_; my ($class, %args) = @_;
my $self = { my $self = {
# #
'id' => $args->{'id'}, 'id' => $args{'id'},
# #
'category' => $args->{'category'}, 'category' => $args{'category'},
# #
'name' => $args->{'name'}, 'name' => $args{'name'},
# #
'photo_urls' => $args->{'photoUrls'}, 'photo_urls' => $args{'photoUrls'},
# #
'tags' => $args->{'tags'}, 'tags' => $args{'tags'},
#pet status in the store #pet status in the store
'status' => $args->{'status'} 'status' => $args{'status'}
}; };
return bless $self, $class; return bless $self, $class;

6
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Tag.pm
View File

@ -31,12 +31,12 @@ my $attribute_map = {
# new object # new object
sub new { sub new {
my ($class, $args) = @_; my ($class, %args) = @_;
my $self = { my $self = {
# #
'id' => $args->{'id'}, 'id' => $args{'id'},
# #
'name' => $args->{'name'} 'name' => $args{'name'}
}; };
return bless $self, $class; return bless $self, $class;

18
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/User.pm
View File

@ -43,24 +43,24 @@ my $attribute_map = {
# new object # new object
sub new { sub new {
my ($class, $args) = @_; my ($class, %args) = @_;
my $self = { my $self = {
# #
'id' => $args->{'id'}, 'id' => $args{'id'},
# #
'username' => $args->{'username'}, 'username' => $args{'username'},
# #
'first_name' => $args->{'firstName'}, 'first_name' => $args{'firstName'},
# #
'last_name' => $args->{'lastName'}, 'last_name' => $args{'lastName'},
# #
'email' => $args->{'email'}, 'email' => $args{'email'},
# #
'password' => $args->{'password'}, 'password' => $args{'password'},
# #
'phone' => $args->{'phone'}, 'phone' => $args{'phone'},
#User Status #User Status
'user_status' => $args->{'userStatus'} 'user_status' => $args{'userStatus'}
}; };
return bless $self, $class; return bless $self, $class;

98
samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm
View File

@ -49,21 +49,17 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; my $class = shift;
my $default_api_client = WWW::SwaggerClient::APIClient->new; my $default_api_client = WWW::SwaggerClient::APIClient->new;
#TODO fix default my (%self) = (
#my (%arg) = ( 'api_client' => $default_api_client,
# 'api_client' => $default_api_client, @_
# @_ );
#);
#croak("You must supply an API client") #my $self = {
# unless $options->{api_client}; # #api_client => $options->{api_client}
# api_client => $default_api_client
#};
my $self = { bless \%self, $class;
#api_client => $options->{api_client}
api_client => $default_api_client
};
bless $self, $class;
} }
@ -77,7 +73,7 @@ sub new {
# @return void # @return void
# #
sub update_pet { sub update_pet {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -103,8 +99,8 @@ sub new {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args->{'body'}) { if ( exists $args{'body'}) {
$_body_data = $args->{'body'}; $_body_data = $args{'body'};
} }
# for HTTP post (form) # for HTTP post (form)
@ -128,7 +124,7 @@ sub new {
# @return void # @return void
# #
sub add_pet { sub add_pet {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -154,8 +150,8 @@ sub new {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args->{'body'}) { if ( exists $args{'body'}) {
$_body_data = $args->{'body'}; $_body_data = $args{'body'};
} }
# for HTTP post (form) # for HTTP post (form)
@ -179,7 +175,7 @@ sub new {
# @return array[Pet] # @return array[Pet]
# #
sub find_pets_by_status { sub find_pets_by_status {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -200,8 +196,8 @@ sub new {
$header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json'; $header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json';
# query params # query params
if ( exists $args->{'status'}) { if ( exists $args{'status'}) {
$query_params->{'status'} = WWW::::APIClient::to_query_value($args->{'status'}); $query_params->{'status'} = WWW::::APIClient::to_query_value($args{'status'});
} }
@ -233,7 +229,7 @@ sub new {
# @return array[Pet] # @return array[Pet]
# #
sub find_pets_by_tags { sub find_pets_by_tags {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -254,8 +250,8 @@ sub new {
$header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json'; $header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json';
# query params # query params
if ( exists $args->{'tags'}) { if ( exists $args{'tags'}) {
$query_params->{'tags'} = WWW::::APIClient::to_query_value($args->{'tags'}); $query_params->{'tags'} = WWW::::APIClient::to_query_value($args{'tags'});
} }
@ -287,11 +283,11 @@ sub new {
# @return Pet # @return Pet
# #
sub get_pet_by_id { sub get_pet_by_id {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'pet_id' is set # verify the required parameter 'pet_id' is set
unless (exists $args->{'pet_id'}) { unless (exists $args{'pet_id'}) {
croak("Missing the required parameter 'pet_id' when calling get_pet_by_id"); croak("Missing the required parameter 'pet_id' when calling get_pet_by_id");
} }
@ -315,9 +311,9 @@ sub new {
# path params # path params
if ( exists $args->{'pet_id'}) { if ( exists $args{'pet_id'}) {
my $_base_variable = "{" . "petId" . "}"; my $_base_variable = "{" . "petId" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'pet_id'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'pet_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }
@ -350,11 +346,11 @@ sub new {
# @return void # @return void
# #
sub update_pet_with_form { sub update_pet_with_form {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'pet_id' is set # verify the required parameter 'pet_id' is set
unless (exists $args->{'pet_id'}) { unless (exists $args{'pet_id'}) {
croak("Missing the required parameter 'pet_id' when calling update_pet_with_form"); croak("Missing the required parameter 'pet_id' when calling update_pet_with_form");
} }
@ -378,20 +374,20 @@ sub new {
# path params # path params
if ( exists $args->{'pet_id'}) { if ( exists $args{'pet_id'}) {
my $_base_variable = "{" . "petId" . "}"; my $_base_variable = "{" . "petId" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'pet_id'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'pet_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }
# form params # form params
if ( exists $args->{'name'} ) { if ( exists $args{'name'} ) {
$form_params->{'name'} = WWW::SwaggerClient::APIClient::to_form_value($args->{'name'}); $form_params->{'name'} = WWW::SwaggerClient::APIClient::to_form_value($args{'name'});
} # form params } # form params
if ( exists $args->{'status'} ) { if ( exists $args{'status'} ) {
$form_params->{'status'} = WWW::SwaggerClient::APIClient::to_form_value($args->{'status'}); $form_params->{'status'} = WWW::SwaggerClient::APIClient::to_form_value($args{'status'});
} }
my $_body_data; my $_body_data;
@ -419,11 +415,11 @@ sub new {
# @return void # @return void
# #
sub delete_pet { sub delete_pet {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'pet_id' is set # verify the required parameter 'pet_id' is set
unless (exists $args->{'pet_id'}) { unless (exists $args{'pet_id'}) {
croak("Missing the required parameter 'pet_id' when calling delete_pet"); croak("Missing the required parameter 'pet_id' when calling delete_pet");
} }
@ -446,13 +442,13 @@ sub new {
# header params # header params
if ( exists $args->{'api_key'}) { if ( exists $args{'api_key'}) {
$header_params->{'api_key'} = WWW::SwaggerClient::APIClient::to_header_value($args->{'api_key'}); $header_params->{'api_key'} = WWW::SwaggerClient::APIClient::to_header_value($args{'api_key'});
} }
# path params # path params
if ( exists $args->{'pet_id'}) { if ( exists $args{'pet_id'}) {
my $_base_variable = "{" . "petId" . "}"; my $_base_variable = "{" . "petId" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'pet_id'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'pet_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }
@ -482,11 +478,11 @@ sub new {
# @return void # @return void
# #
sub upload_file { sub upload_file {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'pet_id' is set # verify the required parameter 'pet_id' is set
unless (exists $args->{'pet_id'}) { unless (exists $args{'pet_id'}) {
croak("Missing the required parameter 'pet_id' when calling upload_file"); croak("Missing the required parameter 'pet_id' when calling upload_file");
} }
@ -510,20 +506,20 @@ sub new {
# path params # path params
if ( exists $args->{'pet_id'}) { if ( exists $args{'pet_id'}) {
my $_base_variable = "{" . "petId" . "}"; my $_base_variable = "{" . "petId" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'pet_id'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'pet_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }
# form params # form params
if ( exists $args->{'additional_metadata'} ) { if ( exists $args{'additional_metadata'} ) {
$form_params->{'additionalMetadata'} = WWW::SwaggerClient::APIClient::to_form_value($args->{'additional_metadata'}); $form_params->{'additionalMetadata'} = WWW::SwaggerClient::APIClient::to_form_value($args{'additional_metadata'});
} # form params } # form params
if ( exists $args->{'file'} ) { if ( exists $args{'file'} ) {
$form_params->{'file'} = [] unless defined $form_params->{'file'}; $form_params->{'file'} = [] unless defined $form_params->{'file'};
push $form_params->{'file'}, $args->{'file'}; push $form_params->{'file'}, $args{'file'};
} }

46
samples/client/petstore/perl/lib/WWW/SwaggerClient/StoreApi.pm
View File

@ -45,21 +45,17 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; my $class = shift;
my $default_api_client = WWW::SwaggerClient::APIClient->new; my $default_api_client = WWW::SwaggerClient::APIClient->new;
#TODO fix default my (%self) = (
#my (%arg) = ( 'api_client' => $default_api_client,
# 'api_client' => $default_api_client, @_
# @_ );
#);
#croak("You must supply an API client") #my $self = {
# unless $options->{api_client}; # #api_client => $options->{api_client}
# api_client => $default_api_client
#};
my $self = { bless \%self, $class;
#api_client => $options->{api_client}
api_client => $default_api_client
};
bless $self, $class;
} }
@ -72,7 +68,7 @@ sub new {
# @return map[string,int] # @return map[string,int]
# #
sub get_inventory { sub get_inventory {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -123,7 +119,7 @@ sub new {
# @return Order # @return Order
# #
sub place_order { sub place_order {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -149,8 +145,8 @@ sub new {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args->{'body'}) { if ( exists $args{'body'}) {
$_body_data = $args->{'body'}; $_body_data = $args{'body'};
} }
# for HTTP post (form) # for HTTP post (form)
@ -177,11 +173,11 @@ sub new {
# @return Order # @return Order
# #
sub get_order_by_id { sub get_order_by_id {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'order_id' is set # verify the required parameter 'order_id' is set
unless (exists $args->{'order_id'}) { unless (exists $args{'order_id'}) {
croak("Missing the required parameter 'order_id' when calling get_order_by_id"); croak("Missing the required parameter 'order_id' when calling get_order_by_id");
} }
@ -205,9 +201,9 @@ sub new {
# path params # path params
if ( exists $args->{'order_id'}) { if ( exists $args{'order_id'}) {
my $_base_variable = "{" . "orderId" . "}"; my $_base_variable = "{" . "orderId" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'order_id'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'order_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }
@ -238,11 +234,11 @@ sub new {
# @return void # @return void
# #
sub delete_order { sub delete_order {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'order_id' is set # verify the required parameter 'order_id' is set
unless (exists $args->{'order_id'}) { unless (exists $args{'order_id'}) {
croak("Missing the required parameter 'order_id' when calling delete_order"); croak("Missing the required parameter 'order_id' when calling delete_order");
} }
@ -266,9 +262,9 @@ sub new {
# path params # path params
if ( exists $args->{'order_id'}) { if ( exists $args{'order_id'}) {
my $_base_variable = "{" . "orderId" . "}"; my $_base_variable = "{" . "orderId" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'order_id'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'order_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }

80
samples/client/petstore/perl/lib/WWW/SwaggerClient/UserApi.pm
View File

@ -49,21 +49,17 @@ our @EXPORT_OK = qw(
sub new { sub new {
my $class = shift; my $class = shift;
my $default_api_client = WWW::SwaggerClient::APIClient->new; my $default_api_client = WWW::SwaggerClient::APIClient->new;
#TODO fix default my (%self) = (
#my (%arg) = ( 'api_client' => $default_api_client,
# 'api_client' => $default_api_client, @_
# @_ );
#);
#croak("You must supply an API client") #my $self = {
# unless $options->{api_client}; # #api_client => $options->{api_client}
# api_client => $default_api_client
#};
my $self = { bless \%self, $class;
#api_client => $options->{api_client}
api_client => $default_api_client
};
bless $self, $class;
} }
@ -77,7 +73,7 @@ sub new {
# @return void # @return void
# #
sub create_user { sub create_user {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -103,8 +99,8 @@ sub new {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args->{'body'}) { if ( exists $args{'body'}) {
$_body_data = $args->{'body'}; $_body_data = $args{'body'};
} }
# for HTTP post (form) # for HTTP post (form)
@ -128,7 +124,7 @@ sub new {
# @return void # @return void
# #
sub create_users_with_array_input { sub create_users_with_array_input {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -154,8 +150,8 @@ sub new {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args->{'body'}) { if ( exists $args{'body'}) {
$_body_data = $args->{'body'}; $_body_data = $args{'body'};
} }
# for HTTP post (form) # for HTTP post (form)
@ -179,7 +175,7 @@ sub new {
# @return void # @return void
# #
sub create_users_with_list_input { sub create_users_with_list_input {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -205,8 +201,8 @@ sub new {
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args->{'body'}) { if ( exists $args{'body'}) {
$_body_data = $args->{'body'}; $_body_data = $args{'body'};
} }
# for HTTP post (form) # for HTTP post (form)
@ -231,7 +227,7 @@ sub new {
# @return string # @return string
# #
sub login_user { sub login_user {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -252,11 +248,11 @@ sub new {
$header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json'; $header_params->{'Content-Type'} = scalar(@_header_content_type) > 0 ? $_header_content_type[0] : 'application/json';
# query params # query params
if ( exists $args->{'username'}) { if ( exists $args{'username'}) {
$query_params->{'username'} = WWW::::APIClient::to_query_value($args->{'username'}); $query_params->{'username'} = WWW::::APIClient::to_query_value($args{'username'});
} # query params } # query params
if ( exists $args->{'password'}) { if ( exists $args{'password'}) {
$query_params->{'password'} = WWW::::APIClient::to_query_value($args->{'password'}); $query_params->{'password'} = WWW::::APIClient::to_query_value($args{'password'});
} }
@ -287,7 +283,7 @@ sub new {
# @return void # @return void
# #
sub logout_user { sub logout_user {
my ($self, $args) = @_; my ($self, %args) = @_;
@ -335,11 +331,11 @@ sub new {
# @return User # @return User
# #
sub get_user_by_name { sub get_user_by_name {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'username' is set # verify the required parameter 'username' is set
unless (exists $args->{'username'}) { unless (exists $args{'username'}) {
croak("Missing the required parameter 'username' when calling get_user_by_name"); croak("Missing the required parameter 'username' when calling get_user_by_name");
} }
@ -363,9 +359,9 @@ sub new {
# path params # path params
if ( exists $args->{'username'}) { if ( exists $args{'username'}) {
my $_base_variable = "{" . "username" . "}"; my $_base_variable = "{" . "username" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'username'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'username'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }
@ -397,11 +393,11 @@ sub new {
# @return void # @return void
# #
sub update_user { sub update_user {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'username' is set # verify the required parameter 'username' is set
unless (exists $args->{'username'}) { unless (exists $args{'username'}) {
croak("Missing the required parameter 'username' when calling update_user"); croak("Missing the required parameter 'username' when calling update_user");
} }
@ -425,16 +421,16 @@ sub new {
# path params # path params
if ( exists $args->{'username'}) { if ( exists $args{'username'}) {
my $_base_variable = "{" . "username" . "}"; my $_base_variable = "{" . "username" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'username'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'username'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }
my $_body_data; my $_body_data;
# body params # body params
if ( exists $args->{'body'}) { if ( exists $args{'body'}) {
$_body_data = $args->{'body'}; $_body_data = $args{'body'};
} }
# for HTTP post (form) # for HTTP post (form)
@ -458,11 +454,11 @@ sub new {
# @return void # @return void
# #
sub delete_user { sub delete_user {
my ($self, $args) = @_; my ($self, %args) = @_;
# verify the required parameter 'username' is set # verify the required parameter 'username' is set
unless (exists $args->{'username'}) { unless (exists $args{'username'}) {
croak("Missing the required parameter 'username' when calling delete_user"); croak("Missing the required parameter 'username' when calling delete_user");
} }
@ -486,9 +482,9 @@ sub new {
# path params # path params
if ( exists $args->{'username'}) { if ( exists $args{'username'}) {
my $_base_variable = "{" . "username" . "}"; my $_base_variable = "{" . "username" . "}";
my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args->{'username'}); my $_base_value = WWW::SwaggerClient::APIClient::to_path_value($args{'username'});
$_resource_path =~ s/$_base_variable/$_base_value/g; $_resource_path =~ s/$_base_variable/$_base_value/g;
} }

18
samples/client/petstore/perl/test.pl Normal file → Executable file
View File

@ -17,10 +17,10 @@ my $api = WWW::SwaggerClient::PetApi->new();
my $pet_id = 88; my $pet_id = 88;
my $category = WWW::SwaggerClient::Object::Category->new({'id' => '2', 'name' => 'perl'}); my $category = WWW::SwaggerClient::Object::Category->new('id' => '2', 'name' => 'perl');
my $tag = WWW::SwaggerClient::Object::Tag->new({'id' => '1', 'name' => 'just kidding'}); my $tag = WWW::SwaggerClient::Object::Tag->new('id' => '1', 'name' => 'just kidding');
my $pet = WWW::SwaggerClient::Object::Pet->new({'id' => $pet_id, 'name' => 'perl test', my $pet = WWW::SwaggerClient::Object::Pet->new('id' => $pet_id, 'name' => 'perl test',
"photoUrls" => ['123', 'oop'], 'tags' => [$tag], 'status' => 'pending', 'category' => $category}); "photoUrls" => ['123', 'oop'], 'tags' => [$tag], 'status' => 'pending', 'category' => $category);
print "\npet(object)=".Dumper $pet; print "\npet(object)=".Dumper $pet;
my $json = JSON->new->convert_blessed; my $json = JSON->new->convert_blessed;
@ -30,11 +30,11 @@ $new_pet = $new_pet->from_hash($pet->to_hash);
print "new_pet(hash):".Dumper($new_pet->to_hash); print "new_pet(hash):".Dumper($new_pet->to_hash);
print "\nTest Petstore endpoints\n"; print "\nTest Petstore endpoints\n";
#print "\nupload_file:".Dumper $api->upload_file({pet_id => $pet_id, additional_metadata => 'testabc', file => '/var/tmp/f5.jpg'}); print "\nupload_file:".Dumper $api->upload_file(pet_id => $pet_id, additional_metadata => 'testabc', file => '/var/tmp/f5.jpg');
print "\nadd_pet:".Dumper $api->add_pet({body => $pet}); print "\nadd_pet:".Dumper $api->add_pet(body => $pet);
print "\nget_pet_by_id:".Dumper $api->get_pet_by_id({pet_id => $pet_id}); print "\nget_pet_by_id:".Dumper $api->get_pet_by_id(pet_id => $pet_id);
print "\nupdate_pet_with_form:".Dumper $api->update_pet_with_form({pet_id => $pet_id, name => 'test_name', status => 'test status'}); print "\nupdate_pet_with_form:".Dumper $api->update_pet_with_form(pet_id => $pet_id, name => 'test_name', status => 'test status');
print "\ndelete_pet:".Dumper $api->delete_pet({pet_id => $pet_id}); print "\ndelete_pet:".Dumper $api->delete_pet(pet_id => $pet_id);