package Breakable;
 
use Moose::Role;
 
has 'is_broken' => (
    is  => 'rw',
    isa => 'Bool',
);
 
sub break {
    my $self = shift;
 
    print "I broke\n";
 
    $self->is_broken(1);
}

##</code><code>##

package Breakdancer;
 
use Moose::Role
 
sub break {
 
}

##</code><code>##

package FragileDancer;
 
use Moose;
 
with 'Breakable'   => { -alias => { break => 'break_bone' } },
     'Breakdancer' => { -alias => { break => 'break_dance' } };