Select Code to Download

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

  foreach my $key (keys %$result) {
    my $tkey = $key; $tkey =~ s/^-//;
...
  }
  return $result;
}