Mooseでクラス属性を作成する最善の方法は何ですか？

Question

私はMooseでclass属性が必要です。今すぐ私は言っている：

#!/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"; 
} 

Answer 1

私は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", is => 'rw', default => 0); 

    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 { 
     return __PACKAGE__->id_pool(__PACKAGE__->id_pool+1); 
    } 
} 

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

Answer 2

正に、私はクラス属性のためにそのすべてのトラブルを考える必要はないと思います。読み取り専用クラスの属性については、定数を返すサブを使用しています。読み書き属性については、パッケージ内の単純な状態変数は、通常のトリック（私はまだ、私はより複雑なものを必要なあらゆるシナリオに実行していない。）

state $count = 0; 
method _get_id { 
    return ++$count; 
} 

は、字句の専用ブロックはできません5.10より前の互換性が必要な場合に使用します。