ClassA.pm

package ClassA;

use Moose;

with 'Role::A';

1;

ClassB.pm

package ClassB;

use Moose;

with 'Role::A';

1;

role_uses_consuming_class.pl

package Role::A;

use Moose::Role;
use ClassA;

sub silly_method { 1; }

package main;

use Test::More 'no_plan';

use ClassA;
use ClassB;

my $a = ClassA->new;
my $b = ClassB->new;

ok($a->meta->does_role('Role::A'), 'has role');
can_ok($a, 'silly_method');

ok($b->meta->does_role('Role::A'), 'has role');
can_ok($b, 'silly_method');