Help for this page

Select Code to Download


  1. or download this
    use v5.14;

...
sub foo {
   return(2 + $foo);
}
  2. or download this
    use v5.14;

...
say $counter->();
say $other->();
say $counter->();
  3. or download this
    use v5.14;
use Scalar::Util qw/refaddr/;
...

say join "|" => map refaddr($_), @closures;
say join "|" => map refaddr($_), @nonclosures;