Perl Импорт переменных из вызывающего модуля

Question

У меня есть модуль Perl (Module.pm), который инициализирует ряд переменных, некоторые из которых я хотел бы импортировать ($ VAR2, $ VAR3) в дополнительные подмодули, которые он мог бы загружать во время выполнение.

Путь я в настоящее время настройки Module.pm выглядит следующим образом:

package Module; 

use warnings; 
use strict; 

use vars qw($SUBMODULES $VAR1 $VAR2 $VAR3); 

require Exporter; 
our @ISA = qw(Exporter); 
our @EXPORT = qw($VAR2 $VAR3); 

sub new { 
    my ($package) = @_; 
    my $self = {}; 
    bless ($self, $package); 
    return $self; 
} 

sub SubModules1 { 
    my $self = shift; 
    if($SUBMODULES->{'1'}) { return $SUBMODULES->{'1'}; } 

    # Load & cache submodule 
    require Module::SubModule1; 
    $SUBMODULES->{'1'} = Module::SubModule1->new(@_);  
    return $SUBMODULES->{'1'}; 
} 

sub SubModules2 { 
    my $self = shift; 
    if($SUBMODULES->{'2'}) { return $SUBMODULES->{'2'}; } 

    # Load & cache submodule 
    require Module::SubModule2; 
    $SUBMODULES->{'2'} = Module::SubModule2->new(@_);  
    return $SUBMODULES->{'2'}; 
} 

Каждый подмодуль структурирована следующим образом:

package Module::SubModule1; 

use warnings; 
use strict; 
use Carp; 

use vars qw(); 

sub new { 
    my ($package) = @_; 
    my $self = {}; 
    bless ($self, $package); 
    return $self; 
} 

Я хочу, чтобы иметь возможность импортировать $ var2 и $ VAR3 в каждый из подмодулей без необходимости ссылаться на них как на $ Module :: VAR2 и $ Module :: VAR3. Я заметил, что вызывающий скрипт имеет доступ к обеим переменным, которые я экспортировал в Module.pm желаемым образом, но SubModule1.pm и SubModule2.pm все равно должны ссылаться на переменные как на Module.pm.

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

package Module::SubModule1; 

use warnings; 
use strict; 
use Carp; 

use vars qw($VAR2 $VAR3); 

sub new { 
    my ($package) = @_; 
    my $self = {}; 
    bless ($self, $package); 
    $VAR2 = $Module::VAR2; 
    $VAR3 = $Module::VAR3; 
    return $self; 
} 

Пожалуйста, дайте мне знать, как я могу успешно экспортировать $ var2 и $ var3 от Module.pm в каждом подмодуль. Заранее спасибо за вашу помощь!

Answer 1

В своих подмодулях, вы забыв сказать

use Module; 

? Вызов use Module из другого пакета (скажем Module::Submodule9) попытается запустить метод Module::import. Поскольку у вас нет этого метода, он вызовет метод Exporter::import, и именно там произойдет волшебство, которое экспортирует переменные Module в пространство имен Module::Submodule9.

---

В программе есть только один Module имен и только один экземпляр (глобальной) переменной $Module::VAR2. Экспорт создает псевдонимы для этой переменной в других пространствах имен, поэтому к одной и той же переменной можно обращаться по-разному. Попробуйте это в отдельном скрипте:

package Whatever; 
use Module; 
use strict; 
use vars qw($VAR2); 

$Module::VAR2 = 5; 
print $Whatever::VAR2; # should be 5. 
$VAR2 = 14;    # same as $Whatever::VAR2 = 14 
print $Module::VAR2;  # should be 14 

Answer 2

Ну есть простой способ:

В M.pm:

package M; 

use strict; 
use warnings; 

#our is better than "use vars" for creating package variables 
#it creates an alias to $M::foo named $foo in the current lexical scope 
our $foo = 5; 

sub inM { print "$foo\n" } 

1; 

В M/S.pm

package M; 

#creates an alias to $M::foo that will last for the entire scope, 
#in this case the entire file 
our $foo; 

package M::S; 

use strict; 
use warnings; 

sub inMS { print "$foo\n" } 

1; 

В сценарии:

#!/usr/bin/perl 

use strict; 
use warnings; 

use M; 
use M::S; 

M::inM(); 
M::S::inMS(); 

Но я бы посоветовал против этого. Глобальные переменные не являются хорошей практикой, и обмен глобальными переменными между модулями еще хуже.