Support ignore regexes for checking a distribution

docknot dist now supports a distribution/ignore metadata setting,
which contains a list of regular expressions of files to ignore when
checking a distribution tarball for completeness.

1 files changed, 9 insertions, 2 deletions

diff --git a/lib/App/DocKnot/Dist.pm b/lib/App/DocKnot/Dist.pm
index 6447065..85d81d0 100644
--- a/lib/App/DocKnot/Dist.pm
+++ b/lib/App/DocKnot/Dist.pm
@@ -100,13 +100,20 @@ sub _expected_dist_files {
     my ($self, $path) = @_;
     my @files;
 
+    # Supplemental ignore rules from the package configuration.
+    my @ignore;
+    if ($self->{config}{distribution}{ignore}) {
+        @ignore = map { qr{$_}xms } $self->{config}{distribution}{ignore}->@*;
+    }
+
     # Find all files in the source directory, stripping its path from the file
-    # name and excluding (and pruning) anything matching @DIST_IGNORE.
+    # name and excluding (and pruning) anything matching @DIST_IGNORE or in
+    # the distribution/ignore key of the package configuration.
     my $wanted = sub {
         my $name = $File::Find::name;
         $name =~ s{ \A \Q$path\E / }{}xms;
         return if !$name;
-        if (any { $name =~ $_ } @DIST_IGNORE) {
+        if (any { $name =~ $_ } @DIST_IGNORE, @ignore) {
             $File::Find::prune = 1;
             return;
         }