File Coverage

blib/lib/Regexp/Common/URI/fax.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::fax;
2              
3 72     72   289 use Regexp::Common qw /pattern clean no_defaults/;
  72         73  
  72         352  
4 72     72   275 use Regexp::Common::URI qw /register_uri/;
  72         83  
  72         4354  
5 72         8044 use Regexp::Common::URI::RFC2806 qw /$fax_subscriber
6 72     72   24010 $fax_subscriber_no_future/;
  72         188  
7              
8 72     72   325 use strict;
  72         73  
  72         1190  
9 72     72   203 use warnings;
  72         77  
  72         1518  
10              
11 72     72   207 use vars qw /$VERSION/;
  72         72  
  72         6786  
12             $VERSION = '2017040401';
13              
14              
15             my $fax_scheme = 'fax';
16             my $fax_uri = "(?k:(?k:$fax_scheme):(?k:$fax_subscriber))";
17             my $fax_uri_nf = "(?k:(?k:$fax_scheme):(?k:$fax_subscriber_no_future))";
18              
19             register_uri $fax_scheme => $fax_uri;
20              
21             pattern name => [qw (URI fax)],
22             create => $fax_uri
23             ;
24              
25             pattern name => [qw (URI fax nofuture)],
26             create => $fax_uri_nf
27             ;
28              
29             1;
30              
31             __END__