[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / Mutable / String.pm

package Reaction::UI::ViewPort::Field::Mutable::String;

use Reaction::Class;

use namespace::clean -except => [ qw(meta) ];
extends 'Reaction::UI::ViewPort::Field::String';

with 'Reaction::UI::ViewPort::Field::Role::Mutable::Simple';
sub adopt_value_string {
  my ($self) = @_;
  $self->value($self->value_string);
};

__PACKAGE__->meta->make_immutable;


1;
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) ];
81393881	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	};
ddccc6a2	13
81393881	14	__PACKAGE__->meta->make_immutable;
	15
	16
ddccc6a2	17	1;