[Bast-commits] r3208 - trunk/DBIx-Class/lib/DBIx/Class/Manual

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-04-24 23:04:02 +0100 (Tue, 24 Apr 2007)
New Revision: 3208

Modified:
   trunk/DBIx-Class/lib/DBIx/Class/Manual/Cookbook.pod
Log:
oops. props to chapman for the spot

Modified: trunk/DBIx-Class/lib/DBIx/Class/Manual/Cookbook.pod
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Manual/Cookbook.pod	2007-04-24 10:35:08 UTC (rev 3207)
+++ trunk/DBIx-Class/lib/DBIx/Class/Manual/Cookbook.pod	2007-04-24 22:04:02 UTC (rev 3208)
@@ -571,13 +571,13 @@
 C<next::method>.
 
   sub new {
-    my ( $self, $attrs ) = @_;
+    my ( $class, $attrs ) = @_;
 
     $attrs->{foo} = 'bar' unless defined $attrs->{foo};
 
-    $self->next::method($attrs);
+    my $new = $class->next::method($attrs);
 
-    return $self;
+    return $new;
   }
 
 For more information about C<next::method>, look in the L<Class::C3>