Установка экспортированной константы perl

Question

Я использую модуль ( Mail :: SPF :: Iterator ), который экспортирует константу для включения вывода отладки:

use Mail::SPF::Iterator Debug =>1; # enable debugging

Как я могу установить эту константу позже в код например в зависимости от условия?

if ( my condition ) {
   # set Debug to 1
}

Answer 1

Аргументы для use являются просто аргументами метода import используемого пакета. Команда use запускается во время компиляции, поэтому либо используйте блок BEGIN

BEGIN {
    my $do_i_want_to_debug = ... ;
    use Mail::SPF::Iterator Debug => $do_i_want_to_debug;
}

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

my $do_i_want_to_debug = ... ;
require Mail::SPF::Iterator;
Mail::SPF::Iterator->import(Debug => $do_i_want_to_debug);

Answer 2

Константа Perl обычно является просто определением подпрограммы, поэтому вы бы сказали

if (condition) {
    no warnings 'redefine';
    *Debug = sub () { 1 };
}