remove class blocks from widget code

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

diff --git a/lib/Reaction/UI/Widget/Field/Boolean.pm b/lib/Reaction/UI/Widget/Field/Boolean.pm
index c6afaff..e53a724 100644 (file)
--- a/lib/Reaction/UI/Widget/Field/Boolean.pm
+++ b/lib/Reaction/UI/Widget/Field/Boolean.pm
@@ -2,41 +2,38 @@ package Reaction::UI::Widget::Field::Boolean;
 
 use Reaction::UI::WidgetClass;
 
-class Boolean is 'Reaction::UI::Widget::Field', which {
+use namespace::clean -except => [ qw(meta) ];
+extends 'Reaction::UI::Widget::Field';
+
+
+
+__PACKAGE__->meta->make_immutable;
 
-};
 
 1;
 
-=for layout widget
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Field::Boolean
+
+=head1 DESCRIPTION
 
-[% label %] [% field %] [% message %] <br>
+See L<Reaction::UI::Widget::Field>
 
-=for layout field
+=head1 FRAGMENTS
 
-[%
-   IF content;
-    checked = 'checked="checked"';
-   ELSE;
-    checked = "";
-   END;
-%]
+=head2 value
 
-<!-- We need a replacement for process_attrs -->
-<input type="checkbox" id="[% id | html %]" name="[% name | html %]" value="1" [% checked %] />
+C<content> contains the viewport's value_string
 
-=for layout label
+=head1 AUTHORS
 
-<!-- This conditional goes away when mst comes up with something better -->
-[% IF content %]
-  <label for="[% id %]"> [% content | html %]: </label>
-[% END %]
+See L<Reaction::Class> for authors.
 
-=for layout message
+=head1 LICENSE
 
-<!-- This conditional goes away when mst comes up with something better -->
-[% IF content %]
-  <span> [% content | html %] </span>
-[% END %]
+See L<Reaction::Class> for the license.
 
 =cut