Re^4: Making 'all' the attributes read only by default (Moo)

[blindluke]

Can the Boo constant consume a role? I don't think so.

I know that your replies are usually both knowledgeable and helpful, as I've learned much from many of them, so I'll skip over the 'angst' remark and try to provide an example that better conveys my aim:

package Ghost {
    use Moo;
    with('Attacker');

    has 'Str' => ( is => 'ro', default => sub {  '8' } );
    has 'Dex' => ( is => 'ro', default => sub { '16' } );
    has 'Con' => ( is => 'ro', default => sub { '10' } );
    has 'Int' => ( is => 'ro', default => sub { '10' } );
    has 'Wis' => ( is => 'ro', default => sub { '10' } );
    has 'Cha' => ( is => 'ro', default => sub {  '6' } );
}

my $boo = Ghost->new( Int => '14', Con => '16' );

I'm asking about a way to state that all the attributes of Ghost are readonly, as I think that:

package Ghost {
    use Moo;
    use Moo::AllAttributesAreReadonly;

    with('Attacker');

    has 'Str' => ( default => sub {  '8' } );
    has 'Dex' => ( default => sub { '16' } );
    has 'Con' => ( default => sub { '10' } );
    has 'Int' => ( default => sub { '10' } );
    has 'Wis' => ( default => sub { '10' } );
    has 'Cha' => ( default => sub {  '6' } );
}

my $boo = Ghost->new( Int => '14', Con => '16' );

or something like this, would be much more elegant than the way I am using now. If my "classes" did not consume roles, had no methods, and were as simple as the one I provided, then I would have no reason to use Moo in the first place.

[BrowserUk]

I'm asking about a way to state that all the attributes of Ghost are readonly,

I understand what you are asking for, and can even sympathize with your desire to do away with boilerplate code. Sorry that I cannot help you with that; perhaps tobyink will happen by with some wisdom.

But for the life of me I do not understand the desire to construct write-once variables at runtime.