Help for this page

Select Code to Download

Select or download this

sub f(&) { my ($cr) = @_; push @keep_alive, $cr; say $cr; }

...

f { '...' } for 1..2;
f { $x }    for 1..2;

Select or download this

CODE(0x3396f4)  \ same for non-capturing
CODE(0x3396f4)  /
CODE(0x24b1cc)  \ different for capturing
CODE(0x338c04)  /