SM0 She11
Path:
/
/
usr
/
share
/
perl5
/
URI
Full Path (server): /usr/share/perl5/URI
Create Fil3
Upl04d Fil3
📄 Escape.pm
[E]
[D]
[R]
📄 Heuristic.pm
[E]
[D]
[R]
📄 IRI.pm
[E]
[D]
[R]
📄 QueryParam.pm
[E]
[D]
[R]
📄 Split.pm
[E]
[D]
[R]
📄 URL.pm
[E]
[D]
[R]
📄 WithBase.pm
[E]
[D]
[R]
📄 _foreign.pm
[E]
[D]
[R]
📄 _generic.pm
[E]
[D]
[R]
📄 _idna.pm
[E]
[D]
[R]
📄 _ldap.pm
[E]
[D]
[R]
📄 _login.pm
[E]
[D]
[R]
📄 _punycode.pm
[E]
[D]
[R]
📄 _query.pm
[E]
[D]
[R]
📄 _segment.pm
[E]
[D]
[R]
📄 _server.pm
[E]
[D]
[R]
📄 _userpass.pm
[E]
[D]
[R]
📄 data.pm
[E]
[D]
[R]
📁 file
Open
[D]
[R]
📄 file.pm
[E]
[D]
[R]
📄 ftp.pm
[E]
[D]
[R]
📄 gopher.pm
[E]
[D]
[R]
📄 http.pm
[E]
[D]
[R]
📄 https.pm
[E]
[D]
[R]
📄 ldap.pm
[E]
[D]
[R]
📄 ldapi.pm
[E]
[D]
[R]
📄 ldaps.pm
[E]
[D]
[R]
📄 mailto.pm
[E]
[D]
[R]
📄 mms.pm
[E]
[D]
[R]
📄 news.pm
[E]
[D]
[R]
📄 nntp.pm
[E]
[D]
[R]
📄 pop.pm
[E]
[D]
[R]
📄 rlogin.pm
[E]
[D]
[R]
📄 rsync.pm
[E]
[D]
[R]
📄 rtsp.pm
[E]
[D]
[R]
📄 rtspu.pm
[E]
[D]
[R]
📄 sip.pm
[E]
[D]
[R]
📄 sips.pm
[E]
[D]
[R]
📄 snews.pm
[E]
[D]
[R]
📄 ssh.pm
[E]
[D]
[R]
📄 telnet.pm
[E]
[D]
[R]
📄 tn3270.pm
[E]
[D]
[R]
📁 urn
Open
[D]
[R]
📄 urn.pm
[E]
[D]
[R]
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;
Save