diff options
| author | Jesse Luehrs <doy@tozt.net> | 2014-10-22 16:03:55 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2014-10-22 16:03:55 -0400 |
| commit | 7ec0d814900335dfe1eb155bca170732876ed9ae (patch) | |
| tree | 02b3983217a03533cde5a8dcd220e01e9f57ad0e | |
| parent | e1f6df03425a45c2266419b0a8e85c4027f32b0a (diff) | |
| download | Bot-Zulip-Chess-7ec0d814900335dfe1eb155bca170732876ed9ae.tar.gz Bot-Zulip-Chess-7ec0d814900335dfe1eb155bca170732876ed9ae.zip | |
will only ever need to save a single move
| -rw-r--r-- | lib/Bot/Zulip/Chess.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/Bot/Zulip/Chess.pm b/lib/Bot/Zulip/Chess.pm index 103ff47..f75eae6 100644 --- a/lib/Bot/Zulip/Chess.pm +++ b/lib/Bot/Zulip/Chess.pm @@ -103,10 +103,9 @@ has _record_file => ( default => sub { file('current.game') }, ); -has _temp_moves => ( - is => 'ro', - isa => 'ArrayRef[Str]', - default => sub { [] }, +has _temp_move => ( + is => 'rw', + isa => 'Str', ); sub run ($self) { @@ -156,7 +155,7 @@ sub handle_move ($self, $player, $move) { my $res = $self->_chessboard->go_move($move); my $parsed_move = $res->{san}; if ($self->needs_new_player) { - push $self->_temp_moves->@*, $parsed_move; + $self->_temp_move($parsed_move); } else { $self->_record_file->spew( @@ -187,7 +186,7 @@ sub set_new_player ($self, $player) { $self->_record_file->spew( $self->white_player . "\n" . $self->black_player . "\n" - . $self->_temp_moves->[0] . " " . $self->_temp_moves->[1] . "\n" + . $self->_temp_move . " " ); } else { |