X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-coerce.t;h=d3a41e1dab3b5b2445744477da3d6c3c87df513b;hb=9b0fb700146699ec39db5c47bc15dbeb96c4f2b1;hp=804a3d0996cadbf51ffd87b8bce291945ad90ce5;hpb=3fc078d5269f1d5c068aae2356472cedb307d0c0;p=gitmo%2FMoo.git

diff --git a/t/accessor-coerce.t b/t/accessor-coerce.t
index 804a3d0..d3a41e1 100644
--- a/t/accessor-coerce.t
+++ b/t/accessor-coerce.t
@@ -192,10 +192,10 @@ run_with_default_for 'Foo3';
   has plus_three => (
     is => 'rw',
     default => sub { 1 },
-    coerce => quote_sub q{
+    coerce => quote_sub(q{
       my ($x) = @_;
       $x + 3
-    },
+    }),
     lazy => 1,
   );
 }