perl modules - условное включение

[Mayor]

В perl пишу
use foobar;
Проблема в том, что модуль foobar в системе может отсутствовать. При этом функции из него не особо нужные и используются только при определенной комбинации настроек скрипта (то есть, могут и вообще не потребоваться пользователю). Поэтому хотелось бы грузить этот модель только в том случае, если это указано в настройках. Я не хочу заставлять пользователя править скрипт или ставить ненужный ему модуль. Как сделать условную загрузку? use внутри if нельзя. Что можно?

[RXL]

Bспользуй require вместо use:

Код:

#!/usr/bin/perl

if (1 == 2)
{
    require xyz;
}
else
{
    print "xyz еще не тут!";
}

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

Код: (Perl)

eval
{
    require xyz;
};

if ($@)
{
    # ошибка загрузки
}

# .............

if (exists $INC{'xyz'})
{
    # проверка, что модуль уже загружен и с ним можно работать
}