sub new {
  my $class = shift;
  my %self = @_;
  bless \%self, $class;
}

##</code><code>##

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