rclass stuff ripped out of everything but widget classes

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

diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/HiddenArray.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/HiddenArray.pm
index e55836f..fa75e3c 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Field/Mutable/HiddenArray.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Mutable/HiddenArray.pm
@@ -2,26 +2,27 @@ package Reaction::UI::ViewPort::Field::Mutable::HiddenArray;
 
 use Reaction::Class;
 
-class HiddenArray is 'Reaction::UI::ViewPort::Field', which {
-
-  does 'Reaction::UI::ViewPort::Field::Role::Mutable';
-
-  has '+value' => (isa => 'ArrayRef');
-
-  around value => sub {
-    my $orig = shift;
-    my $self = shift;
-    if (@_) {
-      #this hsould be done with coercions
-      $orig->($self, (ref $_[0] eq 'ARRAY' ? $_[0] : [ $_[0] ]));
-      $self->sync_to_action;
-    } else {
-      $orig->($self);
-    }
-  };
-
-  implements _empty_value => as { [] };
+use namespace::clean -except => [ qw(meta) ];
+extends 'Reaction::UI::ViewPort::Field';
+
+with 'Reaction::UI::ViewPort::Field::Role::Mutable';
+
+has '+value' => (isa => 'ArrayRef');
+
+around value => sub {
+  my $orig = shift;
+  my $self = shift;
+  if (@_) {
+    #this hsould be done with coercions
+    $orig->($self, (ref $_[0] eq 'ARRAY' ? $_[0] : [ $_[0] ]));
+    $self->sync_to_action;
+  } else {
+    $orig->($self);
+  }
 };
+sub _empty_value { [] };
+__PACKAGE__->meta->make_immutable;
+
 
 1;