Update boilerplate for latest PR

5 files changed, 77 insertions, 0 deletions

diff --git a/Changes b/Changes
index 041976e..dff290d 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for Perl extension GitLab-API-v4.
 
 {{$NEXT}}
 
+ - Add approve_merge_request and unapprove_merge_request
  - Add approve_user and reject_user.
  - Add ban_user and unban_user.
  - Add activate_user and deactivate_user.
diff --git a/META.json b/META.json
index f9d057f..512693e 100644
--- a/META.json
+++ b/META.json
@@ -96,6 +96,7 @@
       "Dmitry Frolov <dmitry.frolov@gmail.com>",
       "Dotan Dimet <dotan@corky.net>",
       "Graham Knop <haarg@haarg.org>",
+      "James Wright <jwright@ecstuning.com>",
       "José Joaquín Atria <jjatria@gmail.com>",
       "Kieren Diment <kieren.diment@staples.com.au>",
       "Luc Didry <luc@didry.org>",
diff --git a/README.md b/README.md
index db584ce..393e454 100644
--- a/README.md
+++ b/README.md
@@ -2358,6 +2358,30 @@ See [https://docs.gitlab.com/ce/api/merge\_requests.html](https://docs.gitlab.co
 
     Sends a `PUT` request to `projects/:project_id/merge_requests/:merge_request_iid/merge` and returns the decoded response content.
 
+- approve\_merge\_request
+
+    ```perl
+    my $merge_request = $api->approve_merge_request(
+        $project_id,
+        $merge_request_iid,
+        \%params,
+    );
+    ```
+
+    Sends a `POST` request to `projects/:project_id/merge_requests/:merge_request_iid/approve` and returns the decoded response content.
+
+- unapprove\_merge\_request
+
+    ```perl
+    my $merge_request = $api->unapprove_merge_request(
+        $project_id,
+        $merge_request_iid,
+        \%params,
+    );
+    ```
+
+    Sends a `POST` request to `projects/:project_id/merge_requests/:merge_request_iid/unapprove` and returns the decoded response content.
+
 - cancel\_merge\_when\_pipeline\_succeeds
 
     ```perl
@@ -5632,6 +5656,7 @@ Thomas Klausner <domm@plix.at>
 Graham Knop <haarg@haarg.org>
 Stig Palmquist <git@stig.io>
 Dan Book <grinnz@grinnz.com>
+James Wright <jwright@ecstuning.com>
 ```
 
 # LICENSE
diff --git a/author/footer.pm b/author/footer.pm
index 8a7f0e4..b4eceb8 100644
--- a/author/footer.pm
+++ b/author/footer.pm
@@ -46,6 +46,7 @@ L<https://github.com/bluefeet/GitLab-API-v4/issues>
     Graham Knop <haarg@haarg.org>
     Stig Palmquist <git@stig.io>
     Dan Book <grinnz@grinnz.com>
+    James Wright <jwright@ecstuning.com>
 
 =head1 LICENSE
 
diff --git a/lib/GitLab/API/v4.pm b/lib/GitLab/API/v4.pm
index 09a8306..fa4bcd5 100644
--- a/lib/GitLab/API/v4.pm
+++ b/lib/GitLab/API/v4.pm
@@ -4624,6 +4624,54 @@ sub accept_merge_request {
     return $self->_call_rest_client( 'PUT', 'projects/:project_id/merge_requests/:merge_request_iid/merge', [@_], $options );
 }
 
+=item approve_merge_request
+
+    my $merge_request = $api->approve_merge_request(
+        $project_id,
+        $merge_request_iid,
+        \%params,
+    );
+
+Sends a C<POST> request to C<projects/:project_id/merge_requests/:merge_request_iid/approve> and returns the decoded response content.
+
+=cut
+
+sub approve_merge_request {
+    my $self = shift;
+    croak 'approve_merge_request must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
+    croak 'The #1 argument ($project_id) to approve_merge_request must be a scalar' if ref($_[0]) or (!defined $_[0]);
+    croak 'The #2 argument ($merge_request_iid) to approve_merge_request must be a scalar' if ref($_[1]) or (!defined $_[1]);
+    croak 'The last argument (\%params) to approve_merge_request must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
+    my $params = (@_ == 3) ? pop() : undef;
+    my $options = {};
+    $options->{content} = $params if defined $params;
+    return $self->_call_rest_client( 'POST', 'projects/:project_id/merge_requests/:merge_request_iid/approve', [@_], $options );
+}
+
+=item unapprove_merge_request
+
+    my $merge_request = $api->unapprove_merge_request(
+        $project_id,
+        $merge_request_iid,
+        \%params,
+    );
+
+Sends a C<POST> request to C<projects/:project_id/merge_requests/:merge_request_iid/unapprove> and returns the decoded response content.
+
+=cut
+
+sub unapprove_merge_request {
+    my $self = shift;
+    croak 'unapprove_merge_request must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
+    croak 'The #1 argument ($project_id) to unapprove_merge_request must be a scalar' if ref($_[0]) or (!defined $_[0]);
+    croak 'The #2 argument ($merge_request_iid) to unapprove_merge_request must be a scalar' if ref($_[1]) or (!defined $_[1]);
+    croak 'The last argument (\%params) to unapprove_merge_request must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
+    my $params = (@_ == 3) ? pop() : undef;
+    my $options = {};
+    $options->{content} = $params if defined $params;
+    return $self->_call_rest_client( 'POST', 'projects/:project_id/merge_requests/:merge_request_iid/unapprove', [@_], $options );
+}
+
 =item cancel_merge_when_pipeline_succeeds
 
     my $merge_request = $api->cancel_merge_when_pipeline_succeeds(
@@ -10986,6 +11034,7 @@ L<https://github.com/bluefeet/GitLab-API-v4/issues>
     Graham Knop <haarg@haarg.org>
     Stig Palmquist <git@stig.io>
     Dan Book <grinnz@grinnz.com>
+    James Wright <jwright@ecstuning.com>
 
 =head1 LICENSE