car-04.pl

{
    package Brand;

    use Moo::Role;

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

{
    package Car;
    use Moo;
}

my $car = Car->new;
Moo::Role->apply_roles_to_object($car, 'Brand');

# $car->name("Peugeot"); # assign a name to avert termination!
say $car->description;