Select Code to Download

sub remove_card {
  # usage: $caller->remove_card()
...
    $self->cards( $self->cards()->[1..$self->num()-1] );
  } else { $self->cards([]) }
}

sub cards {
  # usage: $caller->cards([$cards])
...
  }
  return $self->{cards};
}

        $self->cards() returns
$VAR1 = [
...
                 'value' => 1,
                 'suit' => 'h'
               }, 'Card' );