Select Code to Download

sub some_meth {
  my($self, $source) = @_;
...
  );
  # do somethings with %target
}

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