1package URI::_segment;
2
3# Represents a generic path_segment so that it can be treated as
4# a string too.
5
6use strict;
7use URI::Escape qw(uri_unescape);
8
9use overload '""' => sub { $_[0]->[0] },
10             fallback => 1;
11
12sub new
13{
14    my $class = shift;
15    my @segment = split(';', shift, -1);
16    $segment[0] = uri_unescape($segment[0]);
17    bless \@segment, $class;
18}
19
201;
21