perl – 如何让Moose返回子类实例而不是它自己的类,用于多态

这是一个例子：

class RepositoryBuilder {
     has 'allow_network_repositories' => (
         is       => 'ro',isa      => 'Bool',required => 1,);

     method build_repository(Uri $url) {
        confess 'network access is not allowed'
            if $url->is_network_url && !$self->allow_network_repositories;

        my $class = $self->determine_class_for($url); # Repository::Whatever
        return $class->new( url => $url );
     }
  }

  role Repository { <whatever }

  class Repository::File with Repository {}
  class Repository::HTTP with Repository {}

这里,构建器和构建的对象是不同的.建设者是一个
真实对象,带有参数,可以自定义构建
对象根据情况的要求.然后,“建立”对象是
只返回一个方法的值.这允许您构建其他
建设者视情况而定. (建筑师的问题
功能是他们非常不灵活 – 教他们很难
一个新的特例.生成器对象仍然存在此问题,
但至少你的应用程序可以创建一个子类,实例化它,
并将此对象传递给需要创建对象的任何内容.但
在这种情况下,依赖注入是一种更好的方法.)

此外,您构建的存储库不需要继承
任何事情,他们只需要一个标签,表明他们是存储库.
这就是我们的Repository角色所做的事情. (你会想要添加
这里有API代码,以及任何应该重用的方法.不过要小心
关于强制重用 – 你确定所有标记都是
存储库角色会想要那个代码吗？如果没有,只需将代码放入
另一个角色,并将其应用于需要它的类
功能).

以下是我们如何使用我们创建的构建器.如果,比方说,你不想
触摸网络：

my $b = RepositoryBuilder->new( allow_network_repositories => 0 );
$b->build_repository( 'http://google.com/' ); # error
$b->build_repository( 'file:///home/whatever' ); # returns a Repository::Foo

但如果你这样做：

my $b = RepositoryBuilder->new( allow_network_repositories => 1 );
$b->build_repository( 'http://google.com/' ); # Repository::HTTP

现在您有了一个构建器,可以按照您喜欢的方式构建对象,
你只需要在其他代码中使用这些对象.最后一块
在谜题中是指其他的“任何”类型的Repository对象
码.这很简单,你使用的不是isa：

class SomethingThatHasARepository {
    has 'repository' => (
       is       => 'ro',does     => 'Repository',);
}

而且你已经完成了.