| FormValidator-LazyWay documentation | Contained in the FormValidator-LazyWay distribution. |
| FormValidator-LazyWay documentation | Contained in the FormValidator-LazyWay distribution. |
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;