[scpubgit/stemmaweb.git] / lib / stemmaweb / Controller / Users.pm

package stemmaweb::Controller::Users;
use Moose;
use namespace::autoclean;

BEGIN {extends 'CatalystX::Controller::Auth'; }

=head1 NAME

stemmaweb::Controller::Users - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut

sub base :Chained('/') :PathPart('') :CaptureArgs(0)
{
        my ( $self, $c ) = @_;
 
        $self->next::method( $c );
}

=head2 index

=cut

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

    $c->response->body('Matched stemmaweb::Controller::Users in Users.');
}


=head1 AUTHOR

A clever guy

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__PACKAGE__->meta->make_immutable;

1;
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 ) = @_;
	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;