Commit | Line | Data |
---|---|---|
ddccc6a2 | 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'; | |
3fad510b | 7 | |
8 | implements BUILD => as { | |
9 | my($self) = @_; | |
10 | $self->value(0) unless $self->has_value; | |
11 | }; | |
12 | ||
ddccc6a2 | 13 | }; |
14 | ||
15 | 1; |