line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Regexp::Common::URI::wais; |
2
|
|
|
|
|
|
|
|
3
|
72
|
|
|
72
|
|
237
|
use Regexp::Common qw /pattern clean no_defaults/; |
|
72
|
|
|
|
|
193
|
|
|
72
|
|
|
|
|
322
|
|
4
|
72
|
|
|
72
|
|
264
|
use Regexp::Common::URI qw /register_uri/; |
|
72
|
|
|
|
|
83
|
|
|
72
|
|
|
|
|
2638
|
|
5
|
72
|
|
|
|
|
6080
|
use Regexp::Common::URI::RFC1738 qw /$host $port |
6
|
72
|
|
|
72
|
|
244
|
$search $database $wtype $wpath/; |
|
72
|
|
|
|
|
77
|
|
7
|
|
|
|
|
|
|
|
8
|
72
|
|
|
72
|
|
312
|
use strict; |
|
72
|
|
|
|
|
74
|
|
|
72
|
|
|
|
|
1234
|
|
9
|
72
|
|
|
72
|
|
212
|
use warnings; |
|
72
|
|
|
|
|
172
|
|
|
72
|
|
|
|
|
1629
|
|
10
|
|
|
|
|
|
|
|
11
|
72
|
|
|
72
|
|
213
|
use vars qw /$VERSION/; |
|
72
|
|
|
|
|
74
|
|
|
72
|
|
|
|
|
6831
|
|
12
|
|
|
|
|
|
|
$VERSION = '2017040401'; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
my $scheme = 'wais'; |
16
|
|
|
|
|
|
|
my $uri = "(?k:(?k:$scheme)://(?k:$host)(?::(?k:$port))?/(?k:(?k:$database)" |
17
|
|
|
|
|
|
|
. "(?k:[?](?k:$search)|/(?k:$wtype)/(?k:$wpath))?))"; |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
register_uri $scheme => $uri; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
pattern name => [qw (URI WAIS)], |
22
|
|
|
|
|
|
|
create => $uri, |
23
|
|
|
|
|
|
|
; |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
1; |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
__END__ |