line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Regexp::Common::URI::http; |
2
|
|
|
|
|
|
|
|
3
|
72
|
|
|
72
|
|
456
|
use Regexp::Common qw /pattern clean no_defaults/; |
|
72
|
|
|
|
|
154
|
|
|
72
|
|
|
|
|
423
|
|
4
|
72
|
|
|
72
|
|
443
|
use Regexp::Common::URI qw /register_uri/; |
|
72
|
|
|
|
|
164
|
|
|
72
|
|
|
|
|
3197
|
|
5
|
72
|
|
|
72
|
|
427
|
use Regexp::Common::URI::RFC2396 qw /$host $port $path_segments $query/; |
|
72
|
|
|
|
|
187
|
|
|
72
|
|
|
|
|
6664
|
|
6
|
|
|
|
|
|
|
|
7
|
72
|
|
|
72
|
|
441
|
use strict; |
|
72
|
|
|
|
|
154
|
|
|
72
|
|
|
|
|
1505
|
|
8
|
72
|
|
|
72
|
|
354
|
use warnings; |
|
72
|
|
|
|
|
163
|
|
|
72
|
|
|
|
|
2710
|
|
9
|
|
|
|
|
|
|
|
10
|
72
|
|
|
72
|
|
392
|
use vars qw /$VERSION/; |
|
72
|
|
|
|
|
565
|
|
|
72
|
|
|
|
|
12079
|
|
11
|
|
|
|
|
|
|
$VERSION = '2017060201'; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
my $http_uri = "(?k:(?k:http)://(?k:$host)(?::(?k:$port))?" . |
15
|
|
|
|
|
|
|
"(?k:/(?k:(?k:$path_segments)(?:[?](?k:$query))?))?)"; |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
my $https_uri = $http_uri; $https_uri =~ s/http/https?/; |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
register_uri HTTP => $https_uri; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
pattern name => [qw (URI HTTP), "-scheme=http"], |
22
|
|
|
|
|
|
|
create => sub { |
23
|
|
|
|
|
|
|
my $scheme = $_ [1] -> {-scheme}; |
24
|
|
|
|
|
|
|
my $uri = $http_uri; |
25
|
|
|
|
|
|
|
$uri =~ s/http/$scheme/; |
26
|
|
|
|
|
|
|
$uri; |
27
|
|
|
|
|
|
|
} |
28
|
|
|
|
|
|
|
; |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
1; |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
__END__ |