[Catalyst-commits] r9446 - Catalyst-Manual/5.70/trunk/lib/Catalyst/Manual/Tutorial

[hkclark at dev.catalyst.perl.org]

Author: hkclark
Date: 2009-03-07 02:12:40 +0000 (Sat, 07 Mar 2009)
New Revision: 9446

Modified:
   Catalyst-Manual/5.70/trunk/lib/Catalyst/Manual/Tutorial/BasicCRUD.pod
Log:
Adjust indentation a bit

Modified: Catalyst-Manual/5.70/trunk/lib/Catalyst/Manual/Tutorial/BasicCRUD.pod
===================================================================
--- Catalyst-Manual/5.70/trunk/lib/Catalyst/Manual/Tutorial/BasicCRUD.pod	2009-03-07 00:12:39 UTC (rev 9445)
+++ Catalyst-Manual/5.70/trunk/lib/Catalyst/Manual/Tutorial/BasicCRUD.pod	2009-03-07 02:12:40 UTC (rev 9446)
@@ -1161,14 +1161,14 @@
     =cut
     
     sub created_after {
-      my ($self, $datetime) = @_;
-      
-      my $date_str = $self->_source_handle->schema->storage
-                            ->datetime_parser->format_datetime($datetime);
-    
-      return $self->search({
-          created => { '>' => $date_str }
-      });
+        my ($self, $datetime) = @_;
+        
+        my $date_str = $self->_source_handle->schema->storage
+                              ->datetime_parser->format_datetime($datetime);
+        
+        return $self->search({
+            created => { '>' => $date_str }
+        });
     }
     
     1;
@@ -1289,11 +1289,11 @@
     =cut
     
     sub title_like {
-      my ($self, $title_str) = @_;
+        my ($self, $title_str) = @_;
       
-      return $self->search({
-          title => { 'like' => "%$title_str%" }
-      });
+        return $self->search({
+            title => { 'like' => "%$title_str%" }
+        });
     }
 
 We defined the search string as C<$title_str> to make the method more