如何在perl中实现单例类？

发布时间：2020-12-15 21:50:35 所属栏目：大数据来源：网络整理

导读：在Perl中实现 Singletons的最佳实践是什么？解决方法您可以使用 Class::Singleton模块. 使用my或state变量也可以轻松实现“Singleton”类(后者自Perl 5.10起可用).但请参阅下面的@ Michael的评论. package MySingletonClass;use strict;use warnings;use f

在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;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!