sub foo {
  my $self = shift;
  my $p = {@_};
  my $name = $p->{name} or die;
  my $value = $p->{value} || 123;
}