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