sub new {
  my $pkg = shift;
  my $self; { my %hash; $self = bless(\%hash, $pkg); }

##</code><code>##

sub new {
  my $pkg = shift;
  my $self = bless {}, $pkg;