Composing Roles from Roles

package Comparable;
use Moose::Role;

with 'Equality';

requires 'compare';

sub equal_to {
    my ($self, $other) = @_;
    $self->compare($other) == 0;
}