rclass stuff ripped out of everything but widget classes

1 files changed, 14 insertions, 10 deletions

diff --git a/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm b/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm
index 3a3354f..ec5c883 100644
--- a/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm
+++ b/lib/Reaction/UI/ViewPort/Field/RelatedObject.pm
@@ -3,19 +3,23 @@ package Reaction::UI::ViewPort::Field::RelatedObject;
 use Reaction::Class;
 use Scalar::Util 'blessed';
 
-class RelatedObject is 'Reaction::UI::ViewPort::Field', which {
+use namespace::clean -except => [ qw(meta) ];
+extends 'Reaction::UI::ViewPort::Field';
 
-  has value_map_method => (
-    isa => 'Str', is => 'ro', required => 1, default => sub { 'display_name' },
-  );
 
-  around _value_string_from_value => sub {
-    my $orig = shift;
-    my $self = shift;
-    my $meth = $self->value_map_method;
-    return $self->$orig(@_)->$meth;
-  };
 
+has value_map_method => (
+  isa => 'Str', is => 'ro', required => 1, default => sub { 'display_name' },
+);
+
+around _value_string_from_value => sub {
+  my $orig = shift;
+  my $self = shift;
+  my $meth = $self->value_map_method;
+  return $self->$orig(@_)->$meth;
 };
 
+__PACKAGE__->meta->make_immutable;
+
+
 1;