Как я могу использовать локальные библиотеки репозитория hg для тестирования изоляции из уже установленных библиотек?
Установленный пакет обработки perl и локальный репозиторий hg имеют одинаковую структуру
+-- lib
|-- modA.pm
|-- modB.pm
+-- bin
|-- example.pl
+-- t
|-- modA.t
|-- modB.t
установлены библиотеки и добавлен путь к @PERL5
/nfs_share/perl/
env|grep -i perl
PERL5:/usr/local/perl:/nfs_share/perl
local hg repo at:
/data/user/hg/perl
modB.pm
#!/usr/bin/perl
use modA;
sub modB_compare{
my (x,y) = @_;
# .....
return x-y;
}
бен/example.pl
use FindBin qw($Bin);
use lib "${Bin}/lib/";
use modA, modB;
# if this call is from local lib
my $result = modB_compare(x,y);
# if sub being called from production or local hg?
my $result2 = modA_method();
# from local hg repo or from production lib?!
Если бы я должен был модифицировать и протестировать локальное репозиторию hg, нет никаких гарантий, что я вызывал lib из локального репо, а не из производственной библиотеки.
Каковы потенциальные решения для изоляции библиотек для тестирования в локальном репозитории hg?