perl – 如何根据安装位置“使用lib”相应的目录？

我有一个面向对象的Web应用程序,它安装在我的服务器上的多个位置.一次用于“live”,一次用于“beta”等.面向对象,它由许多perl模块组成.在主模块中,我必须“使用lib”为该应用程序实例的所有自定义perl模块使用相应的目录.

这没什么大不了的,我有一个BEGIN块来检查主程序的位置并适当地设置库目录.但是我也有很多实用程序,命令行程序需要做同样的事情.我不想在任何地方剪切和粘贴此代码.

在需要它的各种程序中共享此代码段的最佳方法是什么？

我不能“使用”它,因为尚未设置libary路径.也许“做”或“要求”将是正确的答案,但这两者都会搜索@INC,这是不合适的.

也许像eval`cat GetLib.pl`;是合适的,但似乎有点笨重和脆弱.

这是我目前使用的BEGIN块：

BEGIN {
  use FindBin qw ($Bin);
  require lib;

  if ($Bin =~ /^\/home\/w\/myapp_live/) {
    lib->import('/home/w/myapp_live/lib');
    print STDERR "live site\n";
  }

  if ($Bin =~ /^\/home\/w\/myapp_beta/) {
    lib->import('/home/w/myapp_beta/lib');
    print STDERR "beta site\n";
  }

  if ($Bin =~ /^\/home\/w\/myapp_test/) {
    lib->import('/home/w/myapp_test/lib');
    print STDERR "tesTing site\n";
  }

}

谢谢！

use FindBin::libs;

/home/w/myapp_live/scripts/lib
/home/w/myapp_live/lib
/home/w/lib
/home/lib
/lib       # (presumably!)