package CatDap::Controller::Root; use Moose; use namespace::autoclean; BEGIN { extends 'Catalyst::Controller' } # # Sets the actions in this controller to be registered with no prefix # so they function identically to actions created in MyApp.pm # __PACKAGE__->config(namespace => ''); =head1 NAME CatDap::Controller::Root - Root Controller for CatDap =head1 DESCRIPTION [enter your description here] =head1 METHODS =head2 index The root page (/) =cut sub index :Path :Args(0) { my ( $self, $c ) = @_; # if user is defined, redirect to /user and let the /user page handle the authentication if (defined $c->user) { $c->log->debug('Redirecting to /user'); $c->res->redirect('/user'); } # Hello World #$c->response->body( $c->welcome_message ); } =head2 default Standard 404 error page =cut sub default :Path { my ( $self, $c ) = @_; $c->response->body( 'Page not found' ); $c->response->status(404); } =head2 end Attempt to render a view, if needed. =cut sub end : ActionClass('RenderView') {} =head1 AUTHOR Buchan Milne =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;