From 0435ad10d57629088963e1a548c9770f645d86bb Mon Sep 17 00:00:00 2001
From: Alex Karle <alex@karle.co>
Date: Sat, 28 Mar 2020 15:25:00 -0400
Subject: [PATCH] Dealer: Broadcast readable human names for players

As opposed to the unique object identifier.
---
 lib/Euchre/Dealer.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/Euchre/Dealer.pm b/lib/Euchre/Dealer.pm
index e1a3a2b..866b799 100644
--- a/lib/Euchre/Dealer.pm
+++ b/lib/Euchre/Dealer.pm
@@ -147,7 +147,13 @@ sub broadcast_gamestate {
     # Get all players in the game
     my @all_ws = map { $PLAYERS{$_}->{ws} } @{$game->{players}};
 
-    my $json = encode_json({ msg_type => 'game_state', game => $game });
+    my @names = map { $PLAYERS{$_}->{name} } @{$game->{players}};
+    my $msg = {
+        %$game,
+        players => \@names,
+    };
+
+    my $json = encode_json({ msg_type => 'game_state', game => $msg });
     for my $ws (@all_ws) {
         $ws->send({ json => $json});
     }
--
libgit2 1.1.1