Add PUT multipart support

To use GitLab's API v4, in order to change a  project's avatar, the request needs to be submitted via PUT  with `Content-Type: multipart/form-data` header.

REF: https://docs.gitlab.com/ee/api/projects.html#upload-a-project-avatar

Author: g0tmi1k

lib/GitLab/API/v4.pm

@@ -7321,6 +7321,7 @@ sub create_project_for_user {
     $api->edit_project(
         $project_id,
         \%params,
+        \%params_multipart,
     );
 
 Sends a C<PUT> request to C<projects/:project_id>.
@@ -7329,14 +7330,21 @@ Sends a C<PUT> request to C<projects/:project_id>.
 
 sub edit_project {
     my $self = shift;
-    croak 'edit_project must be called with 1 to 2 arguments' if @_ < 1 or @_ > 2;
+    croak 'edit_project must be called with 1 to 3 arguments' if @_ < 1 or @_ > 3;
     croak 'The #1 argument ($project_id) to edit_project must be a scalar' if ref($_[0]) or (!defined $_[0]);
-    croak 'The last argument (\%params) to edit_project must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
+    croak 'The #2 argument (\%params) to edit_project must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
+    croak 'The last argument (\%params_multipart) to edit_project must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
+    my $params_multipart = (@_ == 3) ? pop() : undef;
     my $params = (@_ == 2) ? pop() : undef;
     my $options = {};
     $options->{decode} = 0;
     $options->{content} = $params if defined $params;
-    $self->_call_rest_client( 'PUT', 'projects/:project_id', [@_], $options );
+    $self->_call_rest_client( 'PUT', 'projects/:project_id', [$_[0]], $options );
+
+    if (defined $params_multipart) {
+        $options->{content}->{file} = $params_multipart ;
+        $self->_call_rest_client( 'PUT', 'projects/:project_id', [$_[0]], $options );
+    }
     return;
 }
 

lib/GitLab/API/v4/RESTClient.pm

@@ -162,10 +162,18 @@ sub request {
 
     my $req_method = 'request';
     my $req = [ $verb, $url, $options ];
+    my $boundary;
 
-    if ($verb eq 'POST' and ref($content) eq 'HASH' and $content->{file}) {
+    if (($verb eq 'POST' or $verb eq 'PUT' ) and ref($content) eq 'HASH' and $content->{file}) {
         $content = { %$content };
-        my $file = path( delete $content->{file} );
+        my $file = delete $content->{file};
+
+        my $key = (keys %$file)[0]
+            if (ref $file);
+
+        $file = (ref $file)
+            ? path( $file->{$key} )
+            : path( $file );
 
         unless (-f $file and -r $file) {
             local $Carp::Internal{ 'GitLab::API::v4' } = 1;
@@ -183,18 +191,34 @@ sub request {
             },
         };
 
-        $req->[0] = $req->[1]; # Replace method with url.
-        $req->[1] = $data; # Put data where url was.
-        # So, req went from [$verb,$url,$options] to [$url,$data,$options],
-        # per the post_multipart interface.
-
-        $req_method = 'post_multipart';
-        $content = undef if ! %$content;
+        if ($verb eq 'POST') {
+            $req->[0] = $req->[1]; # Replace method with url.
+            $req->[1] = $data; # Put data where url was.
+            # So, req went from [$verb,$url,$options] to [$url,$data,$options],
+            # per the post_multipart interface.
+
+            $req_method = 'post_multipart';
+            $content = undef if ! %$content;
+        } elsif ($verb eq 'PUT') {
+            $boundary .= sprintf("%x", rand 16) for 1..16;
+            $content = <<"EOL";
+--------------------------$boundary
+Content-Disposition: form-data; name="$key"; filename="$data->{file}->{filename}"
+
+$data->{file}->{content}
+--------------------------$boundary--
+EOL
+        }
     }
 
-    if (ref $content) {
-        $content = $self->json->encode( $content );
-        $headers->{'content-type'} = 'application/json';
+    if (defined $boundary or ref $content) {
+        $content = $self->json->encode( $content )
+          if (ref $content);
+
+      $headers->{'content-type'} = (defined $boundary)
+          ? "multipart/form-data; boundary=------------------------$boundary"
+          : 'application/json';
+
         $headers->{'content-length'} = length( $content );
     }