sub new {
my ($class, %params) = @_;
+ if ( exists $params{excludes} || exists $params{alias} ) {
+ Moose::Deprecated::deprecated(
+ feature => 'alias or excludes',
+ message =>
+ "The alias and excludes options for role application have been renamed -alias and -excludes"
+ );
+ }
+
if ( exists $params{excludes} && !exists $params{'-excludes'} ) {
$params{'-excludes'} = delete $params{excludes};
}