File Coverage

lib/HTML/FormWidgets/Textarea.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	4	50.0
condition	2	5	40.0
subroutine	5	5	100.0
pod	2	2	100.0
total	31	36	86.1

package HTML::FormWidgets::Textarea;

use strict;
use warnings;
use parent 'HTML::FormWidgets';

__PACKAGE__->mk_accessors( qw( cols config rows ) );

sub init {
   my ($self, $args) = @_;

   $self->cols  ( 60 );
   $self->config( undef );
   $self->rows  ( 1  );
   return;
}

sub render_field {
   my ($self, $args)  = @_;

   $self->id and $self->config
      and $self->add_literal_js( 'inputs', $self->id, $self->config );

   $args->{class} .= ($args->{class} ? q( ): q()).($self->class || q(ifield));

   $args->{cols }  = $self->cols; $args->{rows} = $self->rows;

   return $self->hacc->textarea( $args );
}

1;

# Local Variables:
# mode: perl
# tab-width: 3
# End: