[Catalyst-commits] r8813 - trunk/examples/CatalystAdvent/root/2008

[phaylon at dev.catalyst.perl.org]

Author: phaylon
Date: 2008-12-10 17:29:25 +0000 (Wed, 10 Dec 2008)
New Revision: 8813

Modified:
   trunk/examples/CatalystAdvent/root/2008/8.pod
Log:
corrected moosified ACCEPT_CONTEXT

Modified: trunk/examples/CatalystAdvent/root/2008/8.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/8.pod	2008-12-10 15:05:52 UTC (rev 8812)
+++ trunk/examples/CatalystAdvent/root/2008/8.pod	2008-12-10 17:29:25 UTC (rev 8813)
@@ -58,8 +58,8 @@
 
  sub ACCEPT_CONTEXT {
      my ($self, $c ) = @_;
-     $self->meta->clone_object($self, path_to => $c->path_to(''));
-     return $self;
+     my $new = $self->meta->clone_object($self, path_to => $c->path_to(''));
+     return $new;
  }
 
 The C< meta > method above is a benefit of L<Moose> (actually