--- /dev/null
+package Test::Serialize::Controller::JSON;
+
+use namespace::autoclean;
+use Moose;
+
+BEGIN { extends qw/Catalyst::Controller::REST/ };
+
+__PACKAGE__->config(
+ 'stash_key' => 'rest',
+ 'json_options' => {
+ relaxed => 1,
+ },
+ 'map' => {
+ 'text/x-json' => 'JSON',
+ },
+);
+
+sub monkey_json_put : Path("/monkey_json_put") : ActionClass('Deserialize') {
+ my ( $self, $c ) = @_;
+ if ( ref($c->req->data) eq "HASH" ) {
+ my $out = ($c->req->data->{'sushi'}||'') . ($c->req->data->{'chicken'}||'');
+ utf8::encode($out);
+ $c->res->output( $out );
+ } else {
+ $c->res->output(1);
+ }
+}
+
+1;