Don't call an unnecessary role filter

diff --git a/lib/Moose/Util.pm b/lib/Moose/Util.pm
index fe14e95..7fe5591 100644 (file)
--- a/lib/Moose/Util.pm
+++ b/lib/Moose/Util.pm
@@ -79,7 +79,7 @@ sub ensure_all_roles {
 
 sub apply_all_roles {
     my $applicant = shift;
-    _apply_all_roles($applicant, sub { 1 }, @_);
+    _apply_all_roles($applicant, undef, @_);
 }
 
 sub _apply_all_roles {
@@ -105,7 +105,9 @@ sub _apply_all_roles {
         }
     }
 
-    @$roles = grep { local $_ = $_->[0]; $role_filter->() } @$roles;
+    if(defined $role_filter){
+        @$roles = grep { local $_ = $_->[0]; $role_filter->() } @$roles;
+    }
 
     return unless @$roles;