/lib/HTML/FormHandler/Field/TextArea.pm
Perl | 20 lines | 13 code | 6 blank | 1 comment | 0 complexity | fd74e2bf59c91e819cbae9395b3b20c9 MD5 | raw file
1package HTML::FormHandler::Field::TextArea; 2# ABSTRACT: textarea input 3 4use Moose; 5extends 'HTML::FormHandler::Field::Text'; 6 7has '+widget' => ( default => 'Textarea' ); 8has 'cols' => ( isa => 'Int', is => 'rw' ); 9has 'rows' => ( isa => 'Int', is => 'rw' ); 10sub html_element { 'textarea' } 11 12=head1 Summary 13 14For HTML textarea. Uses 'textarea' widget. Set cols/row/minlength/maxlength. 15 16=cut 17 18__PACKAGE__->meta->make_immutable; 19use namespace::autoclean; 201;