Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Engine::Response::Status; |
2 | |
3 | use strict; |
4 | use base 'Catalyst::Base'; |
5 | |
6 | sub begin : Private { |
7 | my ( $self, $c ) = @_; |
8 | $c->response->content_type('text/plain'); |
9 | return 1; |
10 | } |
11 | |
12 | sub s200 : Relative { |
13 | my ( $self, $c ) = @_; |
14 | $c->res->status(200); |
15 | $c->res->output("200 OK\n"); |
16 | } |
17 | |
18 | sub s400 : Relative { |
19 | my ( $self, $c ) = @_; |
20 | $c->res->status(400); |
21 | $c->res->output("400 Bad Request\n"); |
22 | } |
23 | |
24 | sub s403 : Relative { |
25 | my ( $self, $c ) = @_; |
26 | $c->res->status(403); |
27 | $c->res->output("403 Forbidden\n"); |
28 | } |
29 | |
30 | sub s404 : Relative { |
31 | my ( $self, $c ) = @_; |
32 | $c->res->status(404); |
33 | $c->res->output("404 Not Found\n"); |
34 | } |
35 | |
36 | sub s500 : Relative { |
37 | my ( $self, $c ) = @_; |
38 | $c->res->status(500); |
39 | $c->res->output("500 Internal Server Error\n"); |
40 | } |
41 | |
42 | 1; |