PageRenderTime 5ms CodeModel.GetById 1ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/lib/HTML/FormHandler/Field/TextArea.pm

http://github.com/gshank/html-formhandler
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;