X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FEngine%2FResponse%2FRedirect.pm;fp=t%2Flib%2FTestApp%2FController%2FEngine%2FResponse%2FRedirect.pm;h=0000000000000000000000000000000000000000;hb=fbcc39ad23f2bbecf5d84c9ba581e6af86fcd460;hp=f7d7ec087b03f2056612f145645d018c5d983de9;hpb=21465c884872c1ec8c30acd72796445f9eaacb31;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Engine/Response/Redirect.pm b/t/lib/TestApp/Controller/Engine/Response/Redirect.pm deleted file mode 100644 index f7d7ec0..0000000 --- a/t/lib/TestApp/Controller/Engine/Response/Redirect.pm +++ /dev/null @@ -1,29 +0,0 @@ -package TestApp::Controller::Engine::Response::Redirect; - -use strict; -use base 'Catalyst::Base'; - -sub one : Relative { - my ( $self, $c ) = @_; - $c->response->redirect('/test/writing/is/boring'); -} - -sub two : Relative { - my ( $self, $c ) = @_; - $c->response->redirect('http://www.google.com/'); -} - -sub three : Relative { - my ( $self, $c ) = @_; - $c->response->redirect('http://www.google.com/'); - $c->response->status(301); # Moved Permanently -} - -sub four : Relative { - my ( $self, $c ) = @_; - $c->response->redirect('http://www.google.com/'); - $c->response->status(307); # Temporary Redirect -} - -1; -