diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-01-24 00:48:47 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-01-24 00:48:47 +0000 |
commit | 029c34a8754728e0f1622ea56ac112941226ebd3 (patch) | |
tree | eab03dc6678e4bfcc38b54288807f4ef04ff6058 /lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm | |
parent | 67426720ad198d5689825c4173b68dad6cab75df (diff) | |
download | reaction-029c34a8754728e0f1622ea56ac112941226ebd3.tar.gz reaction-029c34a8754728e0f1622ea56ac112941226ebd3.zip |
basic is_modified support
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm')
-rw-r--r-- | lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm b/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm index f1704ad..59a97ad 100644 --- a/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm +++ b/lib/Reaction/UI/ViewPort/Field/Role/Mutable.pm @@ -18,6 +18,11 @@ has needs_sync => (is => 'rw', isa => 'Int', default => 0); has message => (is => 'rw', isa => 'Str', clearer => 'clear_message'); +has is_modified => ( + is => 'ro', writer => '_set_modified', + required => 1, default => 1, init_arg => undef +); + after clear_value => sub { my $self = shift; $self->clear_message if $self->has_message; |