File Coverage

blib/lib/Data/MuForm/Field/Email.pm

Criterion	Covered	Total	%
statement	17	22	77.2
branch	4	6	66.6
condition			n/a
subroutine	6	8	75.0
pod	0	2	0.0
total	27	38	71.0

package Data::MuForm::Field::Email;
# ABSTRACT: validates email using Email::Valid

use Moo;
extends 'Data::MuForm::Field::Text';
use Types::Standard -types;

use Email::Valid;

our $class_messages = {
    'email_format' => 'Email should be of the format [_1]',
};

has 'email_valid_params' => ( is => 'rw', isa => HashRef );
has 'preserve_case' => ( is => 'rw' );

sub get_class_messages  {
    my $self = shift;
    return {
        %{ $self->next::method },
        %$class_messages,
    }
}

sub build_base_apply {
    [
        {
            transform => sub {
                my ( $value, $field ) = @_;
                return $value
                    if $field->preserve_case;
                return lc( $value );
            }
        },
        {
            check => sub {
                my ( $value, $field ) = @_;
                my $checked = Email::Valid->address(
                    %{ $field->email_valid_params || {} },
                    -address => $value,
                );
                $field->value($checked)
                    if $checked;
            },
            message => sub {
                my ( $value, $field ) = @_;
                return [$field->get_message('email_format'), '[e-mail]'];
            },
        }
    ]
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Data::MuForm::Field::Email - validates email using Email::Valid

=head1 VERSION

version 0.03

=head1 DESCRIPTION

Validates that the input looks like an email address using L<Email::Valid>.
Widget type is 'text'.

If form has 'is_html5' flag active it will render <input type="email" ... />
instead of type="text"

This field has an 'email_valid_params' attribute that accepts a hash
reference of extra values passed to L<Email::Valid/address> when
validating email addresses.

If you want to preserve the case of the email address, set the
'preserve_case' attribute.

=head1 DEPENDENCIES

L<Email::Valid>

=head1 AUTHOR

Gerda Shank

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Gerda Shank.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut