sub cards {
  my $self = shift;
  if (@_) { $self->{cards} = shift }
  return $self->{cards};
}