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 before login => sub {
  37   my($self, $c) = @_;
  38   $c->req->param( realm => 'openid')
  39     if $c->req->param('openid-check');
  40 };
  41
  42 =head1 AUTHOR
  43
  44 A clever guy
  45
  46 =head1 LICENSE
  47
  48 This library is free software. You can redistribute it and/or modify
  49 it under the same terms as Perl itself.
  50
  51 =cut
  52
  53 __PACKAGE__->meta->make_immutable;
  54
  55 1;