如何创建其派生类由创建属性隐式指定的对象？

Question

我正在寻找以下模式。 （我在 Perl 工作，但我认为该语言并不特别重要）。

有一个父类 Foo，以及子类 Bar、Baz、Bazza。

构造 Foo 的方法之一是解析字符串，该字符串的一部分将隐式指定要创建的类。例如，如果它以 'http:' 开头，那么它就是一个 Bar，但如果它没有但它包含 '[Date]'，那么 Baz 喜欢它，依此类推。

现在，如果 Foo 知道它的所有子元素，以及什么是 Bar、什么是 Baz 等字符串，它就可以调用适当的构造函数。但是基类不应该对其子类有任何了解。

我想要的是 Foo 的构造函数能够依次尝试它的孩子，直到其中一个说“是的，这是我的，我会创造这个东西”。

我意识到，在一般情况下，这个问题没有明确定义，因为可能有不止一个孩子会接受字符串，所以他们被称为的顺序很重要：忽略这一点并假设特征字符串中只有一个子类会喜欢该字符串。

我想出的最好办法是让子类在初始化时向基类“注册”，以便它获取构造函数列表，然后循环遍历它们。但是我错过了更好的方法吗？

示例代码：

package Foo;

my @children;

sub _registerChild
{
  push @children, shift();
}

sub newFromString
{
  my $string = shift;
  foreach (@children) {
    my $object = $_->newFromString(@_) and return $object;
  }
  return undef;
}

package Bar;
our @ISA = ('Foo');

Foo::_registerChild(__PACKAGE__);

sub newFromString
{
  my $string = shift;
  if ($string =~ /^http:/i) {
    return bless(...);
  }
  return undef;
}

Answer 1

您可以在 Foo 类中实现任意查找算法，以搜索现有的子类。可能基于子类提供的配置文件，或者您可能想到的任何其他机制。

Foo 类将在运行时检测现有的客户端类并依次调用它们。

此外，您可以缓存查找结果并接近您已经描述的注册表解决方案。

Answer 2

也许你可以用Module::Pluggable 来实现这个？这将消除注册的需要。

我之前采用的方法是使用 Module::Pluggable 加载我的子模块（这使我可以通过简单地编写和安装它们来添加新的子模块）。每个子类都有一个构造函数，它要么返回一个祝福对象，要么返回 undef。你循环你的插件直到你得到一个对象，然后返回它。

类似：

package MyClass;
use Module::Pluggable;

sub new
{
    my ($class, @args) = @_;
    for my $plugin ($class->plugins)
    {
       my $object = $plugin->new(@args);
       return $object if $object;
    }
}

还有Class:Factory，但这可能有点超出您的需求。

Answer 3

如果您对父类的评论不包含有关儿童的信息以及您将建立子类适用性的任务委派给类本身的方法，那么从父类中排除类选择可能是正确的并为此任务创建一个单例。

至少那会是我的偏好……从这个角度来看，您当前的父类（可能在您的子类中具有一些通用功能）可能会变成抽象或接口。

然后单例可以管理所有子类的构造及其分布（如果它们不起作用，则克隆它们？）...此外，可以将子类移动到单独的 dll 中以促进分离。

抱歉，这不是一个直接的解决方案。 我过去通过管理单例中的类列表来完成此操作，就像您在这里一样。单例背后的想法是，如果您确实想使用任何昂贵的反射，您只需执行一次。

Answer 4

看来您正试图让一个类既是基类又是工厂。别。使用 2 个单独的类。像这样的：

package Foo;

package Bar;
use base 'Foo';

package Baz;
use base 'Foo';

package Bazza;
use base 'Foo';

package Factory;
use Bar;
use Baz;
use Bazza;

sub get_foo {
    my ($class, $string) = @_;
    return Bar->try($string) || Baz->try($string) || Bazza->try($string);
}

然后像这样使用它：

my $foo = Factory->get_foo($string);

这样你的基类就不需要知道你的子类，只有你的工厂知道。并且子类也不需要相互了解，只有 Factory 需要知道尝试哪些子类以及按什么顺序尝试的详细信息。