perl anonymous подпрограмма в названной подпрограмме

Question

Что касается ниже кода, то как $ one_sub и $ two_sub становятся кодовыми для анонимных подпрограмм в именованном под "sup"? Именованный субон не «возвращает» эти два анонса; или это? (по крайней мере, я не сделал такого заявления).

sub sup { 

      my $neh = sub { 
        say "this is 'neh' subroutine" 
      }; 

      my $hen = sub { 
        say "this is 'hen' subroutine" 
     }; 
      ($neh, $hen); 
    } 

    my ($one_sub, $two_sub) = ⊃ 

Использование Dumper :: Streamer Data :: шоу:

$CODE1 = sub { 
      use warnings; 
      use strict; 
      no feature; 
      use feature ':5.10'; 
      say q[this is 'neh' subroutine]; 
     }; 
$CODE1 = sub { 
      use warnings; 
      use strict; 
      no feature; 
      use feature ':5.10'; 
      say q[this is 'hen' subroutine]; 
     }; 

Answer 1

Цитирую perlsub:

Если нет return не найден, и если последнее утверждение является выражение, его значение возвращается.

($neh, $hen); - выражение. В контексте списка его значение равно 2 анонимным подписчикам.

Answer 2

Да она возвращается:

($neh, $hen); 

В Perl возвращается последняя оценивается заявление. Вам не нужно явно вызывать:

return ($neh, $hen); 

http://perldoc.perl.org/functions/return.html