File Coverage

blib/lib/Regexp/Common/URI/prospero.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::prospero;
2              
3 72     72   533 use Regexp::Common qw /pattern clean no_defaults/;
  72         166  
  72         477  
4 72     72   426 use Regexp::Common::URI qw /register_uri/;
  72         186  
  72         3121  
5 72         7185 use Regexp::Common::URI::RFC1738 qw /$host $port $ppath $fieldname $fieldvalue
6 72     72   406 $fieldspec/;
  72         214  
7              
8 72     72   507 use strict;
  72         177  
  72         1445  
9 72     72   374 use warnings;
  72         153  
  72         1980  
10              
11 72     72   376 use vars qw /$VERSION/;
  72         196  
  72         7268  
12             $VERSION = '2017060201';
13              
14              
15             my $scheme = 'prospero';
16             my $uri = "(?k:(?k:$scheme)://(?k:$host)(?::(?k:$port))?" .
17             "/(?k:$ppath)(?k:$fieldspec*))";
18              
19             register_uri $scheme => $uri;
20              
21             pattern name => [qw (URI prospero)],
22             create => $uri,
23             ;
24              
25             1;
26              
27             __END__