| Server IP : 85.193.89.191 / Your IP : 3.137.219.16 Web Server : Apache System : Linux 956367-cx40159.tmweb.ru 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64 User : bitrix ( 600) PHP Version : 8.1.27 Disable Function : NONE MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/978/cwd/usr/share/perl5/URI/ |
Upload File : |
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;