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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-16 08:14:58 +0000 (Tue, 16 Dec 2008)
New Revision: 8891

Modified:
   trunk/examples/CatalystAdvent/root/2008/16.pod
Log:
Make the code sample compile, as pointed out by rafl previously, I fail

Modified: trunk/examples/CatalystAdvent/root/2008/16.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/16.pod	2008-12-16 05:25:44 UTC (rev 8890)
+++ trunk/examples/CatalystAdvent/root/2008/16.pod	2008-12-16 08:14:58 UTC (rev 8891)
@@ -319,7 +319,7 @@
     extends 'Catalyst::Model::SomeModel';
     has [qw/ foo bar /] => ( is => 'rw' );
     
-    around 'baz' {
+    around 'baz' => sub {
         my ($orig, $self, @args) = @_;
         # Do stuff to @args
         $self->$orig(@args);