X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTest%2FSerialize.pm;fp=t%2Flib%2FTest%2FSerialize.pm;h=cb7c605eb1c19a1d882d6e0f086c7de7f8196ef3;hb=9a76221ea1453d244e65429d3e10b5bde42d7733;hp=f549e77b12cd10a05d91751ae43803ef01d697da;hpb=51cc8fe9230a36356a847ee2e443f47f3e390873;p=catagits%2FCatalyst-Action-REST.git diff --git a/t/lib/Test/Serialize.pm b/t/lib/Test/Serialize.pm index f549e77..cb7c605 100644 --- a/t/lib/Test/Serialize.pm +++ b/t/lib/Test/Serialize.pm @@ -1,3 +1,4 @@ + package Test::Serialize; use FindBin; @@ -12,7 +13,7 @@ use Catalyst::Runtime '5.70'; use Catalyst; __PACKAGE__->config( - name => 'Test::Serialize', + name => 'Test::Serialize', serialize => { 'stash_key' => 'rest', 'map' => { @@ -22,24 +23,34 @@ __PACKAGE__->config( '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/broken' => 'Broken', + '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', }, } ); __PACKAGE__->setup; +__PACKAGE__->setup_component("Test::Serialize::View::Simple"); -sub monkey_put :Local :ActionClass('Deserialize') { +sub monkey_put : Local : ActionClass('Deserialize') { my ( $self, $c ) = @_; - $c->res->output($c->req->data->{'sushi'}); + + 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') { +sub monkey_get : Local : ActionClass('Serialize') { my ( $self, $c ) = @_; $c->stash->{'rest'} = { monkey => 'likes chicken!', }; }