t/lib/Test/Serialize/Controller/REST.pm

   1 package Test::Serialize::Controller::REST;
   2
   3 use namespace::autoclean;
   4 use Moose;
   5
   6 BEGIN { extends qw/Catalyst::Controller::REST/ };
   7
   8 __PACKAGE__->config(
   9     'namespace' => '',
  10     'stash_key' => 'rest',
  11     'map'       => {
  12         'text/html'          => 'YAML::HTML',
  13         'text/xml'           => 'XML::Simple',
  14         'text/x-yaml'        => 'YAML',
  15         'application/json'   => 'JSON',
  16         'text/x-json'        => 'JSON',
  17         'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
  18         'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ],
  19         'text/x-data-taxi'   => [ 'Data::Serializer', 'Data::Taxi' ],
  20         'application/x-storable' => [ 'Data::Serializer', 'Storable' ],
  21         'application/x-freezethaw' =>
  22             [ 'Data::Serializer', 'FreezeThaw' ],
  23         'text/x-config-general' =>
  24             [ 'Data::Serializer', 'Config::General' ],
  25         'text/x-php-serialization' =>
  26              [ 'Data::Serializer', 'PHP::Serialization' ],
  27         'text/view'   => [ 'View', 'Simple' ],
  28         'text/explodingview' => [ 'View', 'Awful' ],
  29         'text/broken' => 'Broken',
  30         'text/javascript', => 'JSONP',
  31         'application/x-javascript' => 'JSONP',
  32         'application/javascript' => 'JSONP',
  33         'text/my-csv' => [
  34             'Callback', {
  35                 deserialize => sub { return {split /,/, shift } },
  36                 serialize   => sub { my $d = shift; join ',', %$d }
  37             }
  38         ],
  39     },
  40 );
  41
  42 sub monkey_put : Local : ActionClass('Deserialize') {
  43     my ( $self, $c ) = @_;
  44     if ( ref($c->req->data) eq "HASH" ) {
  45         my $out = ($c->req->data->{'sushi'}||'') . ($c->req->data->{'chicken'}||'');
  46         utf8::encode($out);
  47         $c->res->output( $out );
  48     } else {
  49         $c->res->output(1);
  50     }
  51 }
  52
  53 sub monkey_get : Local : ActionClass('Serialize') {
  54     my ( $self, $c ) = @_;
  55     $c->stash->{'rest'} = { monkey => 'likes chicken!', };
  56 }
  57
  58 sub xss_get : Local : ActionClass('Serialize') {
  59     my ( $self, $c ) = @_;
  60     $c->stash->{'rest'} = { monkey => 'likes chicken > sushi!', };
  61 }
  62
  63
  64 1;