t/lib/DeprecatedTestApp/C/Root.pm

   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
  13 sub req_user : Local {
  14     my ( $self, $c ) = @_;
  15     $c->res->body('REMOTE_USER = ' . $c->req->user);
  16 }
  17
  18 1;