X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FDeprecatedTestApp%2FC%2FRoot.pm;h=9a3e1d02738bf1c9dd17748ef06a3c29d8f85155;hp=7b8b74f0f6bf43f38aebb197cb6a2217082902a5;hb=8026359e6ff39e39df67381dcf52a15df78804cf;hpb=43c581537432e9e6dd82d10375e1aac4cbcff5fb diff --git a/t/lib/DeprecatedTestApp/C/Root.pm b/t/lib/DeprecatedTestApp/C/Root.pm index 7b8b74f..9a3e1d0 100644 --- a/t/lib/DeprecatedTestApp/C/Root.pm +++ b/t/lib/DeprecatedTestApp/C/Root.pm @@ -10,4 +10,9 @@ sub index : Private { $c->res->body('root index'); } +sub req_user : Local { + my ( $self, $c ) = @_; + $c->res->body('REMOTE_USER = ' . $c->req->user); +} + 1;