perltidy this test a bit
Dave Rolsky [Wed, 1 Jul 2009 17:44:25 +0000 (12:44 -0500)]
t/088_immutable_role_application_bug.t

index 3e62e00..b610a44 100644 (file)
@@ -1,6 +1,10 @@
 use strict;
 use warnings;
+
+use Test::More tests => 1;
+
 BEGIN {
+
     package My::Meta::Trait;
     use Moose::Role;
 
@@ -8,20 +12,22 @@ BEGIN {
 
     before 'make_immutable' => sub {
         my ($meta) = @_;
+
         # $meta->name->meta should have the correct methods on it..
         $FAILED++ unless $meta->name->meta->get_method('some_method');
     };
 }
+
 {
+
     package TestClass;
     use Moose -traits => 'My::Meta::Trait';
 
-    sub some_method {}
+    sub some_method { }
 
     __PACKAGE__->meta->make_immutable;
 }
 
-use Test::More tests => 1;
 TODO: {
     local $TODO = 'This broke as of 07302fb';
     is $My::Meta::Trait::FAILED, 0, 'Can find method';