File Coverage

blib/lib/Data/Validate/WithYAML/Plugin/EmailMX.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Data::Validate::WithYAML::Plugin::EmailMX;
2              
3 2     2   137284 use warnings;
  2         15  
  2         67  
4 2     2   12 use strict;
  2         4  
  2         56  
5              
6 2     2   11 use Carp;
  2         4  
  2         132  
7              
8 2     2   1185 use Net::validMX;
  2         210821  
  2         366  
9              
10             # ABSTRACT: Plugin to check if a mx exists for the given mail address
11              
12             our $VERSION = '0.01';
13              
14              
15             sub check {
16 15     15 1 11572 my ($class, $value) = @_;
17            
18 15 100       325 croak "no value to check" unless defined $value;
19            
20 14         75 my ($rv) = Net::validMX::check_valid_mx($value);
21              
22 14         2981545 return $rv;
23             }
24              
25             1;
26              
27             __END__