From 34508527cab3b61fca58aa9e3643a6c1da41c736 Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Wed, 14 Feb 2018 07:03:34 +0100
Subject: SBO::App: separate out new constructor

---
 SBO-Lib/lib/SBO/App.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 SBO-Lib/lib/SBO/App.pm

(limited to 'SBO-Lib/lib/SBO/App.pm')

diff --git a/SBO-Lib/lib/SBO/App.pm b/SBO-Lib/lib/SBO/App.pm
new file mode 100755
index 0000000..7033d93
--- /dev/null
+++ b/SBO-Lib/lib/SBO/App.pm
@@ -0,0 +1,24 @@
+package SBO::App::Remove;
+
+# vim: ts=2:et
+#
+# authors: Luke Williams <xocel@iquidus.org>
+#          Jacob Pipkin <j@dawnrazor.net>
+#          Andreas Guldstrand <andreas.guldstrand@gmail.com>
+# license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>
+
+use 5.16.0;
+use strict;
+use warnings FATAL => 'all';
+use File::Basename;
+
+sub new {
+  my $class = shift;
+
+  my $self = _parse_opts(@_);
+  $self->{fname} = basename( (caller(0))[1] );
+
+  return bless $self, $class;
+}
+
+1;
-- 
cgit v1.2.3