File Coverage

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

Criterion	Covered	Total	%
statement	26	28	92.8
branch	2	4	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	38	44	86.3

use strict;
use warnings;

use Moo;
use utf8;
use List::Util qw(any);
use namespace::clean;

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

    return {
        en => '%s contains invalid value',
        ru => '%s содержит неверное значение',
        de => '%s enthält einen ungültigen Wert',
    };
}

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

    if ($self->_field_defined_and_non_empty($field, $input)) {
        return $self->_is_enum($input->{$field}, @enum);
    }

    return 1;
}

    my ($self, $value1, @enum) = @_;

    if (defined $value1) {
        return any {$_ eq $value1} @enum;

    }

    return 0;
}

1;