X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FEngine%2FResponse%2FStatus.pm;fp=t%2Flib%2FTestApp%2FController%2FEngine%2FResponse%2FStatus.pm;h=0000000000000000000000000000000000000000;hb=fbcc39ad23f2bbecf5d84c9ba581e6af86fcd460;hp=66fa243a0e98af4885d05845575b92f4101aba5d;hpb=21465c884872c1ec8c30acd72796445f9eaacb31;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Engine/Response/Status.pm b/t/lib/TestApp/Controller/Engine/Response/Status.pm deleted file mode 100644 index 66fa243..0000000 --- a/t/lib/TestApp/Controller/Engine/Response/Status.pm +++ /dev/null @@ -1,42 +0,0 @@ -package TestApp::Controller::Engine::Response::Status; - -use strict; -use base 'Catalyst::Base'; - -sub begin : Private { - my ( $self, $c ) = @_; - $c->response->content_type('text/plain'); - return 1; -} - -sub s200 : Relative { - my ( $self, $c ) = @_; - $c->res->status(200); - $c->res->output("200 OK\n"); -} - -sub s400 : Relative { - my ( $self, $c ) = @_; - $c->res->status(400); - $c->res->output("400 Bad Request\n"); -} - -sub s403 : Relative { - my ( $self, $c ) = @_; - $c->res->status(403); - $c->res->output("403 Forbidden\n"); -} - -sub s404 : Relative { - my ( $self, $c ) = @_; - $c->res->status(404); - $c->res->output("404 Not Found\n"); -} - -sub s500 : Relative { - my ( $self, $c ) = @_; - $c->res->status(500); - $c->res->output("500 Internal Server Error\n"); -} - -1;