25 lines
416 B
Perl
25 lines
416 B
Perl
|
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.76';
|
||
|
|
|
||
|
|
sub new
|
||
|
|
{
|
||
|
|
my $class = shift;
|
||
|
|
my @segment = split(';', shift, -1);
|
||
|
|
$segment[0] = uri_unescape($segment[0]);
|
||
|
|
bless \@segment, $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|