Commit | Line | Data |
---|---|---|
d9412896 | 1 | package AuthTestApp::Controller::Root; |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use base qw/ Catalyst::Controller /; | |
6 | ||
7 | __PACKAGE__->config( namespace => '' ); | |
8 | ||
9 | sub auto : Private { | |
10 | my ($self, $c) = @_; | |
11 | $c->authenticate(); | |
12 | } | |
13 | sub moose : Local { | |
14 | my ( $self, $c ) = @_; | |
15 | $c->res->body( $c->user->id ); | |
16 | } | |
17 | ||
18 | 1; | |
19 |