aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authort0m <t0m@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2010-07-15 09:16:11 +0000
committert0m <t0m@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2010-07-15 09:16:11 +0000
commite5f405d6a6f1987393d3f82ef59151222036cdf0 (patch)
tree822cf727f34290e433c710555863355f9e590f15
parentfc758feab35cb63803228977064d770242db0e33 (diff)
downloadreaction-e5f405d6a6f1987393d3f82ef59151222036cdf0.tar.gz
reaction-e5f405d6a6f1987393d3f82ef59151222036cdf0.zip
Make it compile again
-rw-r--r--lib/Reaction/InterfaceModel/Search/UpdateSpec.pm9
-rw-r--r--lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm7
2 files changed, 14 insertions, 2 deletions
diff --git a/lib/Reaction/InterfaceModel/Search/UpdateSpec.pm b/lib/Reaction/InterfaceModel/Search/UpdateSpec.pm
index 5299166..5c32b8f 100644
--- a/lib/Reaction/InterfaceModel/Search/UpdateSpec.pm
+++ b/lib/Reaction/InterfaceModel/Search/UpdateSpec.pm
@@ -5,7 +5,14 @@ use Method::Signatures::Simple;
use aliased 'Reaction::InterfaceModel::Search::Spec', 'SearchSpec';
use namespace::clean -except => 'meta';
-has '+target_model' => (isa => SearchSpec);
+# FIXME - has '+attr' broken, copied from Reaction::InterfaceModel::Action
+#has '+target_model' => (isa => SearchSpec);
+has target_model => (
+ isa => SearchSpec,
+ is => 'ro',
+ required => 1,
+ metaclass => 'Reaction::Meta::Attribute'
+);
requires '_reflection_info';
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;