Select Code to Download

#!/usr/bin/perl -w
use strict;

...

Dump $_
    for( \&begin, \&justmy, \&ifmy, \&static, \&inner, gen(), \&insert
+ );

Variable "$x" will not stay shared at closure.pl line 27.

begin:
...
            1. 0x1a65170 ("$x" 66-68)
            2. 0x1a7b8e8 ("&" 1--1)
          OUTSIDE = 0x1a6f124 (MAIN)

begin:    1. 0x1a621b0 (FAKE "$x" 0-57)
justmy:   1. 0x1a7b714 ("$x" 59-60)
ifmy:     1. 0x1a7b780 ("$x" 61-62)
...
inner:    1. 0x1a7b7ec (FAKE "$x" 0-64)
gen():    1. 0x1a65080 (FAKE "$x" 0-67)
insert:   1. 0x1a7b8c4 (FAKE "$x" 0-67)