1 package Test::Serialize;
5 use lib ("$FindBin::Bin/../lib");
10 use Catalyst::Runtime '5.70';
15 name => 'Test::Serialize',
17 'stash_key' => 'rest',
19 'text/html' => 'YAML::HTML',
20 'text/xml' => 'XML::Simple',
21 'text/x-yaml' => 'YAML',
22 'text/x-json' => 'JSON',
23 'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
24 'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ],
25 'text/x-data-taxi' => [ 'Data::Serializer', 'Data::Taxi' ],
26 'application/x-storable' => [ 'Data::Serializer', 'Storable' ],
27 'application/x-freezethaw' => [ 'Data::Serializer', 'FreezeThaw' ],
28 'text/x-config-general' => [ 'Data::Serializer', 'Config::General' ],
29 'text/x-php-serialization' => [ 'Data::Serializer', 'PHP::Serialization' ],
30 'text/broken' => 'Broken',
37 sub monkey_put :Local :ActionClass('Deserialize') {
38 my ( $self, $c ) = @_;
39 $c->res->output($c->req->data->{'sushi'});
42 sub monkey_get :Local :ActionClass('Serialize') {
43 my ( $self, $c ) = @_;
44 $c->stash->{'rest'} = { monkey => 'likes chicken!', };