/usr/share/doc/libdevel-nytprof-perl/examples/demo/closure.pl is in libdevel-nytprof-perl 5.06-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | our $o;
for my $i (1..100_000) {
my $named2 = \&bar; sub bar { return 1; 1+$l } # non-closure
my $named1 = \&foo; sub foo { return 1; 1+$o } # non-closure
my $anon1 = sub { return 1; 1+$o }; # non-closure
my $anon2 = sub { return 1; 1+$l }; # closure
$named2->();
$named1->(); # faster because of cpu cache of opcode logic?
$anon1->();
$anon2->();
1; # loop
}
|