Avoid a bunch of work when the role to role applier has an empty list…

… of roles to apply.
rakudo · Aug 8, 2011 · 38be712 · 38be712
1 parent b4296cb
commit 38be712
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/RoleToRoleApplier.pm b/src/Perl6/Metamodel/RoleToRoleApplier.pm
@@ -1,5 +1,10 @@
 my class RoleToRoleApplier {
     method apply($target, @roles) {
+        # Ensure we actually have something to appply.
+        unless +@roles {
+            return [];
+        }
+
         # Aggregate all of the methods sharing names, eliminating
         # any duplicates (a method can't collide with itself).
         my %meth_info;