File Coverage

blib/lib/Regexp/Common/URI/tv.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             # TV URLs.
2             # Internet draft: draft-zigmond-tv-url-03.txt
3              
4             package Regexp::Common::URI::tv;
5              
6 71     71   239 use Regexp::Common qw /pattern clean no_defaults/;
  71         72  
  71         346  
7 71     71   332 use Regexp::Common::URI qw /register_uri/;
  71         82  
  71         2395  
8 71     71   262 use Regexp::Common::URI::RFC2396 qw /$hostname/;
  71         76  
  71         4296  
9              
10 71     71   247 use strict;
  71         156  
  71         1053  
11 71     71   189 use warnings;
  71         69  
  71         1443  
12              
13 71     71   207 use vars qw /$VERSION/;
  71         72  
  71         5336  
14             $VERSION = '2016060801';
15              
16              
17             my $tv_scheme = 'tv';
18             my $tv_url = "(?k:(?k:$tv_scheme):(?k:$hostname)?)";
19              
20             register_uri $tv_scheme => $tv_url;
21              
22             pattern name => [qw (URI tv)],
23             create => $tv_url,
24             ;
25              
26             1;
27              
28             __END__