✏️ 编辑：IRI.pm
路径：
/usr/local/share/perl5/5.32/URI/IRI.pm
大小：786 B · 修改：2026-09-03 22:49:40 · 权限：0444 · 只读（保存会失败）
← 返回目录
👁 查看
⬇ 下载
package URI::IRI; # Experimental use strict; use warnings; use URI (); use overload '""' => sub { shift->as_string }; our $VERSION = '5.37'; 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;
💾 保存
取消
保存为 UTF-8，换行统一为 LF