fixed bool field

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

diff --git a/lib/Reaction/UI/ViewPort/Field/String.pm b/lib/Reaction/UI/ViewPort/Field/String.pm
index 4be6bdc..ec7e295 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Field/String.pm
+++ b/lib/Reaction/UI/ViewPort/Field/String.pm
@@ -1,34 +1,14 @@
 package Reaction::UI::ViewPort::Field::String;
 
 use Reaction::Class;
+use aliased 'Reaction::UI::ViewPort::Field';
 
-class String is 'Reaction::UI::ViewPort::Field', which {
+use namespace::clean -except => [ qw(meta) ];
+extends Field;
 
-  has '+value' => (isa => 'Str'); # accept over 255 chars in case, upstream
-                                  # constraint from model should catch it
-  
-  has '+layout' => (default => 'textfield');
 
-};
+has '+value' => (isa => 'Str');
+__PACKAGE__->meta->make_immutable;
 
-1;  
 
-=head1 NAME
-
-Reaction::UI::ViewPort::Field::String
-
-=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
+1;