X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FDump.pm;h=5ea942331ad1e6a84abfafcb1fc619a7db315816;hb=cf37d21a258273df337d7c3d9214b286713ec9ca;hp=5ea3ba048d99657c7e480aab1fd38df22d51d949;hpb=ae29b412955743885e80350085167b54b69672da;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Dump.pm b/t/lib/TestApp/Controller/Dump.pm index 5ea3ba0..5ea9423 100644 --- a/t/lib/TestApp/Controller/Dump.pm +++ b/t/lib/TestApp/Controller/Dump.pm @@ -1,7 +1,7 @@ package TestApp::Controller::Dump; use strict; -use base 'Catalyst::Base'; +use base 'Catalyst::Controller'; sub default : Action Private { my ( $self, $c ) = @_; @@ -13,13 +13,10 @@ sub env : Action Relative { $c->forward('TestApp::View::Dump', [\%ENV]); } -sub parameters : Action Relative { - my ( $self, $c ) = @_; - $c->forward('TestApp::View::Dump::Parameters'); -} - 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'); }