[Catalyst-commits] r8595 - in CatalystX-CRUD/CatalystX-CRUD/trunk: . lib/CatalystX/CRUD

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2008-11-12 17:29:53 +0000 (Wed, 12 Nov 2008)
New Revision: 8595

Modified:
   CatalystX-CRUD/CatalystX-CRUD/trunk/Changes
   CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Tutorial.pod
Log:
fix rt#40846

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/Changes
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/Changes	2008-11-12 14:51:30 UTC (rev 8594)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/Changes	2008-11-12 17:29:53 UTC (rev 8595)
@@ -170,3 +170,7 @@
 0.32    21 Oct 2008
         * use Class::Data::Inheritable to define delegate_class() class accessor in base Model
 
+0.33    xxx
+        * fix Tutorial wrt RT#40846
+
+

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Tutorial.pod
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Tutorial.pod	2008-11-12 14:51:30 UTC (rev 8594)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Tutorial.pod	2008-11-12 17:29:53 UTC (rev 8595)
@@ -228,19 +228,13 @@
  
  sub init_with_album {
     my $self  = shift;
-    my $album = shift;
-    if (!$album or !$album->isa('MyCRUD::Album')) {
-        croak "need MyCRUD::Album object";
-    }
+    my $album = shift or croak "need MyCRUD::Album object";
     return $self->init_with_object($album);
  }
 
  sub album_from_form {
     my $self = shift;
-    my $album = shift;
-    if (!$album or !$album->isa('MyCRUD::Album')) {
-        croak "need MyCRUD::Album object";
-    }
+    my $album = shift or croak "need MyCRUD::Album object";
     $self->object_from_form($album);
     return $album;
  }
@@ -276,20 +270,13 @@
 
  sub init_with_song {
     my $self = shift;
-    my $song = shift;
-    if (!$song or !$song->isa('MyCRUD::Song'))
-    {
-        croak "need MyCRUD::Song object";
-    }
+    my $song = shift or croak "need MyCRUD::Song object";
     $self->init_with_object($song);
  }
  
  sub song_from_form {
     my $self = shift;
-    my $song = shift;
-    if (!$song or !$song->isa('MyCRUD::Song')) {
-        croak "need MyCRUD::Song object";
-    }
+    my $song = shift or croak "need MyCRUD::Song object";
     $self->object_from_form($song);
     return $song;
  }