✏️ 编辑:_segment.pm
路径:
/usr/local/share/perl5/5.32/URI/_segment.pm
大小:417 B · 修改:2026-09-03 22:49:40 · 权限:0444 · 只读(保存会失败)
← 返回目录
👁 查看
⬇ 下载
package URI::_segment; # Represents a generic path_segment so that it can be treated as # a string too. use strict; use warnings; use URI::Escape qw(uri_unescape); use overload '""' => sub { $_[0]->[0] }, fallback => 1; our $VERSION = '5.37'; sub new { my $class = shift; my @segment = split(';', shift, -1); $segment[0] = uri_unescape($segment[0]); bless \@segment, $class; } 1;
💾 保存
取消
保存为 UTF-8,换行统一为 LF