[Perl] Импортировать ссылку с анонимной подпрограммой

[ProFTP]

есть модуль

Код: Выделить всё

package Bar;

my $anon_anon = sub {return 666}

я хочу импортировать эту анонимныю подпрограмму с своего скрипта
сам данный модуль отлично сам инициализируется!


я еще давно знаю, что примерно это должно быть так:

Код: Выделить всё

use Bar;
my $pkg = 'Bar';
print Dumper ${${'main::'.$pkg.'::'}{anon_anon}}

полностью:

Код: Выделить всё

foreach (keys(%{'main::'.$pkg.'::'})) {
     ${${'main::'.$pkg.'::'}{$_}}=undef if defined ${${'main::'.$pkg.'::'}{$_}};
    @{${'main::'.$pkg.'::'}{$_}}=undef if defined @{${'main::'.$pkg.'::'}{$_}};
    %{${'main::'.$pkg.'::'}{$_}}=undef if defined %{${'main::'.$pkg.'::'}{$_}};
}

выводит undef
c print Dumper ${${'main::'.$pkg.'::'}{anon_anon}}

если написать так:

Код: Выделить всё

{ 
    no strict 'refs'; 
    foreach my $entry ( keys %main:: ) 
    { 
        print Dumper $entry; 
    } 
} 

то anon_anon я не вижу в выводе, может оно не выводиться по каким-то причинам??

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[ProFTP]

по идее переменныю которые объявленные как my не могут быть экспортированные от туда...
я это действительно читал, но что-то так и не понял...

[Гость]

Ну как бы ман говорит: "A my declares the listed variables to be local (lexically) to the enclosing block, file, or eval". Т.е. никак не вытащить my-переменные из модулей.