summary refs log tree commit diff
path: root/lib/Net
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net')
-rw-r--r--lib/Net/HTTP/Spore.pm2
-rw-r--r--lib/Net/HTTP/Spore/Meta/Method/Spore.pm2
-rw-r--r--lib/Net/HTTP/Spore/Request.pm10
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
     );