#!/usr/bin/perl -w

use strict;

package Texas;

sub New {

    my $type = shift;
    my $class = ref($type) || $type;
    my $game = {
                 hands => [],
                 flop  => [],
                 deck  => []
                              };
    bless ($game, $class);
    return $game;
}