Gecko [ v3.cesa.co.za ]

Linux cesa-www-main 6.1.0-49-cloud-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.174-1 (2026-05-26) x86_64
Apache/2.4.68 (Debian)
Server IP : 10.218.0.2 & Your IP : 216.73.216.28
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
FileInput.pm	2.05 KB	-rw-r--r--	2023-02-11 11:49
IgnoreInput.pm	773 B	-rw-r--r--	2023-02-11 11:49
ImageInput.pm	947 B	-rw-r--r--	2023-02-11 11:49
Input.pm	3.44 KB	-rw-r--r--	2023-02-11 11:49
KeygenInput.pm	765 B	-rw-r--r--	2023-02-11 11:49
ListInput.pm	6.44 KB	-rw-r--r--	2023-02-11 11:49
SubmitInput.pm	1008 B	-rw-r--r--	2023-02-11 11:49
TextInput.pm	1.18 KB	-rw-r--r--	2023-02-11 11:49

Rename

package HTML::Form::TextInput;

use strict;
use parent 'HTML::Form::Input';

our $VERSION = '6.11';

# ABSTRACT: An HTML form text input element for use with HTML::Form

#input/text
#input/password
#input/hidden
#textarea

sub value {
    my $self = shift;
    my $old  = $self->{value};
    $old = "" unless defined $old;
    if (@_) {
        Carp::croak("Input '$self->{name}' is readonly")
            if $self->{strict} && $self->{readonly};
        my $new = shift;
        my $n   = exists $self->{maxlength} ? $self->{maxlength} : undef;
        Carp::croak("Input '$self->{name}' has maxlength '$n'")
            if $self->{strict}
            && defined($n)
            && defined($new)
            && length($new) > $n;
        $self->{value} = $new;
    }
    $old;
}

__END__

=pod

=encoding UTF-8

=head1 NAME

HTML::Form::TextInput - An HTML form text input element for use with HTML::Form

=head1 VERSION

version 6.11

=head1 AUTHOR

Gisle Aas <gisle@activestate.com>

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut