fix quote_sub usage in t/accessor-coerce.t
Matt S Trout [Sat, 24 Mar 2012 19:24:36 +0000 (19:24 +0000)]
t/accessor-coerce.t

index 804a3d0..d3a41e1 100644 (file)
@@ -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,
   );
 }