Commit | Line | Data |
---|---|---|
19a24dbb | 1 | package DeprecatedTestApp::C::Root; |
2 | use strict; | |
3 | use warnings; | |
4 | use base qw/Catalyst::Controller/; | |
5 | ||
6 | __PACKAGE__->config->{namespace} = ''; | |
7 | ||
8 | sub index : Private { | |
9 | my ( $self, $c ) = @_; | |
10 | $c->res->body('root index'); | |
11 | } | |
12 | ||
8026359e | 13 | sub req_user : Local { |
14 | my ( $self, $c ) = @_; | |
15 | $c->res->body('REMOTE_USER = ' . $c->req->user); | |
16 | } | |
17 | ||
19a24dbb | 18 | 1; |