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   42229 use strict;
  4         6  
  4         103  
4 4     4   10 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  4         4  
  4         237  
5              
6             require Exporter;
7 4     4   1715 use AutoLoader 'AUTOLOAD';
  4         4050  
  4         17  
8              
9 4     4   1740 use Email::Address;
  4         78910  
  4         201  
10 4     4   1609 use Data::Validate::Domain;
  4         44582  
  4         383  
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.05';
29              
30              
31             # No preloads
32              
33             1;
34             __END__