File Coverage

blib/lib/Form/Processor/Field/Text.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	8	10	80.0
condition			n/a
subroutine	7	8	87.5
pod	2	4	50.0
total	40	46	86.9

package Form::Processor::Field::Text;
$Form::Processor::Field::Text::VERSION = '1.162360';
use strict;
use warnings;
use base 'Form::Processor::Field';



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

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



sub init_widget { return '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;

}

# ABSTRACT: A simple text entry field




1;

__END__