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 72     72   496 use Regexp::Common qw /pattern clean no_defaults/;
  72         226  
  72         424  
4 72     72   524 use Regexp::Common::URI qw /register_uri/;
  72         154  
  72         3160  
5 72         7079 use Regexp::Common::URI::RFC1738 qw /$grouppart $group $article
6 72     72   422 $host $port $digits/;
  72         154  
7              
8 72     72   457 use strict;
  72         307  
  72         1494  
9 72     72   440 use warnings;
  72         142  
  72         1932  
10              
11 72     72   364 use vars qw /$VERSION/;
  72         178  
  72         9919  
12             $VERSION = '2017060201';
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__