Get rid of all the bogus uses of use_ok still lurking in the code
Dave Rolsky [Fri, 16 Sep 2011 13:31:56 +0000 (08:31 -0500)]
25 files changed:
t/moose_util/ensure_all_roles.t
t/moose_util/moose_util_does_role.t
t/moose_util/moose_util_search_class_by_role.t
t/test_moose/test_moose_does_ok.t
t/test_moose/test_moose_has_attribute_ok.t
t/test_moose/test_moose_meta_ok.t
t/test_moose/with_immutable.t
t/todo_tests/exception_reflects_failed_constraint.t
t/type_constraints/advanced_type_creation.t
t/type_constraints/class_type_constraint.t
t/type_constraints/coerced_parameterized_types.t
t/type_constraints/container_type_coercion.t
t/type_constraints/container_type_constraint.t
t/type_constraints/custom_parameterized_types.t
t/type_constraints/define_type_twice_throws.t
t/type_constraints/misc_type_tests.t
t/type_constraints/normalize_type_name.t
t/type_constraints/parameterize_from.t
t/type_constraints/role_type_constraint.t
t/type_constraints/subtyping_parameterized_types.t
t/type_constraints/subtyping_union_types.t
t/type_constraints/type_notation_parser.t
t/type_constraints/union_types.t
t/type_constraints/util_find_type_constraint.t
t/type_constraints/util_type_coercion.t

index 25ef102..ec33b73 100644 (file)
@@ -5,9 +5,7 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util', ':all');
-}
+use Moose::Util ':all';
 
 {
     package Foo;
index 2505c9d..e4f30f2 100644 (file)
@@ -5,9 +5,7 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util', ':all');
-}
+use Moose::Util ':all';
 
 {
   package Foo;
index b618498..91d6c91 100644 (file)
@@ -5,9 +5,7 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util', ':all');
-}
+use Moose::Util ':all';
 
 {   package SCBR::Role;
     use Moose::Role;
index f084f38..65b5b0a 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::Builder::Tester;
 use Test::More;
 
-BEGIN {
-  use_ok('Test::Moose');
-}
+use Test::Moose;
 
 {
     package Foo;
index 07ea34c..4320ee4 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::Builder::Tester;
 use Test::More;
 
-BEGIN {
-  use_ok('Test::Moose');
-}
+use Test::Moose;
 
 {
     package Foo;
index 9eb1f3b..fe757bc 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::Builder::Tester;
 use Test::More;
 
-BEGIN {
-  use_ok('Test::Moose');
-}
+use Test::Moose;
 
 {
     package Foo;
index ec1358e..7690ce2 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::Builder::Tester;
 use Test::More;
 
-BEGIN {
-  use_ok('Test::Moose');
-}
+use Test::Moose;
 
 {
     package Foo;
index b178c89..894ce8d 100644 (file)
@@ -10,9 +10,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 is( exception {
     subtype 'ParentConstraint' => as 'Str' => where {0};
index 1350fdc..14da7d4 100644 (file)
@@ -5,10 +5,8 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-    use_ok('Moose::Meta::TypeConstraint::Parameterized');
-}
+use Moose::Util::TypeConstraints;
+use Moose::Meta::TypeConstraint::Parameterized;
 
 my $r = Moose::Util::TypeConstraints->get_type_constraint_registry;
 
index 794e239..d47cbae 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 {
     package Gorch;
index e4386e6..19ee653 100644 (file)
@@ -6,10 +6,8 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok("Moose::Util::TypeConstraints");
-    use_ok('Moose::Meta::TypeConstraint::Parameterized');
-}
+use Moose::Util::TypeConstraints;
+use Moose::Meta::TypeConstraint::Parameterized;
 
 BEGIN {
     package MyList;
index 0e4f3eb..99a9151 100644 (file)
@@ -5,10 +5,8 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-    use_ok('Moose::Meta::TypeConstraint::Parameterized');
-}
+use Moose::Util::TypeConstraints;
+use Moose::Meta::TypeConstraint::Parameterized;
 
 my $r = Moose::Util::TypeConstraints->get_type_constraint_registry;
 
index 17ebe3d..7b7354d 100644 (file)
@@ -5,10 +5,8 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-    use_ok('Moose::Meta::TypeConstraint::Parameterized');
-}
+use Moose::Util::TypeConstraints;
+use Moose::Meta::TypeConstraint::Parameterized;
 
 # Array of Ints
 
index 14ccd18..12bf2e8 100644 (file)
@@ -6,10 +6,8 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok("Moose::Util::TypeConstraints");
-    use_ok('Moose::Meta::TypeConstraint::Parameterized');
-}
+use Moose::Util::TypeConstraints;
+use Moose::Meta::TypeConstraint::Parameterized;
 
 is( exception {
     subtype 'AlphaKeyHash' => as 'HashRef'
index 6cc05ed..de08fd6 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 {
     package Some::Class;
index 4b5e1d3..77f67d8 100644 (file)
@@ -7,9 +7,7 @@ use Test::More;
 use Test::Fatal;
 use Scalar::Util qw(refaddr);
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 # subtype 'aliasing' ...
 
index e6d7a5a..ac5ae85 100644 (file)
@@ -5,9 +5,7 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 ## First, we check that the new regex parsing works
 
index 3e97310..6510aef 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 # testing the parameterize method
 
index eae75d4..ea6b34d 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 {
     package Gorch;
index acdbd22..e80da13 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok("Moose::Util::TypeConstraints");
-}
+use Moose::Util::TypeConstraints;
 
 is( exception {
     subtype 'MySpecialHash' => as 'HashRef[Int]';
index 9b3ae24..9b13263 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok("Moose::Util::TypeConstraints");
-}
+use Moose::Util::TypeConstraints;
 
 is( exception {
     subtype 'MyCollections' => as 'ArrayRef | HashRef';
index a62e24a..fb8a7e1 100644 (file)
@@ -5,9 +5,7 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok("Moose::Util::TypeConstraints");
-}
+use Moose::Util::TypeConstraints;
 
 =pod
 
index aa6e67d..4b46e8c 100644 (file)
@@ -5,9 +5,7 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 my $Str = find_type_constraint('Str');
 isa_ok($Str, 'Moose::Meta::TypeConstraint');
index fcf182d..372816b 100644 (file)
@@ -5,9 +5,7 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 foreach my $type_name (qw(
     Any
index 5ee520d..1bb84c6 100644 (file)
@@ -6,9 +6,7 @@ use warnings;
 use Test::More;
 use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose::Util::TypeConstraints');
-}
+use Moose::Util::TypeConstraints;
 
 {
     package HTTPHeader;