HTML::Widget::Constraint::Length - Length Constraint

HTML-Widget documentation Contained in the HTML-Widget distribution.

Index

Code Index:

NAME

Top

HTML::Widget::Constraint::Length - Length Constraint

SYNOPSIS

Top

    my $c = $widget->constraint( 'Length', 'foo' );
    $c->min(23);
    $c->max(50);

DESCRIPTION

Top

Length Constraint.

METHODS

Top

maximum

Arguments: $max_value

minimum

Arguments: $min_value

validate

AUTHOR

Top

Sebastian Riedel, sri@oook.de

LICENSE

Top

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

HTML-Widget documentation Contained in the HTML-Widget distribution. 
package HTML::Widget::Constraint::Length;

use warnings;
use strict;
use base 'HTML::Widget::Constraint';

__PACKAGE__->mk_accessors(qw/minimum maximum/);

*min = \&minimum;
*max = \&maximum;


sub validate {
    my ( $self, $value ) = @_;

    # Return valid on an empty value
    return 1 unless defined($value);
    return 1 if ( $value eq '' );

    my $minimum = $self->minimum;
    my $maximum = $self->maximum;
    my $failed  = 0;
    if ($minimum) {
        $failed++ unless ( length($value) >= $minimum );
    }
    if ($maximum) {
        $failed++ unless ( length($value) <= $maximum );
    }
    return !$failed;
}


1;