tokuhirom (owner)

Revisions

gist: 176838 Download_button fork
public
Public Clone URL: git://gist.github.com/176838.git
Embed All Files: show embed
bar.pl #
raw 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

use strict;
use Perl6::Say;
 
{
    my $i;
    sub counter {
        return $i++;
    }
}
 
say counter();
say counter();
say counter();
say counter();
say counter();
 
 
foo.pl #
raw 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use strict;
use Perl6::Say;
 
sub counter {
    my $out if 0;
    return $out++;
}
 
say counter();
say counter();
say counter();
say counter();
say counter();