The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;

{
    package Role::Foo1;
    use Mouse::Role;
    sub foo { 'foo1' }

    package Role::Foo2;
    use Mouse::Role;
    sub foo { 'foo2' }

    package BarSuper;
    use Mouse;
    sub foo { 'foo3' }

    package BarSub;
    use Mouse;
    extends 'BarSuper';
    with 'Role::Foo1', 'Role::Foo2';
}

is(BarSub->new->foo, "foo3");

done_testing;