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   482 use Regexp::Common qw /pattern clean no_defaults/;
  72         161  
  72         440  
4              
5 72     72   476 use strict;
  72         164  
  72         1456  
6 72     72   427 use warnings;
  72         165  
  72         2047  
7              
8 72     72   417 use vars qw /$VERSION/;
  72         153  
  72         4364  
9             $VERSION = '2017060201';
10              
11 72     72   447 use vars qw /@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA/;
  72         166  
  72         3878  
12              
13 72     72   410 use Exporter ();
  72         213  
  72         5005  
14             @ISA = qw /Exporter/;
15              
16             my %vars;
17              
18             BEGIN {
19 72     72   368 $vars {low} = [qw /$digit $letter $let_dig $let_dig_hyp $ldh_str/];
20 72         233 $vars {parts} = [qw /$label $subdomain/];
21 72         3799 $vars {domain} = [qw /$domain/];
22             }
23              
24 72     72   407 use vars map {@$_} values %vars;
  72         156  
  72         280  
  216         13322  
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__