sub new {
      my $pkg = shift;
      my $self = { a => $default_for_a, @_ };
      bless $self, $pkg;
  }

##</code><code>##

  my $foo = new Foo(a => 47);