sub foo {
  my ($self, $params) = __params({
    -a => '...',
  }, \@_);
  ...
  if ($params->{a}) {