📄 scheme.al
字号:
# NOTE: Derived from ./blib/lib/URI/URL.pm. Changes made here will be lost.package URI::URL;sub scheme { my $self = shift; my $old = $self->{'scheme'}; if (@_) { my $new_scheme = shift; if (defined($new_scheme) && length($new_scheme)) { # reparse URL with new scheme my $str = $self->as_string; $str =~ s/^[\w+\-.]+://; my $newself = new URI::URL "$new_scheme:$str"; %$self = %$newself; bless $self, ref($newself); } else { $self->{'scheme'} = undef; } } $old;}1;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -