Changeset 9859

Timestamp:

04/19/08 10:33:14 (5 years ago)

Author:

charsbar

Message:

lang/perl/Jipotter: Root cleanup

Files:

• lang/perl/Jipotter/branches/Cipotter/lib/Cipotter/Controller/Root.pm (modified) (1 diff)

lang/perl/Jipotter/branches/Cipotter/lib/Cipotter/Controller/Root.pm

@@ -3 +3 @@
 use strict;
 use warnings;
-use parent 'Catalyst::Controller';
+use parent qw( 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
+# XXX: What's the best way to make this configurable?
 
-Cipotter::Controller::Root - Root Controller for Cipotter
+sub base_path : Chained('/') PathPart('cipotter') CaptureArgs(0) {
+  my ($self, $c) = @_;
 
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 METHODS
-
-=cut
-
-=head2 default
-
-=cut
-
-sub index : Path Args(0) {
-    my ( $self, $c ) = @_;
-
-    # Hello World
-    $c->response->body( $c->welcome_message );
+  $c->stash->{base_path} = '/cipotter';
 }
 
 sub default : Path {
-    my ( $self, $c ) = @_;
-    $c->response->body( 'Page not found' );
-    $c->response->status(404);
-    
+  my ($self, $c) = @_;
+
+  $c->detach('/not_found');
 }
 
-=head2 end
+sub not_found : Path {
+  my ($self, $c) = @_;
 
-Attempt to render a view, if needed.
-
-=cut 
+  $c->response->status(404);
+  $c->stash->{current_view} = 'ERROR';
+}
 
 sub end : ActionClass('RenderView') {}
 
-=head1 AUTHOR
-
-Catalyst developer
-
-=head1 LICENSE
-
-This library is free software, you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
 1;