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