File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Validator.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	10	12	83.3
condition	3	3	100.0
subroutine	8	8	100.0
pod	0	1	0.0
total	64	68	94.1

use strict;
use warnings;

use Moo;
use Carp;
use Types::Standard qw(InstanceOf);
use namespace::clean;

has config => (
    is       => 'ro',
    isa      => InstanceOf['Dancer2::Plugin::FormValidator::Config'],
    required => 1,
);

has registry => (
    is       => 'ro',
    isa      => InstanceOf['Dancer2::Plugin::FormValidator::Registry'],
    required => 1,
);

# Apply validators to each fields.
# Collect valid and invalid fields.
    my ($self, $profile, $input)  = @_;

    if (ref $profile ne 'HASH') {
        Carp::croak("Profile should be a HashRef\n")
    }

    my $success = 0;
    my %profile = %{ $profile };
    my $is_valid;
    my @valid;
    my @invalid;

    for my $field (keys %profile) {
        $is_valid = 1;
        my @validators = @{ $profile{$field} };

        for my $validator_declaration (@validators) {
            if (my ($name, $params) = $self->_split_validator_declaration($validator_declaration)) {
                my $validator = $self->registry->get($name);

                if (not $validator->validate($field, $input, split(',', $params))) {
                    push @invalid, [ $field, $name, $params ];
                    $is_valid = 0;
                }

                if (!$is_valid && $validator->stop_on_fail) {
                    last;
                }
            }
        }

        if ($is_valid == 1) {
            push @valid, $field;
        }
    }

    if (not @invalid) {
        $success = 1;
    }

    return ($success, \@valid, \@invalid)
}

# Because validator signatures could be validator:params, we need to split it.
    return ($_[1] =~ /([^:]+):?(.*)/);
}

1;