如何根据可用模块动态包含模块？

Question

我有一个使用 CGI::Session::Drive::memcached 的 perl 脚本，但我希望能够回退到默认会话驱动程序或其他驱动程序（如果系统上可用）...

这就是我开始的方式使用 Memcache，但这不一定能解决 Cache::Memecached 和/或 CGI::Session::Driver::memcached 不可用时的问题...

package MySession;

use Moose::Role;
use Moose::Util::TypeConstraints; 
use namespace::autoclean;

use CGI::Session ('-ip_match');
use CGI::Session::Driver::memcached;
use Cache::Memcached::Fast;

#would be nice to create this conditionally, or use a delegate maybe
has 'memeCached' => (
 is        => 'rw', 
 isa       => 'Maybe[Cache::Memcached::Fast]', 
 default => sub{ return Cache::Memcached::Fast->new( {'servers' => [ '10.x.x.x.:10001' ],'compress_threshold' => '100000','nowait' => 1,'utf8' => 1} ) },

);


  sub buildSession{
    my($this,$cgi,$sessionDir) = @_;

    $cgi = $cgi || $this->getCGI();

    my $sid = $this->SID();        
    my $mem = $this->memeCached(); 

    my $sss;

    if(!$mem){
        $sss = CGI::Session->load(undef, $cgi, {Directory=>$sessionDir}) or die CGI::Session->errstr();
    }else{
            $sss = CGI::Session->load( "driver:memcached", $cgi, { Memcached => $mem }) or die CGI::Session->errstr();
    }

...

然后这让我思考，我该怎么做——在一般意义上？或者最好的方法是什么（特别是使用 Moose）？

Answer 1

我也有类似的情况。我们使用 Windows 域，我可以将其连接到 Net::LDAP。在我的程序中，我希望能够获取用户 ID jsmith，而不是打印用户 ID，我希望能够打印出名字 John Smith >。

我公司的很多人都使用我的程序，但并非所有人都是 Perl 专家，而且大多数人不知道如何安装 Perl 模块。而且，由于 Net::LDAP 不是标准模块，因此许多人没有它。

相反，我想要一个后备例程。如果我可以使用 Net::LDAP 查找名称，我会打印该名称，如果我无法加载 Net::LDAP，我会回退并仅打印用户 ID。

我使用以下内容来测试 Net::LDAP 是否已安装，并在可能的情况下加载它：

BEGIN {
    eval { require Net::LDAP; };
    our $Net_Ldap_Status  = 1 if (not $@);
}

您必须了解的是：

use Foo::Bar;

与：

BEGIN {
    require Foo::Bar;
}

它在编译时加载到模块中 时间。通过用 eval 包围 require，我可以测试语句是否成功（并且模块已加载）或失败（模块未加载，但程序未加载）也不会崩溃。）然后我可以检查 $@ 以查看模块是否已加载。 $@ 是 eval 设置的错误信息。如果$@为空，则模块存在并且加载成功。

我需要使用包变量（our $Net_Ldap_Status 而不是 my $Net_Ldap_Status），否则该变量将在程序运行时丢失。 （我什至不确定我的 $Net_Ldap_Status 是否可以在 BEGIN 语句中工作）。

现在，事情变得很奇怪......

当我需要检查 $Net_Ldap_Status 时，我需要重新声明它：

our $Net_Ldap_Status;

否则我往往会遇到未声明的变量错误。有趣的是，重新声明它并不会失去它以前的价值。因此，我的代码中的某处是：

our $Net_Ldap_Status;
if ($Net_Ldap_Status) {
   print "Code if Net::LDAP is loaded.\n";
}
else {
   print "Fallback Code if no Net::LDAP\n";
}