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

update type mapping, update test.pl to use local file for testing upload

Browse Source
This commit is contained in:
William Cheng 2015-05-08 03:56:35 +08:00
parent 063a1ffd36
commit fc43828c20
10 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java
View File

@ -57,7 +57,6 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
additionalProperties.put("artifactVersion", artifactVersion);
languageSpecificPrimitives.add("int");
languageSpecificPrimitives.add("Math::BigInt");
languageSpecificPrimitives.add("double");
languageSpecificPrimitives.add("string");
languageSpecificPrimitives.add("boolean");
@ -66,7 +65,7 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
languageSpecificPrimitives.add("HASH");
typeMapping.put("integer", "int");
typeMapping.put("long", "Math::BigInt");
typeMapping.put("long", "int");
typeMapping.put("float", "double");
typeMapping.put("double", "double");
typeMapping.put("boolean", "boolean");

2
modules/swagger-codegen/src/main/resources/perl/BaseObject.mustache
View File

@ -65,7 +65,7 @@ sub _deserialize {
if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep( /^$type$/, ('int', 'Math::BigInt', 'double', 'string', 'boolean'))) {
} elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data;
} else { # hash(model)
my $_instance = eval "WWW::{{invokerPackage}}::Object::$type->new()";

2
samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/BaseObject.pm
View File

@ -65,7 +65,7 @@ sub _deserialize {
if ($type eq 'DateTime') {
return DateTime->from_epoch(epoch => str2time($data));
} elsif ( grep( /^$type$/, ('int', 'Math::BigInt', 'double', 'string', 'boolean'))) {
} elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
return $data;
} else { # hash(model)
my $_instance = eval "WWW::SwaggerClient::Object::$type->new()";

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

@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
#
my $swagger_types = {
'id' => 'Math::BigInt',
'id' => 'int',
'name' => 'string'
};

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

@ -20,8 +20,8 @@ use base "WWW::SwaggerClient::Object::BaseObject";
#
my $swagger_types = {
'id' => 'Math::BigInt',
'pet_id' => 'Math::BigInt',
'id' => 'int',
'pet_id' => 'int',
'quantity' => 'int',
'ship_date' => 'DateTime',
'status' => 'string',

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

@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
#
my $swagger_types = {
'id' => 'Math::BigInt',
'id' => 'int',
'category' => 'Category',
'name' => 'string',
'photo_urls' => 'ARRAY[string]',

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

@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
#
my $swagger_types = {
'id' => 'Math::BigInt',
'id' => 'int',
'name' => 'string'
};

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

@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
#
my $swagger_types = {
'id' => 'Math::BigInt',
'id' => 'int',
'username' => 'string',
'first_name' => 'string',
'last_name' => 'string',

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

@ -279,7 +279,7 @@ sub new {
#
# Find pet by ID
#
# @param Math::BigInt $pet_id ID of pet that needs to be fetched (required)
# @param int $pet_id ID of pet that needs to be fetched (required)
# @return Pet
#
sub get_pet_by_id {
@ -411,7 +411,7 @@ sub new {
# Deletes a pet
#
# @param string $api_key (required)
# @param Math::BigInt $pet_id Pet id to delete (required)
# @param int $pet_id Pet id to delete (required)
# @return void
#
sub delete_pet {
@ -472,7 +472,7 @@ sub new {
#
# uploads an image
#
# @param Math::BigInt $pet_id ID of pet to update (required)
# @param int $pet_id ID of pet to update (required)
# @param string $additional_metadata Additional data to pass to server (required)
# @param file $file file to upload (required)
# @return void

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

@ -15,7 +15,7 @@ use DateTime;
my $api = WWW::SwaggerClient::PetApi->new();
my $pet_id = 88;
my $pet_id = 10008;
my $category = WWW::SwaggerClient::Object::Category->new('id' => '2', 'name' => 'perl');
my $tag = WWW::SwaggerClient::Object::Tag->new('id' => '1', 'name' => 'just kidding');
@ -30,7 +30,7 @@ $new_pet = $new_pet->from_hash($pet->to_hash);
print "new_pet(hash):".Dumper($new_pet->to_hash);
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 => './test.pl');
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 "\nupdate_pet_with_form:".Dumper $api->update_pet_with_form(pet_id => $pet_id, name => 'test_name', status => 'test status');