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   494 use Regexp::Common qw /pattern clean no_defaults/;
  72         161  
  72         479  
7 72     72   416 use Regexp::Common::URI qw /register_uri/;
  72         165  
  72         2902  
8 72     72   416 use Regexp::Common::URI::RFC2396 qw /$hostname/;
  72         168  
  72         5295  
9              
10 72     72   470 use strict;
  72         159  
  72         1481  
11 72     72   358 use warnings;
  72         156  
  72         1928  
12              
13 72     72   355 use vars qw /$VERSION/;
  72         174  
  72         6277  
14             $VERSION = '2017060201';
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__