provide an overridable allow_new_player method which determines whether adding players is allowed, and make add_player return whether or not the player was added

1 files changed, 11 insertions, 0 deletions

diff --git a/lib/Bot/Games/Game.pm b/lib/Bot/Games/Game.pm
index bba2b16..39c6462 100644
--- a/lib/Bot/Games/Game.pm
+++ b/lib/Bot/Games/Game.pm
@@ -52,6 +52,17 @@ sub turn {
 }
 after turn => sub { shift->last_turn_time(DateTime->now) };
 
+sub allow_new_player { 1 }
+around add_player => sub {
+    my $orig = shift;
+    my $self = shift;
+    if ($self->allow_new_player) {
+        $self->$orig(@_);
+        return 1;
+    }
+    return;
+};
+
 command cmdlist => sub {
     my $self = shift;
     my @commands;