car-03.pl

{
    package Brand;

    use Moo::Role;

    has name => ( is => 'rw', required => 1 ); # made rw
    sub description { "This is a nice ". shift->name }
}

{
    package Car;
    use Moo;

    # with 'Brand'; # not at compile time
}

my $car = Car->new;

# TODO an investigation which determines that it really is a branded car

Moo::Role->apply_roles_to_object($car, 'Brand');

# $car->name("Peugeot");
say $car->description;