sub new {
  my ($class) = @_;
  $class = ref($class) || $class;
  return bless {}, $class;
}

##</code><code>##

sub new
{
    my $class = shift;
    bless {}, $class;
}