Commit | Line | Data |
19262e3d |
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 ) = @_; |
1628e97a |
22 | |
19262e3d |
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 | |
b600c671 |
36 | before login => sub { |
37 | my($self, $c) = @_; |
38 | $c->req->param( realm => 'openid') |
39 | if $c->req->param('openid-check'); |
40 | }; |
19262e3d |
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; |