From b0ee7e88bf0aa15d645e4b26b6e1646bdfa4a7ca Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Sat, 18 Feb 2017 22:30:52 +0100
Subject: [PATCH] cwd is no longer in @INC in new perl versions

---
 {RevBank => lib/RevBank}/Cart.pm     | 10 ++++++++++
 {RevBank => lib/RevBank}/Eval.pm     |  0
 {RevBank => lib/RevBank}/Global.pm   |  0
 {RevBank => lib/RevBank}/Messages.pm |  0
 {RevBank => lib/RevBank}/Plugin.pm   |  0
 {RevBank => lib/RevBank}/Plugins.pm  |  0
 {RevBank => lib/RevBank}/Users.pm    |  0
 revbank                              |  5 ++++-
 8 files changed, 14 insertions(+), 1 deletion(-)
 rename {RevBank => lib/RevBank}/Cart.pm (94%)
 rename {RevBank => lib/RevBank}/Eval.pm (100%)
 rename {RevBank => lib/RevBank}/Global.pm (100%)
 rename {RevBank => lib/RevBank}/Messages.pm (100%)
 rename {RevBank => lib/RevBank}/Plugin.pm (100%)
 rename {RevBank => lib/RevBank}/Plugins.pm (100%)
 rename {RevBank => lib/RevBank}/Users.pm (100%)

diff --git a/RevBank/Cart.pm b/lib/RevBank/Cart.pm
similarity index 94%
rename from RevBank/Cart.pm
rename to lib/RevBank/Cart.pm
index d4b1667..79894f6 100644
--- a/RevBank/Cart.pm
+++ b/lib/RevBank/Cart.pm
@@ -26,6 +26,11 @@ sub add {
     push @{ $self->{ $user } }, $item;
 }
 
+sub delete {
+    my ($self, $user, $index) = @_;
+    splice @{ $self->{ $user } }, $index, 1, ();
+}
+
 sub empty {
     my ($self) = @_;
     %$self = ();
@@ -122,5 +127,10 @@ sub select_items {
     return @matches;
 }
 
+sub is_multi_user {
+    my ($self) = @_;
+    return keys(%$self) > 1;
+}
+
 1;
 
diff --git a/RevBank/Eval.pm b/lib/RevBank/Eval.pm
similarity index 100%
rename from RevBank/Eval.pm
rename to lib/RevBank/Eval.pm
diff --git a/RevBank/Global.pm b/lib/RevBank/Global.pm
similarity index 100%
rename from RevBank/Global.pm
rename to lib/RevBank/Global.pm
diff --git a/RevBank/Messages.pm b/lib/RevBank/Messages.pm
similarity index 100%
rename from RevBank/Messages.pm
rename to lib/RevBank/Messages.pm
diff --git a/RevBank/Plugin.pm b/lib/RevBank/Plugin.pm
similarity index 100%
rename from RevBank/Plugin.pm
rename to lib/RevBank/Plugin.pm
diff --git a/RevBank/Plugins.pm b/lib/RevBank/Plugins.pm
similarity index 100%
rename from RevBank/Plugins.pm
rename to lib/RevBank/Plugins.pm
diff --git a/RevBank/Users.pm b/lib/RevBank/Users.pm
similarity index 100%
rename from RevBank/Users.pm
rename to lib/RevBank/Users.pm
diff --git a/revbank b/revbank
index 7c8bf9b..40b43dc 100755
--- a/revbank
+++ b/revbank
@@ -5,11 +5,14 @@ use attributes;
 use IO::Select;
 use List::Util ();
 use Term::ReadLine;
+require Term::ReadLine::Gnu;  # The other one sucks.
+
+use FindBin qw($RealBin);
+use lib "$RealBin/lib";
 use RevBank::Plugins;
 use RevBank::Global;
 use RevBank::Messages;
 use RevBank::Cart;
-require Term::ReadLine::Gnu;  # The other one sucks.
 
 our $VERSION = "2.0";
 our %HELP = (