File Coverage

blib/lib/Input/Validator/Group.pm

Criterion	Covered	Total	%
statement	43	45	95.5
branch	8	10	80.0
condition	2	4	50.0
subroutine	11	11	100.0
pod	6	7	85.7
total	70	77	90.9

package Input::Validator::Group;

use strict;
use warnings;

use base 'Input::Validator::Base';

use Input::Validator::ConstraintBuilder;

sub BUILD {
    my $self = shift;

    $self->{constraints} ||= [];
    $self->{fields}      ||= [];

    return $self;
}

sub name {
    my $self = shift;

    return $self->{name} unless @_;

    $self->{name} = $_[0];

    return $self;
}

sub error {
    my $self = shift;

    return $self->{error} unless @_;

    $self->{error} = $_[0];

    return $self;
}

sub unique { shift->constraint('unique') }
sub equal  { shift->constraint('equal') }

sub constraint {
    my $self = shift;

    my $constraint = Input::Validator::ConstraintBuilder->build(@_);

    push @{$self->{constraints}}, $constraint;

    return $self;
}

sub is_valid {
    my $self = shift;

    # Don't check if some field already has an error
    return 0 if grep {$_->error} @{$self->{fields}};

    # Get all the values
    my $values = [map { $_->value } @{$self->{fields}}];

    foreach my $c (@{$self->{constraints}}) {
        my ($ok, $error) = $c->is_valid($values);

        unless ($ok) {
            $self->error( $error ? $error : $c->error);
            return 0;
        }
    }

    return 1;
}

1;
__END__