sub foo {
    my ($self, %args) = @_;
    $self->bar(
      answer => 42,
      %args,
    );

##</code><code>##

  sub new {
    my ($class, %args) = @_;
    return bless {
      loglevel => 0,
      die_randomly => 0,
      %args,
    }, $class;
  }