| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
## no critic: Modules::ProhibitAutomaticExportation |
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
package URI::Escape::Path; |
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY |
|
6
|
|
|
|
|
|
|
our $DATE = '2020-06-18'; # DATE |
|
7
|
|
|
|
|
|
|
our $DIST = 'URI-Escape-Path'; # DIST |
|
8
|
|
|
|
|
|
|
our $VERSION = '0.001'; # VERSION |
|
9
|
|
|
|
|
|
|
|
|
10
|
1
|
|
|
1
|
|
74585
|
use strict 'subs', 'vars'; |
|
|
1
|
|
|
|
|
11
|
|
|
|
1
|
|
|
|
|
39
|
|
|
11
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
43
|
|
|
12
|
|
|
|
|
|
|
|
|
13
|
1
|
|
|
1
|
|
7
|
use Exporter qw(import); |
|
|
1
|
|
|
|
|
1
|
|
|
|
1
|
|
|
|
|
28
|
|
|
14
|
1
|
|
|
1
|
|
522
|
use URI::Escape::Any (); |
|
|
1
|
|
|
|
|
4207
|
|
|
|
1
|
|
|
|
|
133
|
|
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
our @EXPORT = qw(uri_escape uri_escape_utf8 uri_unescape); |
|
17
|
|
|
|
|
|
|
|
|
18
|
1
|
|
50
|
1
|
1
|
136
|
sub uri_escape { URI::Escape::Any::uri_escape ($_[0], $_[1] || "^A-Za-z0-9\-\._~/") } |
|
19
|
0
|
|
0
|
0
|
1
|
|
sub uri_escape_utf8 { URI::Escape::Any::uri_escape_utf8($_[0], $_[1] || "^A-Za-z0-9\-\._~/") } |
|
20
|
|
|
|
|
|
|
*uri_unescape = \&URI::Escape::Any::uri_unescape; |
|
21
|
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
|
23
|
|
|
|
|
|
|
# ABSTRACT: Like URI::Escape, but does not escape '/' |
|
24
|
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
__END__ |