=cut
-sub default : Private {
+sub index : Path Args(0) {
my ( $self, $c ) = @_;
# Hello World
$c->response->body( $c->welcome_message );
}
+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.