From: jshirley Date: Thu, 3 Jan 2008 23:22:16 +0000 (+0000) Subject: Hey, how about I actually add in my test controller class? X-Git-Tag: 1.08~265 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-Serialize-Data-Serializer.git;a=commitdiff_plain;h=86fe5297066555745b52e9e1542b5170551bb3a3 Hey, how about I actually add in my test controller class? --- diff --git a/t/lib/Test/Serialize/Controller/REST.pm b/t/lib/Test/Serialize/Controller/REST.pm new file mode 100644 index 0000000..abeb01f --- /dev/null +++ b/t/lib/Test/Serialize/Controller/REST.pm @@ -0,0 +1,46 @@ +package Test::Serialize::Controller::REST; + +use warnings; +use strict; + +use base qw/Catalyst::Controller::REST/; + +__PACKAGE__->config( + 'namespace' => '', + 'stash_key' => 'rest', + 'map' => { + 'text/html' => 'YAML::HTML', + 'text/xml' => 'XML::Simple', + 'text/x-yaml' => 'YAML', + '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' ], + 'application/x-storable' => [ 'Data::Serializer', 'Storable' ], + 'application/x-freezethaw' => + [ 'Data::Serializer', 'FreezeThaw' ], + 'text/x-config-general' => + [ '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" ) { + $c->res->output( $c->req->data->{'sushi'} ); + } else { + $c->res->output(1); + } +} + +sub monkey_get : Local : ActionClass('Serialize') { + my ( $self, $c ) = @_; + $c->stash->{'rest'} = { monkey => 'likes chicken!', }; +} + +1; +