«Простым словом» (bareword) называется слово, не имеющее специальной грамматической интерпрс-тацнн и ингернретируе.мое как строка - Примеч перев.

Хотя тег DEFAULT не указывается в %EXPORT TAGS, он обозначает все содержимое EXPORT.

Все эти переменные не обязательно определять в каждом модуле. Ограничьтесь лишь теми, которые будут использоваться.

> Смотри также-

Документация но стандартному модулю Exporter, рецепты 12.7; 12.18

12.2. Обработка ошибок require и use

Проблема

Загружаемый модуль может отсутствовать в системе. Обычно это приводит к фатальной ошибке. Вы хотите обнаружить и перехватить эту ошибку.

Решение

Поместите require или use в eval, а eval - в блок BEGIN.

# Не импортировать BEGIN {

unless (eval require $nod ) { warn Couldn t load $nod $@

# Импортировать в текущий пакет BEGIN {

unless (eval use Smod ) {

warn couldn t load Smod $ia

Комментарий

Попытка загрузки отсутствующего или неполного модуля обычно должна приводить к аварийному завершению программы. Однако в некоторых сцхуациях программа должна продолжить работу - например, попытаться загрузить другой модуль. Как и при других исключениях, для изолирования ошибок компиляции применяется конструкция eval.

Использовать eval { БЛОК } нежелательно, поскольку в этом случае будут перехватываться только исключения времени выполнения, а use относится к событиям времени компиляции. Вместо этого следует использовать конструкцию eval СТРОКА , что позволит перехватывать и ошибки компиляции. Помните: вызов requi re для простого слова имеет несколько иной смысл, чем вызов requi re

die "None of @DBs loaded" unless Sfound;

Мы включаем eval в блок BEGIN, чтобы гарантировать загрузку модуля во время компиляции, а не во время выполнения.

> Смотри также-

Рецепт 10.12; рецепт 12.3. Функции eval, die, use и require описаны ъ perl-func(l).

12.3. Отложенное использование модуля

Проблема

Необходимо организовать загрузку модуля на определенной стадии работы программы или вообще отказаться от его загрузки при некоторых обстоятельствах.

Решение

Разбейте use на отдельные компоненты require и import, либо воспользуйтесь директивой use autouse.

Комментарий

Если программа проверяет свои аргументы и завершает работу с информационным сообщением или ошибкой, загружать неиспользуемые модули бессмысленно. Это лишь вызывает задержки и раздражает пользователей. Но как говорилось во введении, команды use обрабатываются во время компиляции, а не во время выполнения.

Наиболее эффективная стратегия состоит в проверке аргументов внутри блока BEGIN до загрузки модулей. Следующая программа перед загрузкой необходимых модулей проверяет, что она была вызвана ровно с двумя аргументами, каждый из которых является целым числом:

для переменной. Команда добавляет расширение .рт и преобразует : ; в разделитель каталогов вашей операционной системы - в каноническом варианте / (как в URL), но в некоторых системах используются \, ; и даже . .

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

BEGIN {

my($found, laDBs, Srnod); $found = 0;

@DBs = qw(Giant::Eenie Giant::Meanie Mouse::Mynie Мое); for $mod (@DBs) {

if (eval "require Srood") {

$nod->iniport(); # При необходимости

Sfound = 1;

last;

12.3. Отложенное использование модуля 415

BEGIN {

unless (©ARGV == 2 && (2 == grep {/"\d+$/} ©ARGV)) { die "usage; $0 numl пит2\п";

use Some;;Module; use More;;Modules;

Похожая ситуация возникает в программах, которые при разных запусках могут использовать разные наборы модулей. Например, программа factors из главы 2 «Числа» загружает библиотеку вычислений с повышенной точностью лишь при вызове с флагом -Ь. Команда use в данном случае бессмысленна, поскольку она обрабатывается во время компиляции, задолго до проверки условия if. По этой причине мы используем команду require:

if ($opt b) {

require Math::BigInt;

Math::BigInt является не традиционным, a объектно-ориентированным модулем, поэтому импортирование не требуется. Если у вас имеется список импортируемых объектов, укажите его в конструкции qw() так, как это было бы сделано для use. Например, вместо:

use Fcntl qw(0 EXCL 0 CREAT 0 RDWR);

можно использовать следующую запись:

require Fcntl;

Fcntl->inport(qw(0 EXCL 0 CREAT 0 RDWR));

Откладывая импортирование до времени выполнения, мы сознательно идем на то, что оставшаяся часть программы не узнает об изменениях импортированной семантики, которые были бы видны компилятору при использовании use. В частности, не будут своевременно видны прототипы функций и переопределения встроенных функций.

Возникает идея - инкапсулировать отложенную загрузку в подпрограмме. Следующее, простое на первый взгляд решение не работает:

sub load fflodule {

require $ [0]; «НЕВЕРНО import $ [0]; «НЕВЕРНО

Понять причину неудачи непросто. Представьте себе вызов require с аргументом "Math; : BigFloat". Если это простое слово, :: преобразуется в разделитель каталогов операционной системы, а в конец добавляется расширение .рт. Но простая переменная интерпретируется как литерал - имя файла. Дело усугубляется тем, что Perl не имеет встроенной функции import. Существует лишь метод класса import, который мы пытаемся применить с сомнительным косвенным объектным синтаксисом. Как и в случае с косвенным применением файловых манипуляторов, косвенный объект можно использовать лишь для простой ска-