From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 21 Jul 2012 19:57:29 +0000 (+0000)
Subject: I'm an idiot
X-Git-Tag: v1.000002~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b4a915aed3f637f76730b52206681aa7e3503cf;p=gitmo%2FMoo.git

I'm an idiot
---

diff --git a/Changes b/Changes
index ceebff1..12ff01c 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - fix stupid typo in new Sub::Quote section
+
 1.000001 - 2012-07-21
   - documentation tweaks and cleanup
   - ignore required when default or builder is present
diff --git a/lib/Moo.pm b/lib/Moo.pm
index e651d39..43f826d 100644
--- a/lib/Moo.pm
+++ b/lib/Moo.pm
@@ -629,7 +629,8 @@ To do this, you can write
   use Sub::Quote;
 
   has foo => (
-    is => quote_sub(q{ die "Not <3" unless $_[0] < 3 })
+    is => 'ro',
+    isa => quote_sub(q{ die "Not <3" unless $_[0] < 3 })
   );
 
 which will be inlined as
@@ -642,7 +643,8 @@ which will be inlined as
 or to avoid localizing @_,
 
   has foo => (
-    is => quote_sub(q{ my ($val) = @_; die "Not <3" unless $val < 3 })
+    is => 'ro',
+    isa => quote_sub(q{ my ($val) = @_; die "Not <3" unless $val < 3 })
   );
 
 which will be inlined as