unlazified field value setting
[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / Mutable / Boolean.pm
1 package Reaction::UI::ViewPort::Field::Mutable::Boolean;
2
3 use Reaction::Class;
4
5 class Boolean is 'Reaction::UI::ViewPort::Field::Boolean', which{
6   does 'Reaction::UI::ViewPort::Field::Role::Mutable';
7
8   implements BUILD => as {
9     my($self) = @_;
10     $self->value(0) unless $self->has_value;
11   };
12
13 };
14
15 1;