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
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -31,12 +31,12 @@ my $attribute_map = {
# new object
sub new {
my ($class, $args) = @_;
my ($class, %args) = @_;
my $self = {
#
'id' => $args->{'id'},
'id' => $args{'id'},
#
'name' => $args->{'name'}
'name' => $args{'name'}
};
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
sub new {
my ($class, $args) = @_;
my ($class, %args) = @_;
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
'status' => $args->{'status'},
'status' => $args{'status'},
#
'complete' => $args->{'complete'}
'complete' => $args{'complete'}
};
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
sub new {
my ($class, $args) = @_;
my ($class, %args) = @_;
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
'status' => $args->{'status'}
'status' => $args{'status'}
};
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
sub new {
my ($class, $args) = @_;
my ($class, %args) = @_;
my $self = {
#
'id' => $args->{'id'},
'id' => $args{'id'},
#
'name' => $args->{'name'}
'name' => $args{'name'}
};
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
sub new {
my ($class, $args) = @_;
my ($class, %args) = @_;
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' => $args->{'userStatus'}
'user_status' => $args{'userStatus'}
};
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 {
my $class = shift;
my $default_api_client = WWW::SwaggerClient::APIClient->new;
#TODO fix default
#my (%arg) = (
# 'api_client' => $default_api_client,
# @_
#);
my (%self) = (
'api_client' => $default_api_client,
@_
);
#croak("You must supply an API client")
# unless $options->{api_client};
#my $self = {
# #api_client => $options->{api_client}
# api_client => $default_api_client
#};
my $self = {
#api_client => $options->{api_client}
api_client => $default_api_client
};
bless $self, $class;
bless \%self, $class;
}
@@ -77,7 +73,7 @@ sub new {
# @return void
#
sub update_pet {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -103,8 +99,8 @@ sub new {
my $_body_data;
# body params
if ( exists $args->{'body'}) {
$_body_data = $args->{'body'};
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# for HTTP post (form)
@@ -128,7 +124,7 @@ sub new {
# @return void
#
sub add_pet {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -154,8 +150,8 @@ sub new {
my $_body_data;
# body params
if ( exists $args->{'body'}) {
$_body_data = $args->{'body'};
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# for HTTP post (form)
@@ -179,7 +175,7 @@ sub new {
# @return array[Pet]
#
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';
# query params
if ( exists $args->{'status'}) {
$query_params->{'status'} = WWW::::APIClient::to_query_value($args->{'status'});
if ( exists $args{'status'}) {
$query_params->{'status'} = WWW::::APIClient::to_query_value($args{'status'});
}
@@ -233,7 +229,7 @@ sub new {
# @return array[Pet]
#
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';
# query params
if ( exists $args->{'tags'}) {
$query_params->{'tags'} = WWW::::APIClient::to_query_value($args->{'tags'});
if ( exists $args{'tags'}) {
$query_params->{'tags'} = WWW::::APIClient::to_query_value($args{'tags'});
}
@@ -287,11 +283,11 @@ sub new {
# @return Pet
#
sub get_pet_by_id {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -315,9 +311,9 @@ sub new {
# path params
if ( exists $args->{'pet_id'}) {
if ( exists $args{'pet_id'}) {
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;
}
@@ -350,11 +346,11 @@ sub new {
# @return void
#
sub update_pet_with_form {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -378,20 +374,20 @@ sub new {
# path params
if ( exists $args->{'pet_id'}) {
if ( exists $args{'pet_id'}) {
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;
}
# 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
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;
@@ -419,11 +415,11 @@ sub new {
# @return void
#
sub delete_pet {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -446,13 +442,13 @@ sub new {
# header params
if ( exists $args->{'api_key'}) {
$header_params->{'api_key'} = WWW::SwaggerClient::APIClient::to_header_value($args->{'api_key'});
if ( exists $args{'api_key'}) {
$header_params->{'api_key'} = WWW::SwaggerClient::APIClient::to_header_value($args{'api_key'});
}
# path params
if ( exists $args->{'pet_id'}) {
if ( exists $args{'pet_id'}) {
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;
}
@@ -482,11 +478,11 @@ sub new {
# @return void
#
sub upload_file {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -510,20 +506,20 @@ sub new {
# path params
if ( exists $args->{'pet_id'}) {
if ( exists $args{'pet_id'}) {
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;
}
# 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
if ( exists $args->{'file'} ) {
if ( exists $args{'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 {
my $class = shift;
my $default_api_client = WWW::SwaggerClient::APIClient->new;
#TODO fix default
#my (%arg) = (
# 'api_client' => $default_api_client,
# @_
#);
my (%self) = (
'api_client' => $default_api_client,
@_
);
#croak("You must supply an API client")
# unless $options->{api_client};
#my $self = {
# #api_client => $options->{api_client}
# api_client => $default_api_client
#};
my $self = {
#api_client => $options->{api_client}
api_client => $default_api_client
};
bless $self, $class;
bless \%self, $class;
}
@@ -72,7 +68,7 @@ sub new {
# @return map[string,int]
#
sub get_inventory {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -123,7 +119,7 @@ sub new {
# @return Order
#
sub place_order {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -149,8 +145,8 @@ sub new {
my $_body_data;
# body params
if ( exists $args->{'body'}) {
$_body_data = $args->{'body'};
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# for HTTP post (form)
@@ -177,11 +173,11 @@ sub new {
# @return Order
#
sub get_order_by_id {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -205,9 +201,9 @@ sub new {
# path params
if ( exists $args->{'order_id'}) {
if ( exists $args{'order_id'}) {
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;
}
@@ -238,11 +234,11 @@ sub new {
# @return void
#
sub delete_order {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -266,9 +262,9 @@ sub new {
# path params
if ( exists $args->{'order_id'}) {
if ( exists $args{'order_id'}) {
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;
}

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

@@ -49,21 +49,17 @@ our @EXPORT_OK = qw(
sub new {
my $class = shift;
my $default_api_client = WWW::SwaggerClient::APIClient->new;
#TODO fix default
#my (%arg) = (
# 'api_client' => $default_api_client,
# @_
#);
my (%self) = (
'api_client' => $default_api_client,
@_
);
#croak("You must supply an API client")
# unless $options->{api_client};
#my $self = {
# #api_client => $options->{api_client}
# api_client => $default_api_client
#};
my $self = {
#api_client => $options->{api_client}
api_client => $default_api_client
};
bless $self, $class;
bless \%self, $class;
}
@@ -77,7 +73,7 @@ sub new {
# @return void
#
sub create_user {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -103,8 +99,8 @@ sub new {
my $_body_data;
# body params
if ( exists $args->{'body'}) {
$_body_data = $args->{'body'};
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# for HTTP post (form)
@@ -128,7 +124,7 @@ sub new {
# @return void
#
sub create_users_with_array_input {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -154,8 +150,8 @@ sub new {
my $_body_data;
# body params
if ( exists $args->{'body'}) {
$_body_data = $args->{'body'};
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# for HTTP post (form)
@@ -179,7 +175,7 @@ sub new {
# @return void
#
sub create_users_with_list_input {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -205,8 +201,8 @@ sub new {
my $_body_data;
# body params
if ( exists $args->{'body'}) {
$_body_data = $args->{'body'};
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# for HTTP post (form)
@@ -231,7 +227,7 @@ sub new {
# @return string
#
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';
# query params
if ( exists $args->{'username'}) {
$query_params->{'username'} = WWW::::APIClient::to_query_value($args->{'username'});
if ( exists $args{'username'}) {
$query_params->{'username'} = WWW::::APIClient::to_query_value($args{'username'});
} # query params
if ( exists $args->{'password'}) {
$query_params->{'password'} = WWW::::APIClient::to_query_value($args->{'password'});
if ( exists $args{'password'}) {
$query_params->{'password'} = WWW::::APIClient::to_query_value($args{'password'});
}
@@ -287,7 +283,7 @@ sub new {
# @return void
#
sub logout_user {
my ($self, $args) = @_;
my ($self, %args) = @_;
@@ -335,11 +331,11 @@ sub new {
# @return User
#
sub get_user_by_name {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -363,9 +359,9 @@ sub new {
# path params
if ( exists $args->{'username'}) {
if ( exists $args{'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;
}
@@ -397,11 +393,11 @@ sub new {
# @return void
#
sub update_user {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -425,16 +421,16 @@ sub new {
# path params
if ( exists $args->{'username'}) {
if ( exists $args{'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;
}
my $_body_data;
# body params
if ( exists $args->{'body'}) {
$_body_data = $args->{'body'};
if ( exists $args{'body'}) {
$_body_data = $args{'body'};
}
# for HTTP post (form)
@@ -458,11 +454,11 @@ sub new {
# @return void
#
sub delete_user {
my ($self, $args) = @_;
my ($self, %args) = @_;
# 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");
}
@@ -486,9 +482,9 @@ sub new {
# path params
if ( exists $args->{'username'}) {
if ( exists $args{'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;
}