24 foo_aliased => 'aliased',
25 foo_aliased_curried => ['aliased', 'bar'],
30 my $hasfoo = HasFoo->new(foo => Foo->new);
32 $hasfoo->foo->aliased('foo', $x);
33 is($x, 'foo', "direct aliasing works");
35 $hasfoo->foo_aliased('foo', $x);
36 is($x, 'foo', "delegated aliasing works");
38 $hasfoo->foo_aliased_curried($x);
39 is($x, 'bar', "delegated aliasing with currying works");