Made calls to List::Util::shuffle explicit as it causes fun for us over on the test...

diff --git a/t/030_roles/009_more_role_edge_cases.t b/t/030_roles/009_more_role_edge_cases.t
index e9923f0..de70b0e 100644 (file)
--- a/t/030_roles/009_more_role_edge_cases.t
+++ b/t/030_roles/009_more_role_edge_cases.t
@@ -156,7 +156,7 @@ use Test::Exception;
 # useful here (although more tests cant hurt)
 
 {
-    use List::Util qw/shuffle/;
+    use List::Util ();
 
     {
         package Abstract;
@@ -196,13 +196,13 @@ use Test::Exception;
         package SimpleClassWithSome;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteA ConcreteB/ };
+        eval { with List::Util::shuffle qw/ConcreteA ConcreteB/ };
         ::ok( !$@, "simple composition without abstract" ) || ::diag $@;
 
         package SimpleClassWithAll;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteA ConcreteB Abstract/ };
+        eval { with List::Util::shuffle qw/ConcreteA ConcreteB Abstract/ };
         ::ok( !$@, "simple composition with abstract" ) || ::diag $@;
     }
 
@@ -224,19 +224,19 @@ use Test::Exception;
         package ClassWithSome;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteC ConcreteB/ };
+        eval { with List::Util::shuffle qw/ConcreteC ConcreteB/ };
         ::ok( !$@, "composition without abstract" ) || ::diag $@;
 
         package ClassWithAll;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteC Abstract ConcreteB/ };
+        eval { with List::Util::shuffle qw/ConcreteC Abstract ConcreteB/ };
         ::ok( !$@, "composition with abstract" ) || ::diag $@;
 
         package ClassWithEverything;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteC Abstract ConcreteA ConcreteB/ }; # this should clash
+        eval { with List::Util::shuffle qw/ConcreteC Abstract ConcreteA ConcreteB/ }; # this should clash
         ::ok( !$@, "can compose ConcreteA and ConcreteC together" );
     }