[Catalyst-commits] r7435 - Catalyst-Devel/1.00/trunk/lib/Catalyst

[marcus at dev.catalyst.perl.org]

Author: marcus
Date: 2008-02-05 20:37:11 +0000 (Tue, 05 Feb 2008)
New Revision: 7435

Modified:
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
Log:
Update default actions in generated root.pm

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2008-02-05 18:19:56 UTC (rev 7434)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2008-02-05 20:37:11 UTC (rev 7435)
@@ -693,13 +693,20 @@
 
 =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.