File Coverage

blib/lib/Form/Processor/Field/Email.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	29	31	93.5

package Form::Processor::Field::Email;
$Form::Processor::Field::Email::VERSION = '1.162360';
use strict;
use warnings;
use base 'Form::Processor::Field::Text';
use Email::Valid;




sub init_size {254}    # http://www.rfc-editor.org/errata_search.php?rfc=3696&eid=1690

sub validate {
    my $self = shift;

    return unless $self->SUPER::validate;


    my $email = Email::Valid->address( $self->input );

    return $self->add_error( 'Email should be of the format [_1]', '[e-mail]' )
        unless $email;

    $self->input( lc $email );

    return 1;
}


# ABSTRACT: Validates email uisng Email::Valid



1;

__END__