Form::Processor::Field::Text - A simple text entry field

Form-Processor documentation Contained in the Form-Processor distribution.

Index

Code Index:

NAME

Top

Form::Processor::Field::Text - A simple text entry field

SYNOPSIS

Top

See Form::Processor

DESCRIPTION

Top

This is a simple text entry field.

Widget

Fields can be given a widget type that is used as a hint for the code that renders the field.

This field's widget type is: "text".

Subclass

Fields may inherit from other fields. This field inherits from: "Field".

METHODS

Top

size [integer]

This integer value, if non-zero, defines the max size in characters of the input field.

The recommendation is to not use "Text" fields directly but to create a subclass for each type of input (e.g. Name) that inherits from this class and sets additional validation, including size.

As of Form::Processor version .20 (0.04 for this class) the default has changed from zero to 2500.

min_length [integer]

This integer value, if non-zero, defines the minimum number of characters that must be entered.

Default to zero characters.

AUTHORS

Top

Bill Moseley

COPYRIGHT

Top

See Form::Processor for copyright.

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

SUPPORT / WARRANTY

Top

Form::Processor is free software and is provided WITHOUT WARRANTY OF ANY KIND. Users are expected to review software for fitness and usability.

Form-Processor documentation Contained in the Form-Processor distribution. 
package Form::Processor::Field::Text;
use strict;
use warnings;
use base 'Form::Processor::Field';
our $VERSION = '0.04';


use Rose::Object::MakeMethods::Generic (
    scalar => [
        min_length      => { interface => 'get_set_init' },
        size            => { interface => 'get_set_init' },
    ],
);

sub init_size { 2500 }  # new in .20 as a sanity check
sub init_min_length { 0 }



sub init_widget { 'text' }

sub validate {
    my $field = shift;

    return unless $field->SUPER::validate;

    my $value = $field->input;


    if ( my $size = $field->size  ) {

        my $value = $field->input;

        return $field->add_error( 'Please limit to [quant,_1,character]. You submitted [_2]', $size, length $value )
            if length $value > $size;

    }

    # Check for min length
    if ( my $size = $field->min_length  ) {

        return $field->add_error( 'Input must be at least [quant,_1,character]. You submitted [_2]', $size, length $value )
            if length $value < $size;

    }

    return 1;

}




1;