12 sub baz { 'Bar::baz' }
13 sub gorch { 'Bar::gorch' }
22 default => sub { Bar->new },
23 handles => [qw[ baz gorch ]]
26 package Foo::Extended;
46 my $foo = Foo::Extended->new;
47 isa_ok($foo, 'Foo::Extended');
50 ok(!$foo->test, '... the test value has not been changed');
52 is($foo->baz, 'Bar::baz', '... got the right delegated method');
54 ok($foo->test, '... the test value has now been changed');