we can't 'use' a role, so skip them

diff --git a/t/04load_all.t b/t/04load_all.t
index 54c1bb0..b7ae93f 100644 (file)
--- a/t/04load_all.t
+++ b/t/04load_all.t
@@ -8,6 +8,7 @@ use Module::Pluggable::Object;
 
 my $finder = Module::Pluggable::Object->new(
                search_path => [ 'Reaction' ],
+               except => qr/Role/,
              );
 
 foreach my $class (grep !/\.ToDo/,