Commit | Line | Data |
---|---|---|
ddccc6a2 | 1 | package Reaction::UI::ViewPort::Field::Mutable::String; |
2 | ||
3 | use Reaction::Class; | |
4 | ||
81393881 | 5 | use namespace::clean -except => [ qw(meta) ]; |
6 | extends 'Reaction::UI::ViewPort::Field::String'; | |
62ffa273 | 7 | |
81393881 | 8 | with 'Reaction::UI::ViewPort::Field::Role::Mutable::Simple'; |
9 | sub adopt_value_string { | |
10 | my ($self) = @_; | |
11 | $self->value($self->value_string); | |
ddccc6a2 | 12 | }; |
13 | ||
81393881 | 14 | __PACKAGE__->meta->make_immutable; |
15 | ||
16 | ||
ddccc6a2 | 17 | 1; |