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

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-12-11 16:03:24 +0000 (Thu, 11 Dec 2008)
New Revision: 8825

Modified:
   trunk/examples/CatalystAdvent/root/2008/10.pod
Log:
fix my stupid mistake wrt after vs. next::method

Modified: trunk/examples/CatalystAdvent/root/2008/10.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/10.pod	2008-12-11 11:26:36 UTC (rev 8824)
+++ trunk/examples/CatalystAdvent/root/2008/10.pod	2008-12-11 16:03:24 UTC (rev 8825)
@@ -38,10 +38,11 @@
 need to know the length of the array without cumbersome
 workarounds. Enter L<Moose>:
 
- after 'setup' => sub {
+ sub setup {
      use Moose::Autobox;
      $_[0]->config->{some_values}{want_an_array} = [ $_[0]->config->{some_values}{want_an_array}->flatten ];
- };
+     shift->next::method(@_);
+ }
 
 Place this solution in MyApp.pm (it's just a normal subroutine with
 some Moose style syntax around it), and the problem is fixed!