File Coverage

blib/lib/FormValidator/LazyWay/Rule/Email.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	2	4	50.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	25	32	78.1

package FormValidator::LazyWay::Rule::Email;

use strict;
use warnings;
use Email::Valid;
use Email::Valid::Loose;

sub email {
    my $text = shift;
    my $args = shift;

    return Email::Valid->address( -address => $text, %{$args} ) ? 1 : 0;
}

sub email_loose {
    my $text = shift;
    my $args = shift;

    return Email::Valid::Loose->address( -address => $text, %{$args} ) ? 1 : 0;
}

1;

=head1 NAME

FormValidator::LazyWay::Rule::Email - Email Rule

=head1 METHOD

=head2 email

=head2 email_loose

=cut