SBO::App: separate out new constructor

1 files changed, 1 insertions, 9 deletions

diff --git a/SBO-Lib/lib/SBO/App/Remove.pm b/SBO-Lib/lib/SBO/App/Remove.pm
index 5dc575c..a660035 100755
--- a/SBO-Lib/lib/SBO/App/Remove.pm
+++ b/SBO-Lib/lib/SBO/App/Remove.pm
@@ -12,16 +12,8 @@ use strict;
 use warnings FATAL => 'all';
 use SBO::Lib qw/ get_inst_names get_installed_packages get_sbo_location get_build_queue merge_queues get_requires get_readme_contents prompt show_version in /;
 use Getopt::Long qw(GetOptionsFromArray :config bundling);
-use File::Basename;
 
-sub new {
-  my $class = shift;
-
-  my $self = _parse_opts(@_);
-  $self->{fname} = basename( (caller(0))[1] );
-
-  return bless $self, $class;
-}
+use parent 'SBO::App';
 
 sub _parse_opts {
   my @ARGS = @_;