Select Code to Download

package Breakable;
 
...
 
    $self->is_broken(1);
}

package Breakdancer;
 
...
sub break {
 
}

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