diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-10-22 16:21:32 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-10-22 16:21:32 -0400 |
commit | 64369c50ffc24382c971fc731fe829ed71f74a51 (patch) | |
tree | c13f2c5d4f8d331631271497202f3b912cf1d9ef | |
parent | 8da4eea93356673ee9a50165a03211bcb25f6ed8 (diff) | |
download | Bot-Zulip-Chess-64369c50ffc24382c971fc731fe829ed71f74a51.tar.gz Bot-Zulip-Chess-64369c50ffc24382c971fc731fe829ed71f74a51.zip |
more debugging
-rw-r--r-- | lib/Bot/Zulip/Chess.pm | 3 |
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; |