Merge pull request #9 from mschilli/master

Both POST() and PUT() take data in the same way

Author: mschilli

lib/HTTP/Request/Common.pm

@@ -19,13 +19,20 @@ my $CRLF = "\015\012";   # "\r\n" is not portable
 
 sub GET  { _simple_req('GET',  @_); }
 sub HEAD { _simple_req('HEAD', @_); }
-sub PUT  { _simple_req('PUT' , @_); }
 sub DELETE { _simple_req('DELETE', @_); }
 
-sub POST
+for my $type (qw(PUT POST)) {
+    no strict 'refs';
+    *{ __PACKAGE__ . "::" . $type } = sub {
+        return request_type_with_data($type, @_);
+    };
+}
+
+sub request_type_with_data
 {
-    my $url = shift;
-    my $req = HTTP::Request->new(POST => $url);
+    my $type = shift;
+    my $url  = shift;
+    my $req = HTTP::Request->new($type => $url);
     my $content;
     $content = shift if @_ and ref $_[0];
     my($k, $v);

t/common-req.t

@@ -1,7 +1,7 @@
 #perl -w
 
 use Test;
-plan tests => 57;
+plan tests => 58;
 
 use HTTP::Request::Common;
 
@@ -35,6 +35,10 @@ ok(${$r->content_ref}, "foo");
 ok($r->content, "foo");
 ok($r->content_length, 3);
 
+$r = PUT "http://www.sn.no",
+     { foo => "bar" };
+ok($r->content, "foo=bar");
+
 #--- Test POST requests ---
 
 $r = POST "http://www.sn.no", [foo => 'bar;baz',
@@ -226,4 +230,4 @@ $r = HTTP::Request::Common::PUT 'http://www.example.com',
     'Content-Type' => 'application/octet-steam',
     'Content' => 'foobarbaz',
     'Content-Length' => 12;   # a slight lie
-ok($r->header('Content-Length'), 12);
+ok($r->header('Content-Length'), 9);

t/headers.t

@@ -3,7 +3,7 @@
 use strict;
 use Test qw(plan ok);
 
-plan tests => 166;
+plan tests => 175;
 
 my($h, $h2);
 sub j { join("|", @_) }