package MyClass;
use Moo;
with 'MyRole';

around foo => sub {
    my ($self, $orig) = @_;
    
    if ($self->$orig eq 'baz') {
        return 'bak';
   }
   return $self->$orig;
}