line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Regexp::Common::URI::pop; |
2
|
|
|
|
|
|
|
|
3
|
72
|
|
|
72
|
|
471
|
use Regexp::Common qw /pattern clean no_defaults/; |
|
72
|
|
|
|
|
162
|
|
|
72
|
|
|
|
|
420
|
|
4
|
72
|
|
|
72
|
|
440
|
use Regexp::Common::URI qw /register_uri/; |
|
72
|
|
|
|
|
177
|
|
|
72
|
|
|
|
|
3013
|
|
5
|
72
|
|
|
72
|
|
443
|
use Regexp::Common::URI::RFC1738 qw /$host $port/; |
|
72
|
|
|
|
|
217
|
|
|
72
|
|
|
|
|
6102
|
|
6
|
72
|
|
|
72
|
|
24592
|
use Regexp::Common::URI::RFC2384 qw /$enc_user $enc_auth_type/; |
|
72
|
|
|
|
|
204
|
|
|
72
|
|
|
|
|
7395
|
|
7
|
|
|
|
|
|
|
|
8
|
72
|
|
|
72
|
|
459
|
use strict; |
|
72
|
|
|
|
|
160
|
|
|
72
|
|
|
|
|
1293
|
|
9
|
72
|
|
|
72
|
|
348
|
use warnings; |
|
72
|
|
|
|
|
511
|
|
|
72
|
|
|
|
|
1762
|
|
10
|
|
|
|
|
|
|
|
11
|
72
|
|
|
72
|
|
400
|
use vars qw /$VERSION/; |
|
72
|
|
|
|
|
160
|
|
|
72
|
|
|
|
|
7284
|
|
12
|
|
|
|
|
|
|
$VERSION = '2017060201'; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
my $scheme = "pop"; |
16
|
|
|
|
|
|
|
my $uri = "(?k:(?k:$scheme)://(?:(?k:$enc_user)" . |
17
|
|
|
|
|
|
|
"(?:;AUTH=(?k:[*]|$enc_auth_type))?\@)?" . |
18
|
|
|
|
|
|
|
"(?k:$host)(?::(?k:$port))?)"; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
register_uri $scheme => $uri; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
pattern name => [qw (URI POP)], |
23
|
|
|
|
|
|
|
create => $uri, |
24
|
|
|
|
|
|
|
; |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
__END__ |