1 package Test::Serialize::Controller::REST;
3 use namespace::autoclean;
6 BEGIN { extends qw/Catalyst::Controller::REST/ };
10 'stash_key' => 'rest',
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',
33 sub monkey_put : Local : ActionClass('Deserialize') {
34 my ( $self, $c ) = @_;
35 if ( ref($c->req->data) eq "HASH" ) {
36 my $out = $c->req->data->{'sushi'} . $c->req->data->{'chicken'}||'';
38 $c->res->output( $out );
44 sub monkey_get : Local : ActionClass('Serialize') {
45 my ( $self, $c ) = @_;
46 $c->stash->{'rest'} = { monkey => 'likes chicken!', };