如何在perl中实现单例类？

Question

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

Answer 1

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

"Singleton"类也可以使用任何一个my或state变量轻松实现(后者自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兼容.