如何在Perl中实现单例类？

Question

在Perl中实现Singletons的最佳实践是什么？

Answer 1

您可以使用Class :: Singleton模块。

也可以使用my或state变量轻松实现“ Singleton”类（后者自Perl 5.10起可用）。 但请参阅下面的@Michael评论。

package MySingletonClass;
use strict;
use warnings;
use feature 'state';

sub new {
    my ($class) = @_;
    state $instance;

    if (! defined $instance) {
        $instance = bless {}, $class;
    }
    return $instance;
}

Answer 2

如果您使用的是Moose，则可以使用MooseX :: Singleton 。 它的接口与Class :: Singleton兼容。

Answer 3

单例摘要：

• 大多数情况下，正常对象会起作用。
• 注意单例。
• 尽可能本地化互动

虽然单例是一个不错的主意，但我倾向于只实现一个普通对象并使用它。 如果只有一个这样的对象很关键，那么我将修改构造函数以在创建第二个对象时引发致命异常。 除了添加依赖项之外，各种单例模块似乎并没有做什么用。

我这样做是因为它很容易，有效，并且在某些古怪的将来需要在我的应用程序中使用第二个对象时，所做的更改已降至最低。

我还喜欢将与“单个”对象的交互本地化-将交互保持在尽可能少的地方。 因此，我不是通过每个对象直接访问单例，而是通过“应用程序”对象来调解所有交互。 只要有可能，应用程序对象都会从“单例”中获取数据，并将其作为参数传递给其他对象中的方法。 来自其他对象的响应也可能会被删除并传递给“单例”。 当我需要对“单个”对象进行更改时，以及当我想在另一个不需要或能够使用原始“单个”对象的应用程序中重用其他对象时，所有这些工作都会有所帮助。