1 package Test::Serialize::Controller::JSON;
3 use namespace::autoclean;
6 BEGIN { extends qw/Catalyst::Controller::REST/ };
14 'text/x-json' => 'JSON',
18 sub monkey_json_put : Path("/monkey_json_put") : ActionClass('Deserialize') {
19 my ( $self, $c ) = @_;
20 if ( ref($c->req->data) eq "HASH" ) {
21 my $out = ($c->req->data->{'sushi'}||'') . ($c->req->data->{'chicken'}||'');
23 $c->res->output( $out );