From 9f5e49082da0e769114bd4db43056f7fae04aeff Mon Sep 17 00:00:00 2001
From: Matteo Pasotti <matteo.pasotti@gmail.com>
Date: Thu, 16 Jun 2016 21:13:07 +0200
Subject: - no longer extends Module as it's not going to use GUI

---
 lib/ManaTools/Module/PkgDownloader.pm | 24 ++++++++++++++----------
 scripts/urpm-downloader               |  2 +-
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/lib/ManaTools/Module/PkgDownloader.pm b/lib/ManaTools/Module/PkgDownloader.pm
index 43c3d9db..2c1cd8f2 100644
--- a/lib/ManaTools/Module/PkgDownloader.pm
+++ b/lib/ManaTools/Module/PkgDownloader.pm
@@ -26,10 +26,11 @@ use Term::ANSIColor qw(:constants);
 use Moose;
 use Moose::Autobox;
 use ManaTools::Shared::urpmi_backend::DB;
+use ManaTools::Shared qw(trim);
 
 with 'MooseX::Getopt';
 
-extends qw( ManaTools::Module );
+# extends qw( ManaTools::Module );
 
 my $PKG_QUERYMAKER = "urpmq";
 my $QUERY_LISTMEDIA_PARM = "--list-media";
@@ -38,12 +39,6 @@ my $QUERY_LOOKFORSRPM_PARM = "--sourcerpm";
 my $QUERY_PKG_FULL = "-f";
 my $DLDER = "--wget";
 
-has '+name' => (
-   default => 'urpm-downloader',
-   required => 0,
-   init_arg => undef,
-);
-
 has 'use_wget' => (
    is      => 'rw',
    isa     => 'Bool',
@@ -72,6 +67,7 @@ has 'packagelist' => (
    is   => 'rw',
    isa  => 'Str',
    required => 1,
+   default => sub { return ""; },
 );
 
 has 'packages' => (
@@ -82,8 +78,13 @@ has 'packages' => (
 
 sub process_args {
 	my ($self, $pkglist) = @_;
-	for(split(/\s/,$pkglist)){
-		push @{$self->packages()}, $_;
+	return 0 if(ManaTools::Shared::trim($pkglist)=~m/^$/g);
+	my @items = split(/\s/,$pkglist);
+	if(scalar(@items)>0){
+		for(@items){
+			push @{$self->packages()}, $_;
+		}
+		return 1;
 	}
 }
 
@@ -143,7 +144,10 @@ sub start {
 		}
 	} $rpmbackend->get_active_media($urpm,$self->srpm());
 
-	$self->process_args($self->packagelist());
+	if(!$self->process_args($self->packagelist()))
+	{
+		return 4;
+	}
 
 
 	if(scalar(@media_urls) lt 1)
diff --git a/scripts/urpm-downloader b/scripts/urpm-downloader
index 6497554c..a06f4e7a 100755
--- a/scripts/urpm-downloader
+++ b/scripts/urpm-downloader
@@ -21,7 +21,7 @@ use Modern::Perl '2011';
 use autodie;
 use ManaTools::Module::PkgDownloader;
 
-my $pkgdlManager = ManaTools::Module::PkgDownloader->new_with_options();
+my $pkgdlManager = ManaTools::Module::PkgDownloader->new();
 $pkgdlManager->start();
 
 1;
-- 
cgit v1.2.1