File Coverage

blib/lib/Regexp/Common/URI/tel.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::tel;
2              
3 72     72   241 use Regexp::Common qw /pattern clean no_defaults/;
  72         77  
  72         328  
4 72     72   267 use Regexp::Common::URI qw /register_uri/;
  72         77  
  72         2731  
5 72         5223 use Regexp::Common::URI::RFC2806 qw /$telephone_subscriber
6 72     72   255 $telephone_subscriber_no_future/;
  72         165  
7              
8 72     72   272 use strict;
  72         84  
  72         1229  
9 72     72   215 use warnings;
  72         77  
  72         1611  
10              
11 72     72   230 use vars qw /$VERSION/;
  72         204  
  72         6945  
12             $VERSION = '2017040401';
13              
14              
15             my $tel_scheme = 'tel';
16             my $tel_uri = "(?k:(?k:$tel_scheme):(?k:$telephone_subscriber))";
17             my $tel_uri_nf = "(?k:(?k:$tel_scheme):(?k:$telephone_subscriber_no_future))";
18              
19             register_uri $tel_scheme => $tel_uri;
20              
21             pattern name => [qw (URI tel)],
22             create => $tel_uri
23             ;
24              
25             pattern name => [qw (URI tel nofuture)],
26             create => $tel_uri_nf
27             ;
28              
29             1;
30              
31             __END__