Let's say I have a function that creates anonymous subs and spits out coderefs to them, and that I'm using a closure to create an analogue of a static variable (somewhat akin to what Memoize does): 
sub subfactory
{
    my $static = int(rand(100));
    return sub {print "my number is $static\n";}
}

[download]
Then, I simply assign the function to a scalar, call it and undef it: 
my $func=subfactory();
$func->();
undef $func;

[download]
My question is as follows: is the memory reserved for each instance of $static freed when I undef the function? I would imagine that the anonymous sub compiled in memory contains the sole ref to the memory that was set aside when $static was defined in subfactory() and that, when I undef the function, the reference would be freed too, freeing the memory up for garbage collection, but I'm not sure if that's an accurate assessment, and certainly more info on the internals would be appreciated.

Also what kind of code could I call to illustrate how this works?

In reply to When are references within a closure freed? by Socrates

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.