added test case for parsing JSON and updated changlog

[catagits/Catalyst-Runtime.git] / t / lib / TestDataHandlers / Controller / Root.pm

diff --git a/t/lib/TestDataHandlers/Controller/Root.pm b/t/lib/TestDataHandlers/Controller/Root.pm
new file mode 100644 (file)
index 0000000..42bf85b
--- /dev/null
+++ b/t/lib/TestDataHandlers/Controller/Root.pm
@@ -0,0 +1,10 @@
+package TestDataHandlers::Controller::Root;
+
+use base 'Catalyst::Controller';
+
+sub test_json :Local {
+    my ($self, $c) = @_;
+    $c->res->body($c->req->body_data->{message});
+}
+
+1;