diff options
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Field/Mutable/Integer.pm')
-rw-r--r-- | lib/Reaction/UI/ViewPort/Field/Mutable/Integer.pm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/Integer.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/Integer.pm index 958150a..452e2ab 100644 --- a/lib/Reaction/UI/ViewPort/Field/Mutable/Integer.pm +++ b/lib/Reaction/UI/ViewPort/Field/Mutable/Integer.pm @@ -2,14 +2,16 @@ package Reaction::UI::ViewPort::Field::Mutable::Integer; use Reaction::Class; -class Integer is 'Reaction::UI::ViewPort::Field::Integer', which { - does 'Reaction::UI::ViewPort::Field::Role::Mutable::Simple'; - - implements adopt_value_string => as { - my ($self) = @_; - $self->value($self->value_string); - }; +use namespace::clean -except => [ qw(meta) ]; +extends 'Reaction::UI::ViewPort::Field::Integer'; +with 'Reaction::UI::ViewPort::Field::Role::Mutable::Simple'; +sub adopt_value_string { + my ($self) = @_; + $self->value($self->value_string); }; +__PACKAGE__->meta->make_immutable; + + 1; |