my %target = (
  # initialization
);
%target{keys %$source} = values %$source
  if defined $source && ref $source eq 'HASH';