OO Perl Problems

[Elgon]

Hi Folks,

I'm trying to teach myself the ins and outs of OO Perl and I'm having problems. In reference (excuse the pun) to my Texas Hold'ems thread, I'm trying to write a class which will allow me to reuse some of the code and I'm getting problems.

We have the following code...

#!/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;
}

But when I say...

my $object = New Texas;

...I tend to get an error which says that Texas.pm doesn't return a true value. Please point out where I am going wrong.

For the record, I have tried looking this up in perltoot and similar but to no avail. I am using Perl 5.005_03.

TIA, Elgon

"Rule #17 of Travel: Never try and score dope off Hassidic Jews while under the impression that they are Rastafarians."
       - Pete McCarthy, McCarthy's Bar