¿Por qué uno elegiría declarar e inicializar una variable léxica en declaraciones separadas?

Question

Este es un extracto de AnyEvent::Intro

# register a read watcher 
my $read_watcher; $read_watcher = AnyEvent->io (
    fh => $fh, 
    poll => "r", 
    cb => sub { 
     my $len = sysread $fh, $response, 1024, length $response; 

     if ($len <= 0) { 
      # we are done, or an error occurred, lets ignore the latter 
      undef $read_watcher; # no longer interested 
      $cv->send ($response); # send results 
     } 
    }, 
); 

¿Por qué usa

my $read_watcher; $read_watcher = AnyEvent->io (... 

en lugar de

my $read_watcher = AnyEvent->io (... 

?

Answer 1

Debido a las referencias de cierre $read_watcher y el ámbito en el que $read_watcher la resolución a los léxica sólo comienza con la declaración después de que contiene el my.

Esto es intencional para que el código como esto se refiere a dos variables independientes:

my $foo = 5; 

{ 
    my $foo = $foo; 
    $foo++; 
    print "$foo\n"; 
} 

print "$foo\n";