在Perl中实现
Singletons的最佳实践是什么？
解决方法
您可以使用
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;
}