package MyClass;

use warnings;
use strict;

use Moo;
with 'MyRole';

around foo => sub {
    my $orig = shift;
    my $self = shift;
    my $value = $self->$orig(@_);
    return 'true' eq $value ? 'probably' : $value
};

__PACKAGE__