perl опционально загружать модуль только при наличии

Question

У меня есть немного редко используемый код в моем скрипте perl, для которого требуется модуль, который не установлен по умолчанию (но это стандартный развернутый модуль cpan).

Существует ли способ дополнительной загрузки модуль, если он доступен, и просто отключите некоторые функции, если они недоступны, чтобы скрипт работал в большинстве дистрибутивов perl по умолчанию, если эта специальная функция не нужна?

Answer 1

вы можете использовать блок try-catch (называемый "eval" в Perl), когда требуется этот модуль.

например:

my $zlib_available=0;
eval
{
    require Compress::Zlib;
    $zlib_available=1;
};

и позже:

if ($zlib_available) {
    $page = Compress::Zlib::memGzip($page);
}