3 - Deal a hand for study or discussion
5 - (c) 2013 Mark Wooding
11 <& .hand, seat => "N", hand => $deal->{N} &>\
15 <& .hand, seat => "W", hand => $deal->{W} &>\
17 <& .hand, seat => "E", hand => $deal->{E} &>\
20 <& .hand, seat => "S", hand => $deal->{S} &>\
23 <td class=info colspan=3>
24 <% $Deal::SEAT[$deal->{dealer}] %> dealer <br>
25 <% $Deal::VULN[$deal->{vuln}] %> vulnerable <br>
26 Hand <a href="<% $ENV{SCRIPT_NAME} %>/hand?\
27 seed=<% $deal->{seed} |u %>;\
28 dealer=<% $deal->{dealer} |u %>;\
29 vuln=<% $deal->{vuln} |u %>">\
30 <% $deal->{seed} |h %></a>
39 <%method title>Full deal</%method>
42 <table class=hand title="HCP = <% $hand{hcp} %>; LTC = <% $hand{ltc} %>">
43 <& .suit, suit => "S", cards => $hand{S} &>\
44 <& .suit, suit => "H", cards => $hand{H} &>\
45 <& .suit, suit => "D", cards => $hand{D} &>\
46 <& .suit, suit => "C", cards => $hand{C} &>\
55 <tr><th><% $SUIT{$suit} %><td><% @cards ? join " ", @cards : "—" %>
66 C => "<span class=club-suit>♣</span>",
67 D => "<span class=diamond-suit>♦</span>",
68 H => "<span class=heart-suit>♥</span>",
69 S => "<span class=spade-suit>♠</span>");
73 my $deal = Deal::deal(%ARGS);