[Catalyst-commits] r7852 - in trunk/examples/Tutorial: Final_Tarball Final_Tarballs_Per_Part MyApp/lib/MyApp/Controller

[hkclark at dev.catalyst.perl.org]

Author: hkclark
Date: 2008-05-29 14:00:05 +0100 (Thu, 29 May 2008)
New Revision: 7852

Modified:
   trunk/examples/Tutorial/Final_Tarball/MyApp_Part8.tgz
   trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part5.tgz
   trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part6.tgz
   trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part7.tgz
   trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part8.tgz
   trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Books.pm
   trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Login.pm
Log:
Fixes to some of the code samples.  Thanks to KD for doing most of them.

Modified: trunk/examples/Tutorial/Final_Tarball/MyApp_Part8.tgz
===================================================================
(Binary files differ)

Modified: trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part5.tgz
===================================================================
(Binary files differ)

Modified: trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part6.tgz
===================================================================
(Binary files differ)

Modified: trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part7.tgz
===================================================================
(Binary files differ)

Modified: trunk/examples/Tutorial/Final_Tarballs_Per_Part/MyApp_Part8.tgz
===================================================================
(Binary files differ)

Modified: trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Books.pm
===================================================================
--- trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Books.pm	2008-05-29 00:01:54 UTC (rev 7851)
+++ trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Books.pm	2008-05-29 13:00:05 UTC (rev 7852)
@@ -21,7 +21,7 @@
 
 =cut
 
-sub index : Private {
+sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
 
     $c->response->body('Matched MyApp::Controller::Books in Books.');

Modified: trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Login.pm
===================================================================
--- trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Login.pm	2008-05-29 00:01:54 UTC (rev 7851)
+++ trunk/examples/Tutorial/MyApp/lib/MyApp/Controller/Login.pm	2008-05-29 13:00:05 UTC (rev 7852)
@@ -24,11 +24,9 @@
 
 =cut
 
-sub index : Private {
+sub index :Path :Args(0) {
     my ($self, $c) = @_;
 
-$DB::single=1;
-
     # Get the username and password from form
     my $username = $c->request->params->{username} || "";
     my $password = $c->request->params->{password} || "";