'alias' and 'excludes' in with() are deprecated
gfx [Mon, 6 Sep 2010 04:31:03 +0000 (13:31 +0900)]
t/001_mouse/807-multi-roles.t
t/030_roles/019_build.t
t/lib/Role/Child.pm

index 671e7d5..4d0a3b0 100644 (file)
@@ -26,7 +26,7 @@ use Test::More tests => 3;
     package MyApp;
     use Mouse;
     with ('Requires', 'Method');
-    with ('Method2' => { alias => { bar => 'baz' } });
+    with ('Method2' => { -alias => { bar => 'baz' } });
 }
 
 my $m = MyApp->new;
index c520f81..684443a 100755 (executable)
@@ -41,7 +41,7 @@ do {
     use Mouse;
 
     ::stderr_is {
-        with 'TestRole' => { excludes => 'BUILD' };
+        with 'TestRole' => { -excludes => 'BUILD' };
     } '';
 
     sub BUILD { push @CALLS, 'ExplicitClassWithBUILD::BUILD' }
index 323eaa1..1ee02b1 100644 (file)
@@ -1,7 +1,7 @@
 package Role::Child;
 use Mouse::Role;
 
-with 'Role::Parent' => { alias => { meth1 => 'aliased_meth1', } };
+with 'Role::Parent' => { -alias => { meth1 => 'aliased_meth1', } };
 
 sub meth1 { }