использовать lib с прагмой if в perl

В Perl мы можем сделать:

use lib LIST;

, чтобы включить список путей в @INC. Точно так же мы можем сделать:

использовать if CONDITION, MODULE => ARGUMENTS;

для условного включения модуля.

Можно ли сочетать оба варианта, например

use lib if CONDITION, LIST;

для условного включения списка путей. Это не работает.

Редактировать: Извините, но я все еще не могу заставить его работать. Вот как я делаю, но это не работает. Не могли бы вы подсказать, что не так?

use Data::Dumper;

BEGIN {
    my $env=$ENV{'ENV'};
    use if $env eq 'OLD', lib => '/home/vivek/OLD';
    use if $env eq 'NEW', lib => '/home/vivek/NEW';
}

print Dumper \@INC;
6
задан Vivek 9 March 2012 в 16:07
поделиться