Open-ended role exclusion

C1.pm

package C1;

use Moose;

with 'R1'; ## this works
with 'R2'; ## this also works
with 'R1', 'R2'; ## this will fail

1;

H.pm

package H;

## This is a placeholder role: any class can only have one role that implements this H role
## you could think of this as an abstract role (yuck)

use Moose::Role;

1;

R1.pm

package R1;

## R1 is a role, with one of the possible implementations for H.

use Moose::Role;

with 'H';
excludes 'H';

1;

R2.pm

package R2;

## R2 is a role, with another of the possible implementations for H.

use Moose::Role;

with 'H';
excludes 'H';


1;