From e5f405d6a6f1987393d3f82ef59151222036cdf0 Mon Sep 17 00:00:00 2001 From: t0m Date: Thu, 15 Jul 2010 09:16:11 +0000 Subject: Make it compile again --- lib/Reaction/InterfaceModel/Search/UpdateSpec.pm | 9 ++++++++- lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm | 7 ++++++- 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; -- cgit v1.2.3