Select Code to Download

sub get_me_a_drink($drink_name) {
  if ($drink_name eq 'soda' or $drink_name eq 'beer') {
...
  }
  die "Can't make this drink";
}

sub get_me_a_drink($name) {
  if (is_cold($name)) {
...
  }
  die "Can't make luke-warm drinks";
}

sub brew_hot_drink {
  my $ingredients = shift;
...
  my $drink = mix($hot,$ingredients);
  return $drink;
}

sub brew_hot_drink {
  my $ingredients = shift;
  return mix( $ingredients, boil(get_water()));
}