use NEXT;
use URI;
+my $uri_proto=URI->new();
__PACKAGE__->mk_accessors('env');
=head1 NAME
my $path = $base_path . ( $ENV{PATH_INFO} || '' );
$path =~ s{^/+}{};
- my $uri = URI->new;
+ my $uri = $uri_proto->clone;
$uri->scheme($scheme);
$uri->host($host);
$uri->port($port);