seralization and deserialization work, get_pet_by_id and

update_pet_with_form work

samples/client/petstore/perl/test.pl

@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+#
+#
+
+use strict;
+use warnings;
+use WWW::SwaggerClient::PetApi;
+use WWW::SwaggerClient::APIClient;
+use WWW::SwaggerClient::Model::Pet;
+use WWW::SwaggerClient::Model::Tag;
+use WWW::SwaggerClient::Model::Category;
+use JSON;
+use Data::Dumper;
+
+my $api = WWW::SwaggerClient::PetApi->new();
+
+print WWW::SwaggerClient::APIClient::to_form_value('testing 123');
+
+my $pet_id = 5;
+
+my $tag =  WWW::SwaggerClient::Model::Tag->new({'id' => 'tag1', 'name' => 'just kidding', 
+    "photoUrls" => ['123', 'oop']});
+my $pet =  WWW::SwaggerClient::Model::Pet->new({'id' => 5, 'name' => 'haha', 
+    "photoUrls" => ['123', 'oop'], 'tags' => [$tag]});
+
+##print Dumper $pet;
+
+my $json = JSON->new->convert_blessed;
+
+#print $json->convert_blessed->encode($pet);
+#print $json->get_convert_blessed;
+##print Dumper($pet->to_hash);
+
+
+#my $pet2 = WWW::SwaggerClient::Model::Pet->from_json($pet->to_hash);
+my $pet2 = WWW::SwaggerClient::Model::Pet->new();
+$pet2 = $pet2->from_hash($pet->to_hash);
+#$pet2->from_json($pet->to_hash);
+##print Dumper($pet2->to_hash);
+print "============================\n";
+print Dumper  $api->get_pet_by_id({pet_id => $pet_id});
+print Dumper  $api->update_pet_with_form({pet_id => $pet_id, name => 'test_name', status => 'test status'});