package MyApp;
use Mouse;
with ('Requires', 'Method');
- with ('Method2' => { alias => { bar => 'baz' } });
+ with ('Method2' => { -alias => { bar => 'baz' } });
}
my $m = MyApp->new;
use Mouse;
::stderr_is {
- with 'TestRole' => { excludes => 'BUILD' };
+ with 'TestRole' => { -excludes => 'BUILD' };
} '';
sub BUILD { push @CALLS, 'ExplicitClassWithBUILD::BUILD' }
package Role::Child;
use Mouse::Role;
-with 'Role::Parent' => { alias => { meth1 => 'aliased_meth1', } };
+with 'Role::Parent' => { -alias => { meth1 => 'aliased_meth1', } };
sub meth1 { }