sub update_info {
  my $obj = shift;
  my $params = { @_ };
  my $value = exists $params->{value} ? $params->{value} : undef;
  ...
}