From: Dave Rolsky <autarch@urth.org>
Date: Sun, 10 May 2009 22:26:57 +0000 (-0500)
Subject: remove_metaclass_by_name only takes a single argument
X-Git-Tag: 0.78~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e97395fc218abc57a82a0f21b21649a57dd728a;p=gitmo%2FMoose.git

remove_metaclass_by_name only takes a single argument
---

diff --git a/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t b/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t
index bc175d4..19fe24e 100644
--- a/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t
+++ b/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t
@@ -35,9 +35,9 @@ use Class::MOP ();
         'SubSubClassUseBase meta metaclass does the My::Role role' );
 }
 
-# Note, remote metaclasses of the 'use base' classes after each test, so that
-# they have to be re-initialized - otherwise latter tests would not demonstrate
-# the original issue.
+# Note, remove metaclasses of the 'use base' classes after each test,
+# so that they have to be re-initialized - otherwise latter tests
+# would not demonstrate the original issue.
 Class::MOP::remove_metaclass_by_name('SubClassUseBase');
 
 {
@@ -67,7 +67,8 @@ Class::MOP::remove_metaclass_by_name('SubClassUseBase');
         'MultiParent1 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiParent2;
@@ -86,7 +87,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiParent2 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiParent3;
@@ -105,7 +107,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiParent3 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiParent4;
@@ -124,7 +127,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiParent4 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild1;
@@ -143,7 +147,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild1 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild2;
@@ -162,7 +167,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild2 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild3;
@@ -181,7 +187,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild3 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild4;
@@ -200,5 +207,6 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild4 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );