File Coverage

blib/lib/Regexp/Common/URI/RFC1035.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 33 33 100.0


line stmt bran cond sub pod time code
1             package Regexp::Common::URI::RFC1035;
2              
3 72     72   265 use Regexp::Common qw /pattern clean no_defaults/;
  72         80  
  72         297  
4              
5 72     72   264 use strict;
  72         85  
  72         1185  
6 72     72   293 use warnings;
  72         84  
  72         1635  
7              
8 72     72   235 use vars qw /$VERSION/;
  72         68  
  72         3692  
9             $VERSION = '2017040401';
10              
11 72     72   237 use vars qw /@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA/;
  72         83  
  72         3216  
12              
13 72     72   231 use Exporter ();
  72         76  
  72         3668  
14             @ISA = qw /Exporter/;
15              
16             my %vars;
17              
18             BEGIN {
19 72     72   229 $vars {low} = [qw /$digit $letter $let_dig $let_dig_hyp $ldh_str/];
20 72         910 $vars {parts} = [qw /$label $subdomain/];
21 72         2037 $vars {domain} = [qw /$domain/];
22             }
23              
24 72     72   259 use vars map {@$_} values %vars;
  72         79  
  72         187  
  216         12838  
25              
26             @EXPORT = qw /$host/;
27             @EXPORT_OK = map {@$_} values %vars;
28             %EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]);
29              
30             # RFC 1035.
31             $digit = "[0-9]";
32             $letter = "[A-Za-z]";
33             $let_dig = "[A-Za-z0-9]";
34             $let_dig_hyp = "[-A-Za-z0-9]";
35             $ldh_str = "(?:[-A-Za-z0-9]+)";
36             $label = "(?:$letter(?:(?:$ldh_str){0,61}$let_dig)?)";
37             $subdomain = "(?:$label(?:[.]$label)*)";
38             $domain = "(?: |(?:$subdomain))";
39              
40              
41             1;
42              
43             __END__