What is roles and composition in Perl?

# Example of roles and composition in Perl

package MyRole {
    use Moose::Role;
    
    sub speak {
        my ($self) = @_;
        return "Hello from the role!";
    }
}

package MyClass {
    use Moose;
    with 'MyRole';

    sub greet {
        my ($self) = @_;
        return $self->speak();
    }
}

my $object = MyClass->new();
print $object->greet();  # Output: Hello from the role!