クロージャーの練習

closure.pl

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

{
    my $count = 0;
    sub counter {
        say $count++;
    }
}
counter(); #=> 0
counter(); #=> 1
counter(); #=> 2

# see also:
# http://dqn.sakusakutto.jp/2009/12/perl_9.html
# http://www14.atpages.jp/jelfe/07/21.html
# http://d.hatena.ne.jp/naoya/20060109/1136812096