File Coverage

blib/lib/Regexp/Common/URI/file.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::file;
2              
3 72     72   502 use Regexp::Common qw /pattern clean no_defaults/;
  72         161  
  72         483  
4 72     72   469 use Regexp::Common::URI qw /register_uri/;
  72         155  
  72         3463  
5 72     72   26420 use Regexp::Common::URI::RFC1738 qw /$host $fpath/;
  72         229  
  72         9234  
6              
7 72     72   671 use strict;
  72         176  
  72         1411  
8 72     72   446 use warnings;
  72         158  
  72         1962  
9              
10 72     72   412 use vars qw /$VERSION/;
  72         157  
  72         7035  
11             $VERSION = '2017060201';
12              
13              
14             my $scheme = 'file';
15             my $uri = "(?k:(?k:$scheme)://(?k:(?k:(?:$host|localhost)?)" .
16             "(?k:/(?k:$fpath))))";
17              
18             register_uri $scheme => $uri;
19              
20             pattern name => [qw (URI file)],
21             create => $uri,
22             ;
23              
24             1;
25              
26             __END__