helix - Unnamed repository; edit this file 'description' to name the repository.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

use strict;

sub greet {
  my ($name) = @_;
  print "hello, $name\n";
}

if ($x > 0) {
  print "positive\n";
} elsif ($x < 0) {
  print "negative\n";
} else {
  print "zero\n";
}

for my $i (0 .. 10) {
  print "$i\n";
}

while ($n > 0) {
  $n--;
}

my $config = {
  name => "helix",
  list => [
    1,
    2,
  ],
};