<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">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-&gt;{value};
    $old = "" unless defined $old;
    if (@_) {
        Carp::croak("Input '$self-&gt;{name}' is readonly")
            if $self-&gt;{strict} &amp;&amp; $self-&gt;{readonly};
        my $new = shift;
        my $n   = exists $self-&gt;{maxlength} ? $self-&gt;{maxlength} : undef;
        Carp::croak("Input '$self-&gt;{name}' has maxlength '$n'")
            if $self-&gt;{strict}
            &amp;&amp; defined($n)
            &amp;&amp; defined($new)
            &amp;&amp; length($new) &gt; $n;
        $self-&gt;{value} = $new;
    }
    $old;
}

1;

__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 &lt;gisle@activestate.com&gt;

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 1998 by Gisle Aas.

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
</pre></body></html>