Maybe something like this?

$object->meta->add_around_method_modifier(does => sub {
  my ($orig, $self, $role) = @_;
  return 1 if $role eq 'Some::Role';
  $self->$orig($role);
});
[download]