return $me->apply_role_to_package($to, $roles[0]) if @roles == 1;
my %conflicts = %{$me->_composite_info_for(@roles)->{conflicts}};
- delete $conflicts{$_} for $me->_concrete_methods_of($to);
+ delete $conflicts{$_} for keys %{ $me->_concrete_methods_of($to) };
if (keys %conflicts) {
my $fail =
join "\n",
Additionally, Role::Tiny will override the standard Perl C<DOES> method
for your class. However, if C<any> class in your class' inheritance
-heirarchy provides C<DOES>, then Role::Tiny will not override it.
+hierarchy provides C<DOES>, then Role::Tiny will not override it.
=head1 METHODS