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 tests => 2;

# Klass->does_role should check the parent classes.

{
    package R1;
    use Mouse::Role;
}

{
    package C1;
    use Mouse;
    with 'R1';
}

{
    package C2;
    use Mouse;
    extends 'C1';
}

ok(C1->meta->does_role('R1'));
ok(C2->meta->does_role('R1'));