X7ROOT File Manager
Current Path:
/usr/share/perl5/URI
usr
/
share
/
perl5
/
URI
/
📁
..
📄
Escape.pm
(6.49 KB)
📄
Heuristic.pm
(6.41 KB)
📄
IRI.pm
(769 B)
📄
QueryParam.pm
(4.47 KB)
📄
Split.pm
(2.3 KB)
📄
URL.pm
(5.4 KB)
📄
WithBase.pm
(3.74 KB)
📄
_foreign.pm
(75 B)
📄
_generic.pm
(5.63 KB)
📄
_idna.pm
(1.99 KB)
📄
_ldap.pm
(3.17 KB)
📄
_login.pm
(222 B)
📄
_punycode.pm
(4.52 KB)
📄
_query.pm
(2.39 KB)
📄
_segment.pm
(377 B)
📄
_server.pm
(3.62 KB)
📄
_userpass.pm
(977 B)
📄
data.pm
(3.28 KB)
📁
file
📄
file.pm
(9.58 KB)
📄
ftp.pm
(1.03 KB)
📄
gopher.pm
(2.34 KB)
📄
http.pm
(405 B)
📄
https.pm
(107 B)
📄
ldap.pm
(2.9 KB)
📄
ldapi.pm
(460 B)
📄
ldaps.pm
(107 B)
📄
mailto.pm
(1.24 KB)
📄
mms.pm
(89 B)
📄
news.pm
(1.39 KB)
📄
nntp.pm
(91 B)
📄
pop.pm
(1.15 KB)
📄
rlogin.pm
(96 B)
📄
rsync.pm
(197 B)
📄
rtsp.pm
(89 B)
📄
rtspu.pm
(90 B)
📄
sip.pm
(1.72 KB)
📄
sips.pm
(105 B)
📄
snews.pm
(136 B)
📄
ssh.pm
(140 B)
📄
telnet.pm
(95 B)
📄
tn3270.pm
(95 B)
📁
urn
📄
urn.pm
(1.91 KB)
Editing: IRI.pm
package URI::IRI; # Experimental use strict; use URI (); use overload '""' => sub { shift->as_string }; sub new { my($class, $uri, $scheme) = @_; utf8::upgrade($uri); return bless { uri => URI->new($uri, $scheme), }, $class; } sub clone { my $self = shift; return bless { uri => $self->{uri}->clone, }, ref($self); } sub as_string { my $self = shift; return $self->{uri}->as_iri; } sub AUTOLOAD { use vars qw($AUTOLOAD); my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2); # We create the function here so that it will not need to be # autoloaded the next time. no strict 'refs'; *$method = sub { shift->{uri}->$method(@_) }; goto &$method; } sub DESTROY {} # avoid AUTOLOADing it 1;
Upload File
Create Folder