diff options
| author | t0m <t0m@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2010-07-15 09:16:11 +0000 |
|---|---|---|
| committer | t0m <t0m@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2010-07-15 09:16:11 +0000 |
| commit | e5f405d6a6f1987393d3f82ef59151222036cdf0 (patch) | |
| tree | 822cf727f34290e433c710555863355f9e590f15 /lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm | |
| parent | fc758feab35cb63803228977064d770242db0e33 (diff) | |
| download | reaction-e5f405d6a6f1987393d3f82ef59151222036cdf0.tar.gz reaction-e5f405d6a6f1987393d3f82ef59151222036cdf0.zip | |
Make it compile again
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm')
| -rw-r--r-- | lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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; |