Dogcows Code - chaz/chatty/blob - lib/Chatty/Controller/Root.pm

   1 package Chatty::Controller::Root;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 BEGIN { extends 'Catalyst::Controller' }
   6
   7 #
   8 # Sets the actions in this controller to be registered with no prefix
   9 # so they function identically to actions created in MyApp.pm
  10 #
  11 __PACKAGE__->config(namespace => '');
  12
  13 =head1 NAME
  14
  15 Chatty::Controller::Root - Root Controller for Chatty
  16
  17 =head1 DESCRIPTION
  18
  19 Implements all actions for this simple chat application.
  20
  21 =head1 METHODS
  22
  23 =head2 index
  24
  25 The root page (/)
  26
  27 =cut
  28
  29 sub index :Path :Args(0) {
  30         my ( $self, $c ) = @_;
  31 }
  32
  33 =head2 default
  34
  35 Standard 404 error page
  36
  37 =cut
  38
  39 sub default :Path {
  40         my ( $self, $c ) = @_;
  41         $c->response->body( 'Page not found' );
  42         $c->response->status(404);
  43 }
  44
  45 =head2 end
  46
  47 Attempt to render a view, if needed.
  48
  49 =cut
  50
  51 sub end : ActionClass('RenderView') {}
  52
  53 =head1 AUTHOR
  54
  55 Charles McGarvey
  56
  57 =head1 LICENSE
  58
  59 This library is free software. You can redistribute it and/or modify
  60 it under the same terms as Perl itself.
  61
  62 =cut
  63
  64 __PACKAGE__->meta->make_immutable;
  65
  66 1;