Make script logic testable by moving to main package

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 2 insertions, 5 deletions

diff --git a/script/perlpkg.pl b/script/perlpkg.pl
index 03bdb92..195adc9 100755
--- a/script/perlpkg.pl
+++ b/script/perlpkg.pl
@@ -51,11 +51,8 @@ Log::Any::Adapter->set('Log4perl');
 my $app = App::ArchLinux::PackagerTools->new();
 
 use Data::Dumper;
-my $dists = $app->get_distributions_in_repo();
-my $dist_names = [map {$_->{dist_name}} $dists->@*];
-my $updateable = $app->get_updateable_packages($dist_names);
-my $pkgs = $app->add_maintainers($updateable);
-my $filtered_pkgs = $app->filter_by_maintainer($pkgs);
+
+my $filtered_pkgs = $app->get_filtered_updateable_packages();
 
 print Dumper($filtered_pkgs);