reneeb / data-validate-withyaml-plugin-emailmx

NAME

Data::Validate::WithYAML::Plugin::EmailMX - Plugin to check if a mx exists for the given mail address

VERSION

version 0.01

SYNOPSIS

use Data::Validate::WithYAML::Plugin::EmailMX;

my $foo = Data::Validate::WithYAML::Plugin::EmailMX->check( '[email protected]' );
...

# use the plugin via Data::Validate::WithYAML

use Data::Validate::WithYAML;

my $email     = '[email protected]';
my $validator = Data::Validate::WithYAML->new( 'test.yml' );
print "yes" if $validator->check( 'email', $email );

test.yml

---
step1:
    email:
        plugin: EmailMX
        type: required

SUBROUTINES

check

SEE ALSO

Net::validMX

Development

The distribution is contained in a Git repository, so simply clone the repository

$ git clone git://github.com/reneeb/Data-Validate-WithYAML-Plugin-EmailMX.git

and change into the newly-created directory.

$ cd Data-Validate-WithYAML-Plugin-EmailMX

The project uses Dist::Zilla to build the distribution, hence this will need to be installed before continuing:

$ cpanm Dist::Zilla

To install the required prequisite packages, run the following set of commands:

$ dzil authordeps --missing | cpanm
$ dzil listdeps --author --missing | cpanm

The distribution can be tested like so:

$ dzil test

To run the full set of tests (including author and release-process tests), add the --author and --release options:

$ dzil test --author --release

AUTHOR

Renee Baecker [email protected]

COPYRIGHT AND LICENSE

This software is Copyright (c) 2020 by Renee Baecker.

This is free software, licensed under:

The Artistic License 2.0 (GPL Compatible)

data-validate-withyaml-plugin-emailmx's Issues

t/01_check_addresses.t started to fail

Test 10 of t/01_check_addresses.t fails. After doing this change

diff --git a/t/01_check_addresses.t b/t/01_check_addresses.t
index f618d35..f65aaaa 100644
--- a/t/01_check_addresses.t
+++ b/t/01_check_addresses.t
@@ -36,7 +36,7 @@ for my $mail ( @emails ){
 
 for my $check ( @blacklist ){
     my $retval = $module->check( $check );
-    ok( !$retval );
+    ok( !$retval, "checked $check from blacklist" );
 }
 
 my $error;

running the test would also show the problematic $check value:

...
ok 8 - checked [email protected] from blacklist
ok 9 - checked [email protected] from blacklist
not ok 10 - checked [email protected] from blacklist
#   Failed test 'checked [email protected] from blacklist'
#   at t/01_check_addresses.t line 39.
ok 11 - checked ^&@example.org from blacklist
ok 12 - checked test from blacklist
...