package HTML::FormWidgets::Textarea;

# @(#)$Id: Textarea.pm 7 2008-02-18 00:45:41Z pjf $

use strict;
use warnings;
use base qw(HTML::FormWidgets);

use version; our $VERSION = qv( sprintf '0.1.%d', q$Rev: 7 $ =~ /\d+/gmx );

sub _render {
   my ($me, $ref)  = @_;

   $ref->{cols} = $me->width || 60;
   $ref->{rows} = $me->height;

   return $me->elem->textarea( $ref );
}

1;

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