File Coverage

blib/lib/Data/Validate/Email.pm
Criterion Covered Total %
statement 43 43 100.0
branch 21 26 80.7
condition 1 3 33.3
subroutine 9 9 100.0
pod 4 4 100.0
total 78 85 91.7


line stmt bran cond sub pod time code
1             package Data::Validate::Email;
2              
3 4     4   100776 use strict;
  4         9  
  4         180  
4 4     4   24 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  4         6  
  4         446  
5              
6             require Exporter;
7 4     4   13555 use AutoLoader 'AUTOLOAD';
  4         7447  
  4         83  
8              
9 4     4   4789 use Email::Address;
  4         210056  
  4         353  
10 4     4   4242 use Data::Validate::Domain;
  4         58650  
  4         509  
11              
12             @ISA = qw(Exporter);
13              
14              
15              
16             # no functions are exported by default. See EXPORT_OK
17             @EXPORT = qw();
18              
19             @EXPORT_OK = qw(
20             is_email
21             is_email_rfc822
22             is_domain
23             is_username
24             );
25              
26             %EXPORT_TAGS = ();
27              
28             $VERSION = '0.04';
29              
30              
31             # No preloads
32              
33             1;
34             __END__