remove trailing whitespace
[gitmo/Moose.git] / t / 060_compat / 002_moose_respects_base.t
index c967c22..2e37c9d 100644 (file)
@@ -3,20 +3,18 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 6;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');           
-}
+
 
 =pod
 
-This test demonstrates that Moose will respect 
-a previously set @ISA using use base, and not 
-try to add Moose::Object to it. 
+This test demonstrates that Moose will respect
+a previously set @ISA using use base, and not
+try to add Moose::Object to it.
 
-However, this is extremely order sensitive as 
+However, this is extremely order sensitive as
 this test also demonstrates.
 
 =cut
@@ -25,18 +23,18 @@ this test also demonstrates.
     package Foo;
     use strict;
     use warnings;
-    
+
     sub foo { 'Foo::foo' }
-    
-    package Bar;    
+
+    package Bar;
     use base 'Foo';
     use Moose;
-    
-    sub new { (shift)->meta->new_object(@_) }    
-    
+
+    sub new { (shift)->meta->new_object(@_) }
+
     package Baz;
-    use Moose;    
-    use base 'Foo'; 
+    use Moose;
+    use base 'Foo';
 }
 
 my $bar = Bar->new;