cwd is no longer in @INC in new perl versions

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;
 

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 = (