You're not using the two-argument form of bless, so your constructor is not inheritable.

At a minimum, follow this format:

sub new {
  my $class = shift;
  my $self = ...;
  bless $self, $class; # returns $self
}
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.