=head1 DESCRIPTION
-[enter your description here]
+Implements all actions for this simple chat application.
=head1 METHODS
=cut
sub index :Path :Args(0) {
- my ( $self, $c ) = @_;
-
- # Hello World
- $c->response->body( $c->welcome_message );
+ my ( $self, $c ) = @_;
}
=head2 default
=cut
sub default :Path {
- my ( $self, $c ) = @_;
- $c->response->body( 'Page not found' );
- $c->response->status(404);
+ my ( $self, $c ) = @_;
+ $c->response->body( 'Page not found' );
+ $c->response->status(404);
}
=head2 end