next unless $role->does_role($excluded);
my @excluding = @{ $excluded_roles{$excluded} };
- Moose->throw_error(sprintf 'Conflict detected: Role%s %s exclude%s role "%s"', (@excluding == 1 ? '' : 's'), join(', ', @excluding), (@excluding == 1 ? 's' : ''), $excluded);
+ Moose->throw_error(sprintf "Conflict detected: Role%s %s exclude%s role '%s'", (@excluding == 1 ? '' : 's'), join(', ', @excluding), (@excluding == 1 ? 's' : ''), $excluded);
}
}
::throws_ok {
with 'Molecule::Organic', 'Molecule::Inorganic';
- } qr/Conflict detected: Role Molecule::Organic excludes role "Molecule::Inorganic"/,
+ } qr/Conflict detected: Role Molecule::Organic excludes role 'Molecule::Inorganic'/,
'... adding the role w/ excluded role conflict dies okay';
package My::Test3;