diff options
Diffstat (limited to 'lib/Net')
-rw-r--r-- | lib/Net/HTTP/Spore.pm | 2 | ||||
-rw-r--r-- | lib/Net/HTTP/Spore/Meta/Method/Spore.pm | 2 | ||||
-rw-r--r-- | lib/Net/HTTP/Spore/Request.pm | 10 |
3 files changed, 7 insertions, 7 deletions
diff --git a/lib/Net/HTTP/Spore.pm b/lib/Net/HTTP/Spore.pm index 03606a0..f26f3ff 100644 --- a/lib/Net/HTTP/Spore.pm +++ b/lib/Net/HTTP/Spore.pm @@ -12,7 +12,7 @@ use Scalar::Util; use Net::HTTP::Spore::Core; -our $VERSION = 0.01; +our $VERSION = 0.03; # XXX should we let the possibility to override this super class, or add # another superclasses? diff --git a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm index b61e2de..f820d88 100644 --- a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm +++ b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm @@ -54,7 +54,7 @@ sub add_spore_method { my $code = delete $options{code}; -# $meta->_trace_msg( '-> attach ' +# $meta->_trace_msg( '-> attach ' # . $name . ' (' # . $options{method} . ' => ' # . $options{path} 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 ); |