File Coverage

blib/lib/IO/Validation/Domainvalidation.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             package IO::Validation::Domainvalidation;
2              
3              
4 2     2   70254 use 5.026001;
  2         18  
5 2     2   10 use strict;
  2         4  
  2         40  
6 2     2   9 use warnings;
  2         4  
  2         293  
7              
8             sub validate {
9 2     2 0 5 my ($self, $domain) = @_;
10 2 50       8 if( not ( $domain =~ m/^(?!\-)(?:[a-zA-Z\d\-]{0,62}[a-zA-Z\d]\.){1,126}(?!\d+)[a-zA-Z\d]{1,63}$/ ))
11             {
12              
13 2         17 die "Invalid Domain name";
14              
15             }
16             }
17              
18              
19             1;
20             __END__