X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FDump.pm;h=69431b36ef3df3a7798211a770c0eac2cf484208;hb=0fd00e7bbc4486802b14242c4fcc53214db7818d;hp=5ea3ba048d99657c7e480aab1fd38df22d51d949;hpb=f7de4f5cd712ebad26eab6ec06c60a3d753a1461;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Dump.pm b/t/lib/TestApp/Controller/Dump.pm index 5ea3ba0..69431b3 100644 --- a/t/lib/TestApp/Controller/Dump.pm +++ b/t/lib/TestApp/Controller/Dump.pm @@ -1,25 +1,22 @@ package TestApp::Controller::Dump; use strict; -use base 'Catalyst::Base'; +use base 'Catalyst::Controller'; -sub default : Action Private { +sub default : Action { my ( $self, $c ) = @_; $c->forward('TestApp::View::Dump'); } sub env : Action Relative { my ( $self, $c ) = @_; - $c->forward('TestApp::View::Dump', [\%ENV]); -} - -sub parameters : Action Relative { - my ( $self, $c ) = @_; - $c->forward('TestApp::View::Dump::Parameters'); + $c->forward('TestApp::View::Dump::Env'); } sub request : Action Relative { my ( $self, $c ) = @_; + $c->req->params(undef); # Should be a no-op, and be ignored. + # Back compat test for 5.7 $c->forward('TestApp::View::Dump::Request'); }