allow request/response deserialization/serialization by callback

[catagits/Catalyst-Action-REST.git] / t / lib / Test / Serialize / Controller / REST.pm

diff --git a/t/lib/Test/Serialize/Controller/REST.pm b/t/lib/Test/Serialize/Controller/REST.pm
index 5b7c4ec..fa1cac2 100644 (file)
--- a/t/lib/Test/Serialize/Controller/REST.pm
+++ b/t/lib/Test/Serialize/Controller/REST.pm
@@ -30,6 +30,12 @@ __PACKAGE__->config(
         'text/javascript', => 'JSONP',
         'application/x-javascript' => 'JSONP',
         'application/javascript' => 'JSONP',
+        'text/my-csv' => [
+            'Callback', {
+                deserialize => sub { return {split /,/, shift } },
+                serialize   => sub { my $d = shift; join ',', %$d }
+            }
+        ],
     },
 );