Есть хеши: %en_US, %ru_RU. Делаю их экспорт. Простой вариант вот:
our @ISA = qw(Exporter);
our @EXPORT = qw(%en_US, %ru_RU, %pt_PT);
1 - Как можно более красиво/правильно/элегантно написать вот такое - экспортировать не прямо список, а на ходу список склеить из массива? Рабочий вариант вот, но режет глаз:
my @langsIdPool = ('%en_US', '%ru_RU');
our @ISA = qw(Exporter);
our @EXPORT = split(' ', join(" ", @langsIdPool));
2 - Вопрос аналогичный: можно ли элегантнее переписать вот это:
my @langsIdPool = ('%en_US', '%ru_RU');
map {
my %hash = eval $_;
Hash::Util::lock_hash_recurse( %hash);
} @langsIdPool;
3 - Супер вопрос: а как в модуле собрать в массив все имена хешей из этого модуля?
У меня есть некая задумка: есть модуль с хешами переводов ифейса на разные языки. И я хеши не только экспортирую, но и ещё, перед экспортом, делаю с каждым хешем несколько однотипных действий. Отсюда и вопросы.
Вариант для распечатки
