|
Server : LiteSpeed System : Linux server104.web-hosting.com 4.18.0-513.24.1.lve.1.el8.x86_64 #1 SMP Thu May 9 15:10:09 UTC 2024 x86_64 User : saleoqej ( 6848) PHP Version : 8.0.30 Disable Function : NONE Directory : /usr/share/perl5/URI/ |
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 = '1.73';
$VERSION = eval $VERSION;
sub new
{
my $class = shift;
my @segment = split(';', shift, -1);
$segment[0] = uri_unescape($segment[0]);
bless \@segment, $class;
}
1;