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 | |
parent | remove two middleware (diff) | |
download | net-http-spore-4b3a0aef6dca4cbc92cf20d7c3d6da46f1e6a8f2.tar.gz |
prepare to release 0.03
-rw-r--r-- | Changes | 8 | ||||
-rw-r--r-- | dist.ini | 2 | ||||
-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 |
5 files changed, 13 insertions, 11 deletions
diff --git a/Changes b/Changes index 58c08be..3a80027 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,7 @@ -0.03 - +0.03 Mon 22 Nov 2010 03:01:35 PM CET + - add form-data and headers + - add tests + - don't depends on Net::HTTP::API anymore - remove 'path_info' method from N::H::S::Request object - remove 'query_string' method from N::H::S::Request object @@ -10,4 +12,4 @@ - updated couchdb.json spec for our tests 0.01 Tue 14 Sep 2010 03:18:22 PM CEST - - initial release \ No newline at end of file + - initial release diff --git a/dist.ini b/dist.ini index 6c7ea91..716699b 100644 --- a/dist.ini +++ b/dist.ini @@ -3,7 +3,7 @@ author = franck cuny <franck@lumberjaph.net> license = Perl_5 copyright_holder = linkfluence copyright_year = 2010 -version = 0.02 +version = 0.03 [@Filter] bundle = @Basic 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 ); |