rclass stuff ripped out of everything but widget classes

1 files changed, 24 insertions, 25 deletions

diff --git a/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm b/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm
index 4244b31..e41f264 100644
--- a/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Role/Mutable/Simple.pm
@@ -4,35 +4,34 @@ use Reaction::Role;
 
 use aliased 'Reaction::UI::ViewPort::Field::Role::Mutable';
 
-role Simple which {
-
-  does Mutable;
-
-  has value_string => (
-    is => 'rw', lazy_build => 1, trigger_adopt('value_string'),
-    clearer => 'clear_value',
-  );
+use namespace::clean -except => [ qw(meta) ];
+with Mutable;
+
+has value_string => (
+  is => 'rw', lazy_build => 1, trigger_adopt('value_string'),
+  clearer => 'clear_value',
+);
+
+around value_string => sub {
+  my $orig = shift;
+  my $self = shift;
+  if (@_ && defined($_[0]) && !ref($_[0]) && $_[0] eq ''
+      && !$self->value_is_required) {
+    $self->clear_value;
+    return undef;
+  }
+  return $self->$orig(@_);
+};
 
-  around value_string => sub {
-    my $orig = shift;
-    my $self = shift;
-    if (@_ && defined($_[0]) && !ref($_[0]) && $_[0] eq ''
-        && !$self->value_is_required) {
-      $self->clear_value;
-      return undef;
-    }
-    return $self->$orig(@_);
-  };
+# the user needs to implement this because, honestly, you're always going
+# to need to do something custom and the only common thing really is
+# "you probably set $self->value at the end"
+requires 'adopt_value_string';
 
-  # the user needs to implement this because, honestly, you're always going
-  # to need to do something custom and the only common thing really is
-  # "you probably set $self->value at the end"
-  requires 'adopt_value_string';
+around accept_events => sub { ('value_string', shift->(@_)) };
 
-  around accept_events => sub { ('value_string', shift->(@_)) };
+around force_events => sub { (value_string => '', shift->(@_)) };
 
-  around force_events => sub { (value_string => '', shift->(@_)) };
 
-};
 
 1;