Select Code to Download

# Perl 6 :)

...
restart_server host => "...", port => ..., timeout => ...;
# or
restart_server :host«...», :port(...), :timeout(...);

# Perl 5
sub foo {
  my $a = shift;
  ...;
}

sub foo {
  my ($a, $b, $c, $d) = @_;
  ...;
}

sub foo {
  my %args = @_;
...
  my ($a, $b, $c, $d) = @{{@_}}{qw( a b c d )};
  ...;
}