Help for this page

Select Code to Download


  1. or download this
    {
    my $subref;
    {
...
    print "Outside!\n";
    $subref->();
}
  2. or download this
    Outside
FOO: Foo=HASH(0x1a7eefc)
DESTROY CALLED at xx line 15.
  3. or download this
    {
    my $subref;
    {
...
    print "Outside\n";
    $subref->();
}