X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FViewPort%2FField%2FMutable%2FBoolean.pm;h=633f91030abf7065da0a3ac881a85d4ac1323304;hb=4ebd6f6633ae7986519ddec609c2daf2ecca155d;hp=5293b11bb39452e596453face00cb131f94a02fc;hpb=3fad510ba952e92e9ccc33c9ed283fcccc617d1c;p=catagits%2FReaction.git diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/Boolean.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/Boolean.pm index 5293b11..633f910 100644 --- a/lib/Reaction/UI/ViewPort/Field/Mutable/Boolean.pm +++ b/lib/Reaction/UI/ViewPort/Field/Mutable/Boolean.pm @@ -3,7 +3,12 @@ package Reaction::UI::ViewPort::Field::Mutable::Boolean; use Reaction::Class; class Boolean is 'Reaction::UI::ViewPort::Field::Boolean', which{ - does 'Reaction::UI::ViewPort::Field::Role::Mutable'; + does 'Reaction::UI::ViewPort::Field::Role::Mutable::Simple'; + + implements adopt_value_string => as { + my ($self) = @_; + $self->value($self->value_string); + }; implements BUILD => as { my($self) = @_;