Почему переменная недоступна?

Question

В следующем блоке кода я получаю эту ошибку

Variable "$host" is not available at /comp/xx.pm line 404. 

, где линия 404 является последней строки в блоке кода.

Вопрос

Я предполагаю, что это Capture модуль, Мессинг в if (defined $host) { ..., но как я могу обойти эту проблему?

use Capture::Tiny 'capture'; 

my $host = $::c{slaves}{$id} if (defined $id); 

my ($stdout, $stderr, $exit) = capture { 
    if (defined $host) { 
     print "---delete $snap on host\n"; 
    } else { 
     print "----delete $snap on master\n"; 
    } 
}; # line 404 

Update

Если я комментирую линия capture и ее закрывающую скобку, то он выполняет ожидаемую print линию.

Answer 1

Проблема эта линия:

my $host = $::c{slaves}{$id} if (defined $id); 

Использование my $x = value if condition в настоящее время не поддерживается в Perl. Это своего рода работы, но имеет странные угловые случаи. Это одно.

Сплит уступка от объявления переменной:

my $host; 
$host = $::c{slaves}{$id} if (defined $id); 

Вы можете прочитать некоторые детали в the documentation for the related warning.

Answer 2

См perldiag для объяснения:

Variable "%s" is not available (W closure) 

Во время компиляции внутреннее имени подпрограммы или Eval пытается захватить внешний лексических, который не в настоящее время. Это может произойти по одной из двух причин. Во-первых, внешняя лексика может быть объявлена ​​во внешней анонимной подпрограмме , которая еще не создана. (Помните, что названные подлодки создаются во время компиляции, в то время как анонимные сабвуфер создается во время выполнения). Например,

  sub { my $a; sub f { $a } } 

В то время, создаются е, он не может захватить текущее значение $ a, так как анонимная подпрограмма еще не создана . С другой стороны, следующие не будет выдавать предупреждение, так как анонимная подпрограмма теперь была создана и живое:

  sub { my $a; eval 'sub f { $a }' }->(); 

Вторая ситуация вызвана Eval доступ к переменному, вышли за рамки, например, ,

  sub f { 
       my $a; 
       sub { eval '$a' } 
      } 
      f()->(); 

Здесь, когда «$ а» в Eval компилируется, е() в настоящее время не выполняется, так что его $ а не для захвата.