如何“延迟加载”？用作代表的包？

Question

有没有一种方法可以根据使用的任何委托动态地包含一个包，而不必包含所有不同的委托？

我找到了这个 示例 关于如何使用委托，但它掩盖了我试图理解的细节。这种编写方式基本上都是一个文件...

package Compare;
use Moose::Role;
requires 'compare';


package SpaceshipCompare;
use Moose;
with 'Compare';  

sub compare { my ($a, $b) = @_; return $a <=> $b }

package Sort;
use Moose;

has 'comparer' => (
    is       => 'ro',
    does     => 'Compare',
    handles  => 'Compare',
    required => 1,
);

sub my_sort {
    my ($self, @list) = @_;
    return sort { $self->compare($a, $b) } @list;
}

用法：

my $sorter = Sort->new( comparer => SpaceshipCompare->new );
my @sorted = $sorter->my_sort("1one", "0", "43");

在我的委托实现中，我根据传递给构造函数的参数使用不同的资源。

  sub BUILD{
    my($this,$args) = @_;

        if($args->{cachedDataSource} eq 'local'){

            $this->setDataStore( Cache::LocalCache->new() ); 

        }

        if($args->{cachedDataSource} eq 'remote'){

            $this->setDataStore( Cache::RemoteCache->new() ); 

        }


        if($args->{cachedDataSource} eq 'memd'){

            $this->setDataStore( Cache::MemedCache->new() ); 

        }

}

但为了让它工作，我必须有

use Cache::LocalCache;
use Cache::RemoteCache;
use Cache::MemedCache;

没有更好的方法来进行委托，而不必使用所有包（比如某种延迟加载）？

Answer 1

在您的示例中，您可以简单地使用 require：

sub BUILD{
    my($this,$args) = @_;

        if($args->{cachedDataSource} eq 'local'){
            require Cache::LocalCache;
            $this->setDataStore( Cache::LocalCache->new() ); 
        }

        if($args->{cachedDataSource} eq 'remote'){
            require Cache::RemoteCache;
            $this->setDataStore( Cache::RemoteCache->new() ); 
        }

        if($args->{cachedDataSource} eq 'memd'){
            require Cache::MemedCache;
            $this->setDataStore( Cache::MemedCache->new() ); 
        }
}

因为 require 是运行时操作时，该类只有在实际需要时才会被加载。如果您的用户传递类名，那么情况会变得更加复杂。您可能需要使用 Module::Load 。