Added moveCard function internals
This commit is contained in:
parent
1181c3a2e8
commit
e003d06b23
@ -132,7 +132,8 @@ sub getHands {
|
|||||||
|
|
||||||
sub moveCard {
|
sub moveCard {
|
||||||
my ($originStackRef, $originIndex, $destStackRef, $destIndex) = @_;
|
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 {
|
sub drawCard {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user