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);
}