rewrite IM predicates

[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 fb0d886..329ebde 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Field/Boolean.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Boolean.pm
@@ -1,32 +1,12 @@
 package Reaction::UI::ViewPort::Field::Boolean;
 
 use Reaction::Class;
+use aliased 'Reaction::UI::ViewPort::Field';
 
-class Boolean is 'Reaction::UI::ViewPort::Field', which {
-
+class Boolean, is Field, which {
   has '+value' => (isa => 'Bool');
-  #has '+layout' => (default => 'checkbox');
 
+  implements _empty_value => as { undef };
 };
 
 1;
-
-=head1 NAME
-
-Reaction::UI::ViewPort::Field::Boolean
-
-=head1 DESCRIPTION
-
-=head1 SEE ALSO
-
-=head2 L<Reaction::UI::ViewPort::Field>
-
-=head1 AUTHORS
-
-See L<Reaction::Class> for authors.
-
-=head1 LICENSE
-
-See L<Reaction::Class> for the license.
-
-=cut