if

СОДЕРЖАНИЕ

• НАЗВАНИЕ
• СИНОПСИС
• ОПИСАНИЕ
  • использование if
  • отсутсвие if
• ОШИБКИ
• СМОТРИТЕ ТАКЖЕ
• АВТОР
• АВТОРСКИЕ ПРАВА И ЛИЦЕНЗИЯ

НАЗВАНИЕ

if - use модуль Perl, если выполняется условие

СИНОПСИС

use if CONDITION, "MODULE", ARGUMENTS;
no  if CONDITION, "MODULE", ARGUMENTS;

ОПИСАНИЕ

use if

Модуль if используется для условной загрузки другого модуля. Конструкция:

use if CONDITION, "MODULE", ARGUMENTS;

... загрузит MODULE только в том случае, если CONDITION примет значение true; она не окажет никакого влияния, если CONDITION примет значение false. (Имя модуля, предположительно содержащее хотя бы один ::, должно быть заключено в кавычки, если 'use strict "subs";' активен.) Если CONDITION примет значение true, тогда вышеприведенная строка эквивалентна:

use MODULE ARGUMENTS;

Например, функция charinfo модуля Unicode::UCD будет использовать две функции из Unicode::Normalize только в том случае, если выполняется определённое условие:

use if defined &DynaLoader::boot_DynaLoader,
    "Unicode::Normalize" => qw(getCombinClass NFD);

Предположим, вы хотите, чтобы ARGUMENTS было пустым списком, т.е., чтобы имело эффект:

use MODULE ();

Вы не можете сделать это с помощью директивы if; однако, вы можете добиться точно такого же результата во время компиляции, используя:

BEGIN { require MODULE if CONDITION }

no if

Конструкция no if в основном используется для отключения категорий предупреждений, когда эти категории генерируют избыточный вывод в указанных версиях perl.

Например, категория предупреждений redundant была введена в Perl-5.22. Это предупреждение отмечает определённые случаи избыточных аргументов для printf и sprintf. Но если ваш код работал без предупреждений в предыдущих версиях perl и вас не волнуют предупреждения redundant в более новых версиях, вы можете вызвать:

use warnings;
no if $] >= 5.022, q|warnings|, qw(redundant);

my $test    = { fmt  => "%s", args => [ qw( x y ) ] };
my $result  = sprintf $test->{fmt}, @{$test->{args}};

Конструкция no if предполагает, что модуль или директива правильно реализовали метод unimport() — но большинство модулей и директив этого не делают. Это объясняет, почему конструкция no if имеет ограниченное применение.

ОШИБКИ

В текущей реализации невозможно указать требуемую версию модуля.

СМОТРИТЕ ТАКЖЕ

Module::Requires может использоваться для условной загрузки одного или нескольких модулей с ограничениями, основанными на версии модуля. В отличие от if , Module::Requires не является ядром модулем.

Module::Load::Conditional предоставляет несколько функций, которые можно использовать для запроса доступности модулей и последующей загрузки одного или нескольких из них во время выполнения.

Модуль provide из CPAN может использоваться для выбора одного из нескольких возможных модулей для загрузки в зависимости от версии Perl, которая используется.

АВТОР

Илья Захаревич mailto:ilyaz@cpan.org.

АВТОРСКИЕ ПРАВА И ЛИЦЕНЗИЯ

Данное программное обеспечение является собственностью (c) 2002 г. Ильи Захаревича.

Это свободное программное обеспечение; вы можете распространять и/или изменять его на тех же условиях, что и сама система программирования Perl 5.