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' );

##</code><code>##

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' );