Commit | Line | Data |
83273f94 |
1 | package Test::Catalyst::Action::REST::Controller::ActionsForBrowsers; |
2 | use Moose; |
3 | use namespace::autoclean; |
4 | |
5 | BEGIN { extends qw/Catalyst::Controller::REST/ } |
6 | |
7 | sub begin {} # Don't need serialization.. |
8 | |
9 | sub for_browsers : Local : ActionClass('REST::ForBrowsers') { |
10 | my ( $self, $c ) = @_; |
11 | $c->res->header('X-Was-In-TopLevel', 1); |
12 | } |
13 | |
14 | sub for_browsers_GET : Private { |
15 | my ( $self, $c ) = @_; |
16 | $c->res->body('GET'); |
17 | } |
18 | |
19 | sub for_browsers_GET_html : Private { |
20 | my ( $self, $c ) = @_; |
21 | $c->res->body('GET_html'); |
22 | } |
23 | |
24 | sub for_browsers_POST : Private { |
25 | my ( $self, $c ) = @_; |
26 | $c->res->body('POST'); |
27 | } |
28 | |
29 | sub end : Private {} # Don't need serialization.. |
30 | |
31 | 1; |
32 | |