如何让 Moose 返回子类实例而不是它自己的类，以实现多态性

Question

我想创建一个泛型类，其构建器不会返回该泛型类的实例，而是返回专用子类的实例。

由于 Moose 会自动构建对象，所以我不明白这是否可能，以及如何使用 Moose 语法创建 Moose 类并具有这种行为。

例如： 用户询问： $file = Repository->new(uri=>'sftp://blabla') .... 并返回一个 `Repository::_Sftp`` 实例，

用户将使用 $file 就好像它是一个 Repository 实例，而不需要知道真正的子类（多态性）

注意：
根据要求，也许我应该更清楚我想要实现的目标：
我的类的目的是能够添加新的存储库方案（例如通过 sftp），只需创建一个“隐藏”Repository::_Stfp 类，并在存储库构造函数中添加一个案例，根据 url 工厂正确的专用对象。存储库就像一个虚拟基类，提供专门对象将实现的接口。
所有这些都是为了添加新的存储库方案，而不需要修改程序的其余部分：它会在不知不觉中处理专用实例，就好像它是存储库实例一样。

Answer 1

new 构建构建器。您想要一些其他方法来实际返回构建的对象。

这是一个例子：

  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

现在您已经有了一个可以按照您喜欢的方式构建对象的构建器，
您只需要在其他代码中使用这些对象即可。所以最后一块
谜题中指的是其他中的“任何”类型的存储库对象
代码。很简单，您使用 does 而不是 isa：

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

就完成了。

Answer 2

不（不直接）。一般来说，在 Moose 中，调用 CLASS->new ，其中 CLASS 是 Moose::Object 将返回 CLASS 的实例。

您能否更详细地描述您想要实现的目标，以及为什么您认为这是您想要的？您可能想要构建一个工厂类——当您调用它的方法时，它将调用适当的类的构造函数并将该对象返回给您，而无需关心您所使用的特定类型。回来：

package MyApp::Factory::Repository;

sub getFactory
{
     my ($class, %attrs);

     # figure out what the caller wants, and decide what type to return
     $class ||= 'Repository::_Sftp';
     return $class->new(attr1 => 'foo', attr2 => 'bar', %attrs);
}

my $file = MyApp::Factory::Repository->getFactory(uri=>'sftp://blabla');