File Coverage

blib/lib/Regexp/Common/URI/pop.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Regexp::Common::URI::pop;
2              
3 71     71   233 use Regexp::Common qw /pattern clean no_defaults/;
  71         77  
  71         592  
4 71     71   248 use Regexp::Common::URI qw /register_uri/;
  71         74  
  71         2572  
5 71     71   267 use Regexp::Common::URI::RFC1738 qw /$host $port/;
  71         71  
  71         4931  
6 71     71   21346 use Regexp::Common::URI::RFC2384 qw /$enc_user $enc_auth_type/;
  71         101  
  71         6043  
7              
8 71     71   356 use strict;
  71         184  
  71         1024  
9 71     71   183 use warnings;
  71         76  
  71         1277  
10              
11 71     71   192 use vars qw /$VERSION/;
  71         81  
  71         6329  
12             $VERSION = '2016060801';
13              
14              
15             my $scheme = "pop";
16             my $uri = "(?k:(?k:$scheme)://(?:(?k:$enc_user)" .
17             "(?:;AUTH=(?k:[*]|$enc_auth_type))?\@)?" .
18             "(?k:$host)(?::(?k:$port))?)";
19              
20             register_uri $scheme => $uri;
21              
22             pattern name => [qw (URI POP)],
23             create => $uri,
24             ;
25              
26             1;
27              
28             __END__