У меня есть три файла:

~ / MultiFindBinTest.pl:

use FindBin;
use lib "$FindBin::Bin/mod2";
use pack2;

~ / Mod1 / pack1.pm

package pack1;
1;

~ / Mod 2 / pack2.pm

use FindBin;
use lib "$FindBin::Bin/../mod1";
use pack1;
package pack2;
1;

Как видите, base.pl использует pack2, который в свою очередь использует pack1. Тем не менее, это демонстрация того, как НЕ использовать модуль FindBin: при выполнении base.pl pack2 не сможет найти pack1, поскольку он сохранит значение "$ FindBin :: Bin» это было получено с base.pl.

Так что мой вопрос прост: Есть ли метод в Perl для "использовать» модуль, который "использует» другой модуль, все основаны на путях относительно файла, который делает "с помощью"?