use Class::Struct; struct Deck => { deck => '*@', slug => '*@', penetration => '$', # is value between 1->100 number_decks => '$', dealt => '*@', holeCard => '$', running_count => '$', dealCard => '$', enough_cards => '$' }; sub Deck::init { my ($self,%args) = @_; #$self->deck($args{deck} || 0); #$self->slug($args{slug} || 0); $self->penetration($args{penetration} || 0); $self->number_decks($args{number_decks} || 0); #$self->dealt($args{dealt} || 0); $self->holeCard($args{holeCard} || 0); $self->running_count($args{running_count} || 0); $self->dealCard($args{dealCard} || 0); $self->enough_cards($args{enough_cards} || 0); return $self; }