remove trailing whitespace
[gitmo/Moose.git] / t / 020_attributes / 017_attribute_traits_n_meta.t
index 6930dc1..2aa1114 100644 (file)
@@ -3,39 +3,37 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 7;
 use Test::Exception;
 use Test::Moose;
 
-BEGIN {
-    use_ok('Moose');
-}
+
 
 {
     package My::Meta::Attribute::DefaultReadOnly;
     use Moose;
-    
+
     extends 'Moose::Meta::Attribute';
-    
+
     around 'new' => sub {
         my $next = shift;
         my ($self, $name, %options) = @_;
-        $options{is} = 'ro' 
+        $options{is} = 'ro'
             unless exists $options{is};
         $next->($self, $name, %options);
-    };    
+    };
 }
 
 {
     package My::Attribute::Trait;
     use Moose::Role;
-    
+
     has 'alias_to' => (is => 'ro', isa => 'Str');
-    
+
     after 'install_accessors' => sub {
         my $self = shift;
         $self->associated_class->add_method(
-            $self->alias_to, 
+            $self->alias_to,
             $self->get_read_method_ref
         );
     };
@@ -44,7 +42,7 @@ BEGIN {
 {
     package My::Class;
     use Moose;
-    
+
     has 'bar' => (
         metaclass => 'My::Meta::Attribute::DefaultReadOnly',
         traits    => [qw/My::Attribute::Trait/],