6 use Test::More tests => 5;
13 sub baz { 'Bar::baz' }
14 sub gorch { 'Bar::gorch' }
23 default => sub { Bar->new },
24 handles => [qw[ baz gorch ]]
27 package Foo::Extended;
47 my $foo = Foo::Extended->new;
48 isa_ok($foo, 'Foo::Extended');
51 ok(!$foo->test, 'the test value has not been changed');
53 is($foo->baz, 'Bar::baz', 'got the right delegated method');
55 ok($foo->test, 'the test value has now been changed');