1 package TestApp::Controller::Engine::Response::Status;
4 use base 'Catalyst::Controller';
8 $c->response->content_type('text/plain');
13 my ( $self, $c ) = @_;
15 $c->res->output("200 OK\n");
19 my ( $self, $c ) = @_;
21 $c->res->output("400 Bad Request\n");
25 my ( $self, $c ) = @_;
27 $c->res->output("403 Forbidden\n");
31 my ( $self, $c ) = @_;
33 $c->res->output("404 Not Found\n");
37 my ( $self, $c ) = @_;
39 $c->res->output("500 Internal Server Error\n");