From e5f405d6a6f1987393d3f82ef59151222036cdf0 Mon Sep 17 00:00:00 2001
From: t0m <t0m@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Thu, 15 Jul 2010 09:16:11 +0000
Subject: Make it compile again

---
 lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/Reaction/UI/ViewPort')

diff --git a/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm b/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm
index d8ca473..3498507 100644
--- a/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm
@@ -21,7 +21,12 @@ has value_string => (
   clearer => 'clear_value',
 );
 
-has '+is_modified' => (default => 0);
+# FIXME - Copied from Reaction::UI::ViewPort::Field::Role::Mutable
+#         as we broke has '+attr' in Moose.
+has is_modified => ( #sould be bool?
+  is => 'ro', writer => '_set_modified',
+  required => 1, default => 0, init_arg => undef
+);
 
 around value_string => sub {
   my $orig = shift;
-- 
cgit v1.2.3-54-g00ecf