t/lib/RemoteTestApp2/Controller/Root.pm

   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