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 72     72   589 use Regexp::Common qw /pattern clean no_defaults/;
  72         84  
  72         358  
7 72     72   257 use Regexp::Common::URI qw /register_uri/;
  72         85  
  72         2471  
8 72     72   249 use Regexp::Common::URI::RFC2396 qw /$hostname/;
  72         79  
  72         4476  
9              
10 72     72   265 use strict;
  72         90  
  72         1284  
11 72     72   240 use warnings;
  72         134  
  72         1597  
12              
13 72     72   307 use vars qw /$VERSION/;
  72         72  
  72         5507  
14             $VERSION = '2017040401';
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__