File Coverage

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

Criterion	Covered	Total	%
statement	25	26	96.1
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	37	41	90.2

use strict;
use warnings;

use Moo;
use utf8;
use Email::Valid;
use namespace::clean;

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

    return {
        en => '%s is not a valid email',
        ru => '%s не является валидным email адресом',
        de => '%s enthält keine gültige E-Mail-Adresse',
    };
}

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

    if ($self->_field_defined_and_non_empty($field, $input)) {
        return $self->_is_valid_email_and_dns($input->{$field});
    }

    return 1;
}

    if (my $valid_email = Email::Valid->address(-address => $_[1], -mxcheck => 1 )) {
        return $_[1] eq $valid_email;
    }

    return 0;
}

1;