Help for this page

Select Code to Download


  1. or download this
    sub make_closures {
        my $j = 0;
    ...
            push (@closures, sub {print $value, "\n";});
        }
    }