Dpkg::Dist::Files: Add new filter() method

1 files changed, 14 insertions, 0 deletions

diff --git a/scripts/Dpkg/Dist/Files.pm b/scripts/Dpkg/Dist/Files.pm
index eedea4222..719026f31 100644
--- a/scripts/Dpkg/Dist/Files.pm
+++ b/scripts/Dpkg/Dist/Files.pm
@@ -130,6 +130,20 @@ sub del_file {
     delete $self->{files}->{$filename};
 }
 
+sub filter {
+    my ($self, %opts) = @_;
+    my $remove = $opts{remove} // sub { 0 };
+    my $keep = $opts{keep} // sub { 1 };
+
+    foreach my $filename (keys %{$self->{files}}) {
+        my $file = $self->{files}->{$filename};
+
+        if (not &$keep($file) or &$remove($file)) {
+            delete $self->{files}->{$filename};
+        }
+    }
+}
+
 sub output {
     my ($self, $fh) = @_;
     my $str = '';