2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
27 foo_aliased => 'aliased',
28 foo_aliased_curried => ['aliased', 'bar'],
33 my $hasfoo = HasFoo->new(foo => Foo->new);
35 $hasfoo->foo->aliased('foo', $x);
36 is($x, 'foo', "direct aliasing works");
38 $hasfoo->foo_aliased('foo', $x);
39 is($x, 'foo', "delegated aliasing works");
41 $hasfoo->foo_aliased_curried($x);
42 is($x, 'bar', "delegated aliasing with currying works");