Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
button.pm	655 B	-rw-r--r--
checkbox.pm	7 KB	-rw-r--r--
date.pm	6.06 KB	-rw-r--r--
datetime.pm	6.06 KB	-rw-r--r--
datetime_local.pm	6.15 KB	-rw-r--r--
email.pm	5.89 KB	-rw-r--r--
file.pm	997 B	-rw-r--r--
hidden.pm	676 B	-rw-r--r--
image.pm	594 B	-rw-r--r--
number.pm	5.89 KB	-rw-r--r--
password.pm	585 B	-rw-r--r--
radio.pm	6.12 KB	-rw-r--r--
select.pm	6.5 KB	-rw-r--r--
static.pm	2.55 KB	-rw-r--r--
submit.pm	635 B	-rw-r--r--
text.pm	5.89 KB	-rw-r--r--
textarea.pm	1.34 KB	-rw-r--r--
time.pm	6.06 KB	-rw-r--r--
url.pm	5.89 KB	-rw-r--r--

Code Editor : textarea.pm

###########################################################################
# Copyright (c) Nate Wiger http://nateware.com. All Rights Reserved.
# Please visit http://formbuilder.org for tutorials, support, and examples.
###########################################################################

# The majority of this module's methods (including new) are
# inherited directly from ::base, since they involve things
# which are common, such as parameter parsing. The only methods
# that are individual to different fields are those that affect
# the rendering, such as script() and tag()

package CGI::FormBuilder::Field::textarea;

use strict;
use warnings;
no  warnings 'uninitialized';

use CGI::FormBuilder::Util;
use CGI::FormBuilder::Field::text;
use base 'CGI::FormBuilder::Field::text';

our $VERSION = '3.10';

*render = \&tag;
sub tag {
    local $^W = 0;    # -w sucks
    my $self = shift;
    my $attr = $self->attr;

my $jspre = $self->{_form}->jsprefix;

my $tag   = '';
    my @value = $self->tag_value;   # sticky is different in <tag>

delete $attr->{type};           # <textarea type="textarea"> invalid

my $text = join "\n", @value;
    $tag .= htmltag('textarea', $attr) . escapehtml($text) . '</textarea>';

debug 2, "$self->{name}: generated tag = $tag";
    return $tag;       # always return scalar tag
}

__END__

${this.title}

Code Editor : textarea.pm