fix return type in perl doc

Author: wing328

samples/client/petstore/perl/README.md

@@ -8,7 +8,7 @@ WWW::SwaggerClient::Role - a Moose role for the Swagger Petstore
 
 Automatically generated by the Perl Swagger Codegen project: 
 
-- Build date: 2016-03-06T15:35:17.711+08:00
+- Build date: 2016-03-08T16:48:08.361+08:00
 - Build package: class io.swagger.codegen.languages.PerlClientCodegen
 - Codegen version: 
 
@@ -256,7 +256,7 @@ Class | Method | HTTP request | Description
  - [WWW::SwaggerClient::Object::Category](docs/Category.md)
  - [WWW::SwaggerClient::Object::Pet](docs/Pet.md)
  - [WWW::SwaggerClient::Object::Tag](docs/Tag.md)
- - [WWW::SwaggerClient::Object::ObjectReturn](docs/ObjectReturn.md)
+ - [WWW::SwaggerClient::Object::ModelReturn](docs/ModelReturn.md)
  - [WWW::SwaggerClient::Object::Order](docs/Order.md)
  - [WWW::SwaggerClient::Object::SpecialModelName](docs/SpecialModelName.md)
  - [WWW::SwaggerClient::Object::InlineResponse200](docs/InlineResponse200.md)

samples/client/petstore/perl/docs/PetApi.md

@@ -24,13 +24,13 @@ Update an existing pet
 
 
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $body = WWW::SwaggerClient::Object::Pet->new(); # [Pet] Pet object that needs to be added to the store
 
 eval { 
-    my $result = $api->update_pet(body => $body);
+    $api->update_pet(body => $body);
 };
 if ($@) {
     warn "Exception when calling update_pet: $@\n";
@@ -66,13 +66,13 @@ Add a new pet to the store
 
 
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $body = WWW::SwaggerClient::Object::Pet->new(); # [Pet] Pet object that needs to be added to the store
 
 eval { 
-    my $result = $api->add_pet(body => $body);
+    $api->add_pet(body => $body);
 };
 if ($@) {
     warn "Exception when calling add_pet: $@\n";
@@ -102,13 +102,13 @@ petstore_auth
 
 
 # **find_pets_by_status**
-> find_pets_by_status(status => $status)
+> ARRAY[Pet] find_pets_by_status(status => $status)
 
 Finds Pets by status
 
 Multiple status values can be provided with comma separated strings
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $status = (); # [ARRAY[string]] Status values that need to be considered for query
@@ -144,13 +144,13 @@ petstore_auth
 
 
 # **find_pets_by_tags**
-> find_pets_by_tags(tags => $tags)
+> ARRAY[Pet] find_pets_by_tags(tags => $tags)
 
 Finds Pets by tags
 
 Muliple tags can be provided with comma seperated strings. Use tag1, tag2, tag3 for testing.
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $tags = (); # [ARRAY[string]] Tags to filter by
@@ -186,13 +186,13 @@ petstore_auth
 
 
 # **get_pet_by_id**
-> get_pet_by_id(pet_id => $pet_id)
+> Pet get_pet_by_id(pet_id => $pet_id)
 
 Find pet by ID
 
 Returns a pet when ID < 10.  ID > 10 or nonintegers will simulate API error conditions
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $pet_id = 789; # [int] ID of pet that needs to be fetched
@@ -234,15 +234,15 @@ Updates a pet in the store with form data
 
 
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $pet_id = 'pet_id_example'; # [string] ID of pet that needs to be updated
 my $name = 'name_example'; # [string] Updated name of the pet
 my $status = 'status_example'; # [string] Updated status of the pet
 
 eval { 
-    my $result = $api->update_pet_with_form(pet_id => $pet_id, name => $name, status => $status);
+    $api->update_pet_with_form(pet_id => $pet_id, name => $name, status => $status);
 };
 if ($@) {
     warn "Exception when calling update_pet_with_form: $@\n";
@@ -280,14 +280,14 @@ Deletes a pet
 
 
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $pet_id = 789; # [int] Pet id to delete
 my $api_key = 'api_key_example'; # [string] 
 
 eval { 
-    my $result = $api->delete_pet(pet_id => $pet_id, api_key => $api_key);
+    $api->delete_pet(pet_id => $pet_id, api_key => $api_key);
 };
 if ($@) {
     warn "Exception when calling delete_pet: $@\n";
@@ -324,15 +324,15 @@ uploads an image
 
 
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $pet_id = 789; # [int] ID of pet to update
 my $additional_metadata = 'additional_metadata_example'; # [string] Additional data to pass to server
 my $file = '/path/to/file.txt'; # [File] file to upload
 
 eval { 
-    my $result = $api->upload_file(pet_id => $pet_id, additional_metadata => $additional_metadata, file => $file);
+    $api->upload_file(pet_id => $pet_id, additional_metadata => $additional_metadata, file => $file);
 };
 if ($@) {
     warn "Exception when calling upload_file: $@\n";
@@ -364,13 +364,13 @@ petstore_auth
 
 
 # **get_pet_by_id_in_object**
-> get_pet_by_id_in_object(pet_id => $pet_id)
+> InlineResponse200 get_pet_by_id_in_object(pet_id => $pet_id)
 
 Fake endpoint to test inline arbitrary object return by 'Find pet by ID'
 
 Returns a pet when ID < 10.  ID > 10 or nonintegers will simulate API error conditions
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $pet_id = 789; # [int] ID of pet that needs to be fetched
@@ -406,13 +406,13 @@ api_keypetstore_auth
 
 
 # **pet_pet_idtesting_byte_arraytrue_get**
-> pet_pet_idtesting_byte_arraytrue_get(pet_id => $pet_id)
+> string pet_pet_idtesting_byte_arraytrue_get(pet_id => $pet_id)
 
 Fake endpoint to test byte array return by 'Find pet by ID'
 
 Returns a pet when ID < 10.  ID > 10 or nonintegers will simulate API error conditions
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $pet_id = 789; # [int] ID of pet that needs to be fetched
@@ -432,7 +432,7 @@ Name | Type | Description  | Notes
 
 ### Return type
 
-[**string**](string.md)
+**string**
 
 ### HTTP headers
 
@@ -454,13 +454,13 @@ Fake endpoint to test byte array in body parameter for adding a new pet to the s
 
 
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::PetApi->new();
 my $body = WWW::SwaggerClient::Object::string->new(); # [string] Pet object in the form of byte array
 
 eval { 
-    my $result = $api->add_pet_using_byte_array(body => $body);
+    $api->add_pet_using_byte_array(body => $body);
 };
 if ($@) {
     warn "Exception when calling add_pet_using_byte_array: $@\n";

samples/client/petstore/perl/docs/StoreApi.md

@@ -13,13 +13,13 @@ Method | HTTP request | Description
 
 
 # **find_orders_by_status**
-> find_orders_by_status(status => $status)
+> ARRAY[Order] find_orders_by_status(status => $status)
 
 Finds orders by status
 
 A single status value can be provided as a string
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::StoreApi->new();
 my $status = 'status_example'; # [string] Status value that needs to be considered for query
@@ -55,13 +55,13 @@ test_api_client_idtest_api_client_secret
 
 
 # **get_inventory**
-> get_inventory()
+> HASH[string,int] get_inventory()
 
 Returns pet inventories by status
 
 Returns a map of status codes to quantities
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::StoreApi->new();
 
@@ -79,7 +79,7 @@ Name | Type | Description  | Notes
 
 ### Return type
 
-[**HASH[string,int]**](HASH.md)
+**HASH[string,int]**
 
 ### HTTP headers
 
@@ -95,13 +95,13 @@ api_key
 
 
 # **get_inventory_in_object**
-> get_inventory_in_object()
+> object get_inventory_in_object()
 
 Fake endpoint to test arbitrary object return by 'Get inventory'
 
 Returns an arbitrary object which is actually a map of status codes to quantities
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::StoreApi->new();
 
@@ -119,7 +119,7 @@ Name | Type | Description  | Notes
 
 ### Return type
 
-[**object**](object.md)
+**object**
 
 ### HTTP headers
 
@@ -135,13 +135,13 @@ api_key
 
 
 # **place_order**
-> place_order(body => $body)
+> Order place_order(body => $body)
 
 Place an order for a pet
 
 
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::StoreApi->new();
 my $body = WWW::SwaggerClient::Object::Order->new(); # [Order] order placed for purchasing the pet
@@ -177,13 +177,13 @@ test_api_client_idtest_api_client_secret
 
 
 # **get_order_by_id**
-> get_order_by_id(order_id => $order_id)
+> Order get_order_by_id(order_id => $order_id)
 
 Find purchase order by ID
 
 For valid response try integer IDs with value <= 5 or > 10. Other values will generated exceptions
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::StoreApi->new();
 my $order_id = 'order_id_example'; # [string] ID of pet that needs to be fetched
@@ -225,13 +225,13 @@ Delete purchase order by ID
 
 For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors
 
-### Sample 
+### Example 
 ```perl
 my $api = WWW::SwaggerClient::StoreApi->new();
 my $order_id = 'order_id_example'; # [string] ID of the order that needs to be deleted
 
 eval { 
-    my $result = $api->delete_order(order_id => $order_id);
+    $api->delete_order(order_id => $order_id);
 };
 if ($@) {
     warn "Exception when calling delete_order: $@\n";