CheckJira: Implement the skip-logs directive

Issue: #58

Author: gnustavo

lib/Git/Hooks/CheckJira.pm

@@ -9,7 +9,7 @@ use Log::Any '$log';
 use Git::Hooks;
 use Git::Repository::Log;
 use Path::Tiny;
-use List::MoreUtils qw/last_index uniq/;
+use List::MoreUtils qw/any last_index uniq/;
 
 my $PKG = __PACKAGE__;
 my $CFG = __PACKAGE__ =~ s/.*::/githooks./r;
@@ -32,6 +32,8 @@ sub _setup_config {
     $default->{require}    //= ['true'];
     $default->{unresolved} //= ['true'];
 
+    push $default->{'skip-logs'}->@*, qr/^(?:Merge|Reapply|Revert) /;
+
     return;
 }
 
@@ -124,6 +126,14 @@ sub _jql_query {
     return $cache->{jql}{$jql};
 }
 
+sub _skip_logs {
+    my ($git, $commit) = @_;
+
+    state $regexes = [map {qr/$_/} $git->get_config($CFG => 'skip-logs')];
+    my $message = $commit->message;
+    return any {$message =~ $_} @$regexes;
+}
+
 sub _disconnect_jira {
     my ($git) = @_;
     delete $git->cache($PKG)->{jira};
@@ -378,6 +388,8 @@ sub check_commit_msg {
 
     if ($commit->parent() > 1 && $git->get_config_boolean($CFG => 'skip-merges')) {
         return 1;
+    } elsif (_skip_logs($git, $commit)) {
+        return 1;
     } else {
         return _check_jira_keys($git, $commit, $ref, uniq(grok_msg_jiras($git, $commit->message)));
     }
@@ -952,6 +964,15 @@ In this case, the visibility isn't restricted at all.
 
 =back
 
+=head2 skip-logs REGEXP
+
+Use this multi-valued directive to make CheckJira don't check
+commits which log messages match any of the REGEXes specified with it.
+
+By default, CheckJira already skips commits with messages matching the REGEXP
+C<qr/^(?:Merge|Reapply|Revert) />, which most probably were created by git-merge
+and git-revert commands.
+
 =head2 skip-merges BOOL
 
 By default, all commits are checked. You can exempt merge commits from being