test.pl

#!perl
use strict;
use warnings;

{
    package Foo;
    use Moose::Role;

    sub foo {
        warn 'here';
    }

}
{
    package Bar;
    use Moose;

    BEGIN {
        with 'Foo';
    }

    around foo => sub {
        my ($next) = @_;

        warn 'hoge';
        $next->();
    };
}
{
    package Baz;
    use Moose;

    BEGIN {
        extends 'Bar';
    }

    around foo => sub {
        my ($next) = @_;

        warn 'fuga';
        $next->();
    };
}

Baz->new->foo;