Commit | Line | Data |
---|---|---|
d055ce0c | 1 | package RemoteTestApp2::Controller::Root; |
2 | use strict; | |
3 | use warnings; | |
4 | use base 'Catalyst::Controller'; | |
5 | ||
6 | __PACKAGE__->config(namespace => ''); | |
7 | ||
8 | sub default : Local { | |
9 | my ( $self, $c ) = @_; | |
10 | if ($c->authenticate()) { | |
11 | $c->res->body( | |
12 | 'my_user_name:' | |
13 | . $c->user->{my_user_name} | |
14 | ); | |
15 | } | |
16 | else { | |
17 | $c->res->body('FAIL'); | |
18 | $c->res->status(403); | |
19 | } | |
20 | } | |
21 | ||
22 | sub public : Local { | |
23 | my ( $self, $c ) = @_; | |
24 | $c->res->body('OK'); | |
25 | } | |
26 | ||
27 | 1; | |
28 |