aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm')
-rw-r--r--lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm b/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm
index 59a97ad..94953f4 100644
--- a/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm
@@ -4,6 +4,7 @@ use Reaction::Role;
use aliased 'Reaction::InterfaceModel::Action';
use aliased 'Reaction::Meta::InterfaceModel::Action::ParameterAttribute';
+use MooseX::Types::Moose qw/Int Str/;
use namespace::clean -except => [ qw(meta) ];
@@ -14,11 +15,11 @@ has value => (
is => 'rw', lazy_build => 1, trigger_adopt('value'),
clearer => 'clear_value',
);
-has needs_sync => (is => 'rw', isa => 'Int', default => 0);
+has needs_sync => (is => 'rw', isa => Int, default => 0); #should be bool?
-has message => (is => 'rw', isa => 'Str', clearer => 'clear_message');
+has message => (is => 'rw', isa => Str, clearer => 'clear_message');
-has is_modified => (
+has is_modified => ( #sould be bool?
is => 'ro', writer => '_set_modified',
required => 1, default => 1, init_arg => undef
);