It Works, *AND* Its Fast(er)

[gitmo/Moose.git] / t / 042_apply_role.t

diff --git a/t/042_apply_role.t b/t/042_apply_role.t
index 469b1dd..f94385e 100644 (file)
--- a/t/042_apply_role.t
+++ b/t/042_apply_role.t
@@ -12,8 +12,6 @@ BEGIN {
 
 {
     package FooRole;
-    use strict;
-    use warnings;
     use Moose::Role;
     
     has 'bar' => (is => 'rw', isa => 'FooClass');
@@ -29,17 +27,17 @@ BEGIN {
         'FooRole::blau -> ' . $c->();
     }; 
 
+}{
     package BarClass;
-    use strict;
-    use warnings;
     use Moose;
     
     sub boo { 'BarClass::boo' }
     sub foo { 'BarClass::foo' }  # << the role overrides this ...  
+
+    __PACKAGE__->meta->make_immutable(debug => 0);
+}{
     
     package FooClass;
-    use strict;
-    use warnings;
     use Moose;
     
     extends 'BarClass';
@@ -48,6 +46,8 @@ BEGIN {
     sub blau { 'FooClass::blau' }
 
     sub goo { 'FooClass::goo' }  # << overrides the one from the role ... 
+    
+    __PACKAGE__->meta->make_immutable(debug => 0);
 }
 
 my $foo_class_meta = FooClass->meta;