File Coverage

blib/lib/Regexp/Common/URI/news.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Regexp::Common::URI::news;
2              
3 71     71   232 use Regexp::Common qw /pattern clean no_defaults/;
  71         71  
  71         319  
4 71     71   308 use Regexp::Common::URI qw /register_uri/;
  71         77  
  71         2540  
5 71         6209 use Regexp::Common::URI::RFC1738 qw /$grouppart $group $article
6 71     71   231 $host $port $digits/;
  71         72  
7              
8 71     71   260 use strict;
  71         72  
  71         1083  
9 71     71   210 use warnings;
  71         84  
  71         1544  
10              
11 71     71   216 use vars qw /$VERSION/;
  71         71  
  71         8185  
12             $VERSION = '2016060801';
13              
14              
15             my $news_scheme = 'news';
16             my $news_uri = "(?k:(?k:$news_scheme):(?k:$grouppart))";
17              
18             my $nntp_scheme = 'nntp';
19             my $nntp_uri = "(?k:(?k:$nntp_scheme)://(?k:(?k:(?k:$host)(?::(?k:$port))?)"
20             . "/(?k:$group)(?:/(?k:$digits))?))";
21              
22             register_uri $news_scheme => $news_uri;
23             register_uri $nntp_scheme => $nntp_uri;
24              
25             pattern name => [qw (URI news)],
26             create => $news_uri,
27             ;
28              
29             pattern name => [qw (URI NNTP)],
30             create => $nntp_uri,
31             ;
32              
33             1;
34              
35             __END__