perl – 在Moose中创建类属性的最佳方式是什么？

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

导读：我需要一个在Moose的类属性.现在我在说： #!/usr/bin/perluse 5.010;use strict;use warnings;use MooseX::Declare;class User { has id = (isa = "Str",is = 'ro',builder = '_get_id'); has name = (isa = "Str",is = 'ro'); has balance = (isa = "Num",i

我需要一个在Moose的类属性.现在我在说：

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use MooseX::Declare;

class User {
    has id      => (isa => "Str",is => 'ro',builder => '_get_id');
    has name    => (isa => "Str",is => 'ro');
    has balance => (isa => "Num",is => 'rw',default => 0);

    #FIXME: this should use a database  
    method _get_id {
        state $id = 0; #I would like this to be a class attribute
        return $id++;
    }
}

my @users;
for my $name (qw/alice bob charlie/) {
    push @users,User->new(name => $name);
};

for my $user (@users) {
    print $user->name," has an id of ",$user->id,"n";
}

解决方法

我发现MooseX :: ClassAttribute,但它看起来很丑陋.这是最干净的方式吗？

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use MooseX::Declare;

class User {
    use MooseX::ClassAttribute;

    class_has id_pool => (isa => "Int",default => 0);

    has id      => (isa => "Str",default => 0);

    #FIXME: this should use a database  
    method _get_id {
        return __PACKAGE__->id_pool(__PACKAGE__->id_pool+1);
    }
}

my @users;
for my $name (qw/alice bob charlie/) {
    push @users,"n";
}

（编辑：李大同）

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