uawdijnntqw1x1x1
IP : 216.73.216.37
Hostname : server86.web-hosting.com
Kernel : Linux server86.web-hosting.com 4.18.0-513.18.1.lve.el8.x86_64 #1 SMP Thu Feb 22 12:55:50 UTC 2024 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
servlmvm
/
..
/
..
/
home
/
..
/
usr
/
share
/
perl5
/
Module
/
..
/
URI
/
IRI.pm
/
/
package URI::IRI; # Experimental use strict; use warnings; use URI (); use overload '""' => sub { shift->as_string }; our $VERSION = '1.73'; $VERSION = eval $VERSION; 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; } our $AUTOLOAD; sub 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;
/home/servlmvm/../../home/../usr/share/perl5/Module/../URI/IRI.pm