Fix some bizarro code formatting
Dave Rolsky [Sat, 14 Feb 2009 23:53:50 +0000 (23:53 +0000)]
t/040_type_constraints/002_util_type_constraints_export.t

index cbab89c..85faf6b 100644 (file)
@@ -7,26 +7,25 @@ use Test::More tests => 5;
 use Test::Exception;
 
 BEGIN {
-       use_ok('Moose::Util::TypeConstraints', { into => 'Foo' } );
+    use_ok( 'Moose::Util::TypeConstraints', { into => 'Foo' } );
 }
 
 {
+
     package Foo;
 
-       eval {
-               type MyRef => where { ref($_) };
-       };
-       ::ok(!$@, '... successfully exported &type to Foo package');
-       
-       eval {
-               subtype MyArrayRef 
-                       => as MyRef 
-                       => where { ref($_) eq 'ARRAY' };
-       };
-       ::ok(!$@, '... successfully exported &subtype to Foo package'); 
-       
-    Moose::Util::TypeConstraints->export_type_constraints_as_functions();      
-       
-       ::ok(MyRef({}), '... Ref worked correctly');
-       ::ok(MyArrayRef([]), '... ArrayRef worked correctly');  
-}
\ No newline at end of file
+    eval {
+        type MyRef => where { ref($_) };
+    };
+    ::ok( !$@, '... successfully exported &type to Foo package' );
+
+    eval {
+        subtype MyArrayRef => as MyRef => where { ref($_) eq 'ARRAY' };
+    };
+    ::ok( !$@, '... successfully exported &subtype to Foo package' );
+
+    Moose::Util::TypeConstraints->export_type_constraints_as_functions();
+
+    ::ok( MyRef( {} ), '... Ref worked correctly' );
+    ::ok( MyArrayRef( [] ), '... ArrayRef worked correctly' );
+}