clojure.pl

# !/usr/bin/env perl

use strict;
use warnings;

# クロージャの実装方法
# count_one()とcount_so_far()は$countに束縛されたクロージャ
{
  my $count = 0;
  sub count_one { ++$count }
  sub count_so_far { return $count; }
}

print count_so_far() . "\n";
count_one();
count_one();
count_one();
print count_so_far() . "\n";