X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F001_mouse%2F028-subclass-attr.t;fp=t%2F001_mouse%2F028-subclass-attr.t;h=35430a5f63ee86c823b70d9d0238a1c0b391f990;hp=27abb634817ef6e19faa6a86a0c69d3be96462cb;hb=26f0aa174f72fdf5fd803278212b7cefa83c8734;hpb=fc7e5b5ffe3bc0ff6c87d8e58cab70582161aaf7

diff --git a/t/001_mouse/028-subclass-attr.t b/t/001_mouse/028-subclass-attr.t
index 27abb63..35430a5 100644
--- a/t/001_mouse/028-subclass-attr.t
+++ b/t/001_mouse/028-subclass-attr.t
@@ -34,7 +34,7 @@ do {
     extends qw(CB CA);
     has cc => (is => 'rw');
 };
-with_immutable sub {
+with_immutable {
     my $obj = Child->new(class => 1, child => 1);
     ok($obj->child, "local attribute set in constructor");
     ok($obj->class, "inherited attribute set in constructor");
@@ -50,7 +50,7 @@ with_immutable sub {
         CA->meta->get_attribute('ca'),
         Class->meta->get_attribute('class'),
     )], "correct get_all_attributes");
-}, qw(Class CA CB CC);
+} 'Class', 'CA', 'CB', 'CC';
 
 do {
     package Foo;
@@ -90,7 +90,7 @@ with_immutable {
     is_deeply([Bar->meta->get_all_attributes], [
         Bar->meta->get_attribute('attr'),
     ], "correct get_all_attributes");
-} qw(Foo Bar);
+} 'Foo', 'Bar';
 
 done_testing;