summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2018-12-18 00:48:32 +0100
committerFlorian Pritz <bluewind@xinu.at>2018-12-18 00:48:32 +0100
commit58860d34d6d90e4baafde5253b5c8696024b3da4 (patch)
tree332731ddc444c99a3b8746a1fc6fb270b454107f /lib
parentb238f10d9441afe1565cf698c54b69a58bbc4a45 (diff)
downloadApp-ArchLinux-PackagerTools-58860d34d6d90e4baafde5253b5c8696024b3da4.tar.gz
App-ArchLinux-PackagerTools-58860d34d6d90e4baafde5253b5c8696024b3da4.tar.xz
WIP Add maintainer filtering
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'lib')
-rw-r--r--lib/App/ArchLinux/PackagerTools.pm14
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/App/ArchLinux/PackagerTools.pm b/lib/App/ArchLinux/PackagerTools.pm
index 720f056..fa246e6 100644
--- a/lib/App/ArchLinux/PackagerTools.pm
+++ b/lib/App/ArchLinux/PackagerTools.pm
@@ -7,6 +7,7 @@ our $VERSION = "0.01";
use autodie;
use Function::Parameters;
use Log::Any qw($log);
+use List::Util 1.33 qw(any);
use App::ArchLinux::PackagerTools::Pacman;
use App::ArchLinux::PackagerTools::CPAN;
@@ -144,6 +145,19 @@ method add_maintainers($packages) {
return \@packages_with_maintainer;
}
+=head3 filter_by_maintainer
+
+ my $filtered_packages = $app->filter_by_maintainer($packages);
+
+Filter a list of packages to the maintainers whitelisted in the config file.
+
+=cut
+
+method filter_by_maintainer($packages) {
+ # TODO make configurable
+ return [grep { any {$_->{name} eq 'bluewind'} $_->{maintainers}->@*} $packages->@*];
+}
+
=head1 LICENSE
Copyright (C) 2018 Florian Pritz E<lt>bluewind@xinu.atE<gt>