use NEXT;
use URI;
+my $uri_proto=URI->new();
__PACKAGE__->mk_accessors('env');
=head1 NAME
$c->response->header( Status => $c->response->status );
- print $c->response->headers->as_string("\015\012") if *STDOUT->opened();
- print "\015\012" if *STDOUT->opened();
+ print $c->response->headers->as_string("\015\012");
+ print "\015\012";
}
=head2 $self->prepare_connection($c)
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);