rclass stuff ripped out of everything but widget classes

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

diff --git a/lib/Reaction/UI/ViewPort/Field/Boolean.pm b/lib/Reaction/UI/ViewPort/Field/Boolean.pm
index cb6695e..53356ef 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Field/Boolean.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Boolean.pm
@@ -3,10 +3,14 @@ package Reaction::UI::ViewPort::Field::Boolean;
 use Reaction::Class;
 use aliased 'Reaction::UI::ViewPort::Field';
 
-class Boolean, is Field, which {
-  has '+value' => (isa => 'Bool');
+use namespace::clean -except => [ qw(meta) ];
+extends Field;
+
+
+has '+value' => (isa => 'Bool');
+
+override _empty_string_value => sub { 0 };
+__PACKAGE__->meta->make_immutable;
 
-  override _empty_string_value => sub { 0 };
-};
 
 1;