diff options
author | franck cuny <franck@lumberjaph.net> | 2010-11-22 15:01:58 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-11-22 15:08:51 +0100 |
commit | 4b3a0aef6dca4cbc92cf20d7c3d6da46f1e6a8f2 (patch) | |
tree | e11fc3d35b5abf6ac59cdc891fe3d0077403ac20 /lib/Net/HTTP/Spore/Request.pm | |
parent | remove two middleware (diff) | |
download | net-http-spore-4b3a0aef6dca4cbc92cf20d7c3d6da46f1e6a8f2.tar.gz |
prepare to release 0.03
Diffstat (limited to 'lib/Net/HTTP/Spore/Request.pm')
-rw-r--r-- | lib/Net/HTTP/Spore/Request.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Net/HTTP/Spore/Request.pm b/lib/Net/HTTP/Spore/Request.pm index 5b1caa2..f74af11 100644 --- a/lib/Net/HTTP/Spore/Request.pm +++ b/lib/Net/HTTP/Spore/Request.pm @@ -95,7 +95,7 @@ sub request_uri { } else { return $self->get_from_env('REQUEST_URI'); - } + } } sub scheme { @@ -105,7 +105,7 @@ sub scheme { } else { return $self->get_from_env('spore.scheme'); - } + } } sub logger { @@ -220,7 +220,7 @@ sub _form_data { my $form_data; foreach my $k ( keys %$data ) { push @$form_data, - 'Content-Disposition: form-data; name="' + 'Content-Disposition: form-data; name="' . $k . '"'."\r\n\r\n" . $data->{$k}; @@ -263,7 +263,7 @@ sub finalize { if ($path_info && $path_info =~ s/\:$k/$v/) { $modified++; } - + foreach my $f_k (keys %$form_data) { my $f_v = $form_data->{$f_k}; if ($f_v =~ s/^\:$k/$v/) { @@ -301,7 +301,7 @@ sub finalize { $self->env->{QUERY_STRING} = $query_string; my $uri = $self->uri($path_info, $query_string || ''); - + my $request = HTTP::Request->new( $self->method => $uri, $self->headers ); |