http://www.perlmonks.org?node_id=654769


in reply to Closures clarification

I don't even get the first one:
this is a definite closure 
my $total_size =0;
find{ sub $total_size += -s if -f}, '.');
print $total_size, "\n";

[download]
What are you trying to do there?

In Section Seekers of Perl Wisdom