Added moveCard function internals
This commit is contained in:
parent
1181c3a2e8
commit
e003d06b23
@ -132,7 +132,8 @@ sub getHands {
|
||||
|
||||
sub moveCard {
|
||||
my ($originStackRef, $originIndex, $destStackRef, $destIndex) = @_;
|
||||
# splice card out of one deck, and into the other.
|
||||
my $card = splice(@$originStackRef,$originIndex,1);
|
||||
splice(@$destStackRef,$destIndex,0,$card);
|
||||
}
|
||||
|
||||
sub drawCard {
|
||||
|
Loading…
x
Reference in New Issue
Block a user