supernovus / perl6-http-client

Build HTTP Clients easily with Perl 6
18 stars 11 forks source link

does POST rather than PUT #16

Closed robertlemmen closed 7 years ago

robertlemmen commented 7 years ago
diff --git a/lib/HTTP/Client.pm6 b/lib/HTTP/Client.pm6
index 2161fd5..87d7948 100644
--- a/lib/HTTP/Client.pm6
+++ b/lib/HTTP/Client.pm6
@@ -52,10 +52,10 @@ method simple-request ($method, $url?, :%query, :$follow) {
 method data-request 
 ($method, $url?, :%query, :%data, :%files, :$multipart, :$follow) {
   if ($url) {
-    my $req = self.make-request('POST', $url, :%query, :%data, :%files, :$multipart);
+    my $req = self.make-request($method, $url, :%query, :%data, :%files, :$multipart);
     return self.do-request($req, :$follow);
   }
-  self.make-request('POST', :$multipart); ## Only multipart option is used.
+  self.make-request($method, :$multipart); ## Only multipart option is used.
 }

 ## GET request
supernovus commented 7 years ago

I will fix this shortly.