Split into new dist
[catagits/Catalyst-Action-Serialize-Data-Serializer.git] / t / lib / Test / Serialize / Controller / REST.pm
index dad5483..bec3df1 100644 (file)
@@ -1,19 +1,14 @@
 package Test::Serialize::Controller::REST;
 
-use warnings;
-use strict;
+use namespace::autoclean;
+use Moose;
 
-use base qw/Catalyst::Controller::REST/;
+BEGIN { extends qw/Catalyst::Controller::REST/ };
 
 __PACKAGE__->config(
     'namespace' => '',
     'stash_key' => 'rest',
     'map'       => {
-        'text/html'          => 'YAML::HTML',
-        'text/xml'           => 'XML::Simple',
-        'text/x-yaml'        => 'YAML',
-        'application/json'   => 'JSON',
-        'text/x-json'        => 'JSON',
         'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
         'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ],
         'text/x-data-taxi'   => [ 'Data::Serializer', 'Data::Taxi' ],
@@ -24,15 +19,13 @@ __PACKAGE__->config(
             [ 'Data::Serializer', 'Config::General' ],
         'text/x-php-serialization' =>
              [ 'Data::Serializer', 'PHP::Serialization' ],
-        'text/view'   => [ 'View', 'Simple' ],
-        'text/broken' => 'Broken',
     },
 );
 
 sub monkey_put : Local : ActionClass('Deserialize') {
     my ( $self, $c ) = @_;
     if ( ref($c->req->data) eq "HASH" ) {
-        my $out = $c->req->data->{'sushi'} . $c->req->data->{'chicken'}||'';
+        my $out = ($c->req->data->{'sushi'}||'') . ($c->req->data->{'chicken'}||'');
         utf8::encode($out);
         $c->res->output( $out );
     } else {
@@ -45,4 +38,10 @@ sub monkey_get : Local : ActionClass('Serialize') {
     $c->stash->{'rest'} = { monkey => 'likes chicken!', };
 }
 
+sub xss_get : Local : ActionClass('Serialize') {
+    my ( $self, $c ) = @_;
+    $c->stash->{'rest'} = { monkey => 'likes chicken > sushi!', };
+}
+
+
 1;