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__ |