[Catalyst-commits] r13597 - Catalyst-Plugin-Session-State-URI/trunk/t/lib/TestApp/Controller

[cng at dev.catalyst.perl.org]

Author: cng
Date: 2010-09-23 02:24:52 +0100 (Thu, 23 Sep 2010)
New Revision: 13597

Modified:
   Catalyst-Plugin-Session-State-URI/trunk/t/lib/TestApp/Controller/URI.pm
Log:
Add missing method to test files

Modified: Catalyst-Plugin-Session-State-URI/trunk/t/lib/TestApp/Controller/URI.pm
===================================================================
--- Catalyst-Plugin-Session-State-URI/trunk/t/lib/TestApp/Controller/URI.pm	2010-09-19 18:08:21 UTC (rev 13596)
+++ Catalyst-Plugin-Session-State-URI/trunk/t/lib/TestApp/Controller/URI.pm	2010-09-23 01:24:52 UTC (rev 13597)
@@ -26,6 +26,12 @@
     $c->res->body( $c->uri_for("/foo/bar", { param => "value" } ) );
 }
 
+sub body_param : Local {
+    my ( $self, $c ) = @_;
+    my $param_scalar = $c->req->body_parameters->{'body_param'};
+    $c->res->body( $c->uri_for("/foo/bar", { param => $param_scalar } ) );
+}
+
 sub arg_param : Local {
     my ( $self, $c ) = @_;
     $c->res->body( $c->uri_for("/foo/bar", "arg", { param => "value" } ) );