Это всего лишь частичный ответ на вопрос 2, разделяющий импорт.

Загрузка модуля (через use) делает две вещи:

1. Компиляция модуля и установка содержимого в иерархию пространства имен (которая является общей). См. perldoc -f require.
2. Вызов подпрограммы import для каждого загруженного модуля. Это загружает некоторые подпрограммы или константы и т. д. в пространство имен вызывающего объекта. Это процесс, который класс Exporter в значительной степени скрывает от глаз. Эта часть важна для использования сабвуферов и т. д. без их полного имени, например. max вместо List::Util::max. См. perldoc -f use.

Давайте рассмотрим следующие три модуля: A, B и User.

{
   package A;
   use List::Util qw(max);
   # can use List::Util::max
   # can use max
}
{
   package User;
   # can use List::Util::max -> it is already loaded
   # cannot use max, this name is not defined in this namespace
}

Пакет B определяет подпрограмму load, которая загружает предопределенный список модулей и подпрограмм в пространство имен вызывающих объектов:

{
   package B;
   sub load {
     my $package = (caller())[0]; # caller is a built-in, fetches package name

     eval qq{package $package;} . <<'FINIS' ;
       use List::Util qw(max);
       # add further modules here to load
       # you can place arbitrarily complex code in this eval string
       # to execute it in all modules that call this sub.
       # (e.g. testing and registering)
       # However, this is orthogonal to OOP.
FINIS

     if ($@) {
       # Do error handling
     }
   }
}

Внутри строки eval мы временно переключаемся на пакет callers, а затем загружаем указанный модуль. Это означает, что код пакета User теперь выглядит так:

{
   package User;
   B::load();
   # can use List::Util::max
   # can use max
}

Однако вы должны убедиться, что сабвуфер load уже загружен. use B если сомневаетесь. Возможно, лучше всего выполнить B::load() на этапе BEGIN, прежде чем остальная часть модуля будет скомпилирована:

{
  package User;
  BEGIN {use B; B::load()}
  # ...
}

эквивалентно

{
  package User;
  use B;
  use List::Util qw(max);
  # ...
}

ТИМТОВТДИ. Хотя я нахожу код evaling довольно запутанным и опасным, именно его я бы и использовал в этом сценарии (а не файлы doing, которые похожи, но имеют другие побочные эффекты). Вручную возиться с typeglobs в пространстве имен пакетов — это ад по сравнению с ним, а копирование и вставка списка имен модулей — это все равно, что вернуться в те дни, когда не было даже препроцессора C.

Изменить: Import::Into

… это модуль CPAN, обеспечивающий эту функциональность через интересный интерфейс метода. Используя этот модуль, мы бы переопределили наш пакет B следующим образом:

{
  package B;
  use List::Util;   # you have to 'use' or 'require' this first, before using 'load'.
  use Import::Into; # has to be installed from CPAN first
  sub load {
    my $package = caller;
    List::Util->import::into($package, qw(max));
    # should work too: strict->import::into($package);
    # ...
  }
}

Этот модуль скрывает всю грязную работу (evaling) от просмотра и выполняет гимнастику разрешения вызовов методов, чтобы разрешить импорт прагм в другие пространства имен.

Дополнение к Import::Into Solution

Я нашел сценарий, который, кажется, требует eval() из решения Import::Into. В этом сценарии mod User эффективно используется из пакета B. Это может быть обычным сценарием для людей, использующих Import::Into.

Особенности:

• Я создал модуль uses_exporter с отдельными сабвуферами для импорта разных групп модулей, например. load_generic() и load_list_utils().

• Использование в load_list_utils() относится к общедоступным модам, таким как List::MoreUtils, И к моему собственному модулю, list_utils_again. Этот локальный модуль также вызывает load_list_utils(). Вызов завершится ошибкой, если load_list_utils() использует list_utils_again.

• Мое решение состояло в том, чтобы использовать list_utils_again в eval, который не выполняется, когда $target eq 'list_utils_again'

Правильный идиоматический способ Perl сделать это не всегда загружать кучу модулей независимо от того, используются они или нет; это значит, что в каждом файле должны быть use те модули, которые ему прямо (а не косвенно) нужны.

Если выяснится, что каждый файл использует один и тот же набор модулей, вы можете упростить задачу, создав один выделенный модуль для использования всех модулей из этого общего набора.