Comment puis-je empêcher que les attributs en lecture seule de Perl Moose soient définis lors d'un appel à new?

Question

Je voudrais simplement déclarer un attribut en lecture seule dans Moose qui ne peut pas être initialisé dans un appel à new. Ainsi, après avoir déclaré ce qui suit:

package SOD::KuuAnalyze::ProdId; 

use Moose; 

has 'users' => (isa => 'ArrayRef[Str]', is => "ro"); 

1; 

Je ne veux pas ce qui suit au travail:

my $prodid = SOD::KuuAnalyze::ProdId->new(users => ["one", "two"]); 

Answer 1

Utilisez la configuration d'attribut init_arg (voir "Paramètres du constructeur" dans Moose::Manual::Attributes):

package SOD::KuuAnalyze::ProdId; 
use Moose; 

has 'users' => (
    isa => 'ArrayRef[Str]', is => "ro", 
    init_arg => undef, # do not allow in constructor 
); 
1; 

Answer 2

Que diriez-vous

package SOD::KuuAnalyze::ProdId; 

use Moose; 

has 'users' => (isa => 'ArrayRef[Str]', is => 'ro', init_arg => undef, default => sub { [ 'one', 'two' ] }); 

Réglage du init_arg à undef semble être nécessaire pour désavouer mise en l'attribut du constructeur.