stemmaweb/lib/stemmaweb/Controller/Users.pm

   1 package stemmaweb::Controller::Users;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 BEGIN {extends 'CatalystX::Controller::Auth'; }
   6
   7 =head1 NAME
   8
   9 stemmaweb::Controller::Users - Catalyst Controller
  10
  11 =head1 DESCRIPTION
  12
  13 Catalyst Controller.
  14
  15 =head1 METHODS
  16
  17 =cut
  18
  19 sub base :Chained('/') :PathPart('') :CaptureArgs(0)
  20 {
  21         my ( $self, $c ) = @_;
  22
  23         $self->next::method( $c );
  24 }
  25
  26 =head2 index
  27
  28 =cut
  29
  30 sub index :Path :Args(0) {
  31     my ( $self, $c ) = @_;
  32
  33     $c->response->body('Matched stemmaweb::Controller::Users in Users.');
  34 }
  35
  36
  37 =head1 AUTHOR
  38
  39 A clever guy
  40
  41 =head1 LICENSE
  42
  43 This library is free software. You can redistribute it and/or modify
  44 it under the same terms as Perl itself.
  45
  46 =cut
  47
  48 __PACKAGE__->meta->make_immutable;
  49
  50 1;