[Moscow.pm] Почему код так работает?

[Denis Evdokimov]

Кстати, ОН ЕЁ НЕ ВИДИТ
#!/usr/bin/perl

use strict;
use warnings;

my $test = 10;
warn 'main: ', \$test;

my $func1 = sub {
    warn 'func1: ', \$test;
    sub func2 {
        warn 'func2: ', \$test;
        $test = 5000;
    }
};
$func1->();
func2();
func2();
func2();
func2();
func2();
func2();
warn $test;


main: SCALAR(0x182f478) at 1.pl line 7.
func1: SCALAR(0x182f478) at 1.pl line 10.
func2: SCALAR(0x182f3d0) at 1.pl line 12.
func2: SCALAR(0x1854628) at 1.pl line 12.
func2: SCALAR(0x182f3d0) at 1.pl line 12.
func2: SCALAR(0x1854628) at 1.pl line 12.
func2: SCALAR(0x182f3d0) at 1.pl line 12.
func2: SCALAR(0x1854628) at 1.pl line 12.
10 at 1.pl line 23.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: http://mail.pm.org/pipermail/moscow-pm/attachments/20080530/e5fae4c2/attachment.html