gistfile1.pl

use feature 'say';

package Load;
use Moose::Role;

sub load { say 'wee, loading' }

package CachedLoad;
use Moose::Role;

with 'Load';

around 'load' => sub {
    my ($orig, $self) = @_;
    say 'cache first!';
    $self->$orig;
};

package ConcreteDb;
use Moose;

with 'Load';

package ConcreteCache;
use Moose;

with 'CachedLoad';

package App;

my $db = ConcreteDb->new;
my $ca = ConcreteCache->new;

say "Load db:";
$db->load;

say "load cache";
$ca->load;