X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FDump.pm;h=5ea3ba048d99657c7e480aab1fd38df22d51d949;hp=df33eb5e714a8f6388e8182042cf9606cfaab645;hb=ae29b412955743885e80350085167b54b69672da;hpb=316bf0f004c0de103e628994a4384e6cf4b45377 diff --git a/t/lib/TestApp/Controller/Dump.pm b/t/lib/TestApp/Controller/Dump.pm index df33eb5..5ea3ba0 100644 --- a/t/lib/TestApp/Controller/Dump.pm +++ b/t/lib/TestApp/Controller/Dump.pm @@ -10,8 +10,7 @@ sub default : Action Private { sub env : Action Relative { my ( $self, $c ) = @_; - $c->stash( env => \%ENV ); - $c->forward('TestApp::View::Dump'); + $c->forward('TestApp::View::Dump', [\%ENV]); } sub parameters : Action Relative { @@ -29,4 +28,9 @@ sub response : Action Relative { $c->forward('TestApp::View::Dump::Response'); } +sub body : Action Relative { + my ( $self, $c ) = @_; + $c->forward('TestApp::View::Dump::Body'); +} + 1;