From 7ec0d814900335dfe1eb155bca170732876ed9ae Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 22 Oct 2014 16:03:55 -0400
Subject: will only ever need to save a single move

---
 lib/Bot/Zulip/Chess.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'lib/Bot/Zulip/Chess.pm')

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 {
-- 
cgit v1.2.3-54-g00ecf