¿Cómo puedo evitar que los atributos de solo lectura de Perl Moose se establezcan en una llamada a uno nuevo?

Question

Me gustaría simplemente declarar un atributo de solo lectura en Moose que no se puede inicializar en una llamada a nuevo. Así que después de declarar lo siguiente:

package SOD::KuuAnalyze::ProdId; 

use Moose; 

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

1; 

no quiero lo siguiente para trabajar:

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

Answer 1

utilizar la configuración init_arg atributo (ver "parámetros del constructor" en 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

¿Qué tal

package SOD::KuuAnalyze::ProdId; 

use Moose; 

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

Ajuste del init_arg a undef parece ser necesario para no permitir el ajuste el atributo del constructor.