File Coverage

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

Criterion	Covered	Total	%
statement	31	32	96.8
branch	5	6	83.3
condition	2	3	66.6
subroutine	8	8	100.0
pod	0	2	0.0
total	46	51	90.2

use strict;
use warnings;

use Moo;
use utf8;
use namespace::clean;

with 'Dancer2::Plugin::FormValidator::Role::Validator';

use constant {
    UNICODE => 'u',
    ASCII   => 'a',
};

has encoding => (
    is      => 'rw',
    default => ASCII,
);

    my $encoding = $_[0]->encoding;

    if ($encoding eq UNICODE) {
        return {
            en => '%s must contain only alphabetical symbols',
            ru => '%s должно содержать только символы алфавита',
            de => '%s darf nur alphabetische Zeichen enthalten',
        };
    }

    return {
        en => '%s must contain only latin alphabetical symbols',
        ru => '%s должно содержать только символы латинского алфавита',
        de => '%s darf nur lateinische Zeichen enthalten',
    };
}

    my ($self, $field, $input, $encoding) = @_;

    my $regex;

    if (defined $encoding and $encoding eq UNICODE) {
        $regex = qr/^[[:alpha:]]+$/;
        $self->encoding(UNICODE);
    }
    else {
        $regex = qr/^[[:alpha:]]+$/a;
        $self->encoding(ASCII);
    }

    if ($self->_field_defined_and_non_empty($field, $input)) {
        return $input->{$field} =~ $regex;
    }

    return 1;
}

1;