Commit | Line | Data |
---|---|---|
ddccc6a2 | 1 | package Reaction::UI::ViewPort::Field::Mutable::Integer; |
2 | ||
3 | use Reaction::Class; | |
4 | ||
5 | class Integer is 'Reaction::UI::ViewPort::Field::Integer', which { | |
62ffa273 | 6 | does 'Reaction::UI::ViewPort::Field::Role::Mutable::Simple'; |
7 | ||
8 | implements adopt_value_string => as { | |
9 | my ($self) = @_; | |
10 | $self->value($self->value_string); | |
11 | }; | |
12 | ||
ddccc6a2 | 13 | }; |
14 | ||
15 | 1; |