X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FBodyParams.pm;fp=t%2Flib%2FTestApp%2FController%2FBodyParams.pm;h=5732211941a90f53b3e09b5555c1cbdcc4c5f361;hp=0000000000000000000000000000000000000000;hb=d003ff83ac25ab0af3988de66867f73af54ff631;hpb=d8ccdd9d64915be00c29a7ab21d9275431235697

diff --git a/t/lib/TestApp/Controller/BodyParams.pm b/t/lib/TestApp/Controller/BodyParams.pm
new file mode 100644
index 0000000..5732211
--- /dev/null
+++ b/t/lib/TestApp/Controller/BodyParams.pm
@@ -0,0 +1,13 @@
+package TestApp::Controller::BodyParams;
+
+use strict;
+use base 'Catalyst::Controller';
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->req->body_params({override => 'that'});
+    $c->res->output($c->req->body_params->{override});
+    $c->res->status(200);
+}
+
+1;