use Moops;
use Data::Dx;
class BLA extends SOME::PARENT with SOME::ROLE, ANOTHER::ROLE {
    has x => is => 'rw', isa => Int, writer => 'set_x', default => 10;
    has y => is => 'rw', isa => Int, writer => 'set_y', default => 11;
    method print_x() {
        printf "x = %s\n", $self->x;
    }
    method dump() {
        Dx $self;
    }
}
my $bla = BLA->new;
$bla->set_x(42);
$bla->print_x;
$bla->dump;