Help for this page

Select Code to Download

Select or download this

sub remove_card
{
     my ($self) = @_;

     return pop(@{$self->{cards}});   # Returns nth element
}

Select or download this
$self->cards([$self->cards()->[1..$self->num()-1]]);