summaryrefslogtreecommitdiffstats
path: root/lib/Bot/Zulip/Chess.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Bot/Zulip/Chess.pm')
-rw-r--r--lib/Bot/Zulip/Chess.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Bot/Zulip/Chess.pm b/lib/Bot/Zulip/Chess.pm
index 5501a45..1c9ddc9 100644
--- a/lib/Bot/Zulip/Chess.pm
+++ b/lib/Bot/Zulip/Chess.pm
@@ -83,9 +83,12 @@ has _chessboard => (
my $record = $self->_record_file;
if (-e $record) {
try {
+ warn "Loading a previous game...";
chomp(my @lines = $record->slurp);
$self->white_player(shift @lines);
$self->black_player(shift @lines);
+ warn "Between " . $self->white_player
+ . " and " . $self->black_player;
for my $turn (@lines) {
my ($white, $black) = split ' ', $turn;
$board->go_move($white) if $white;