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;
16 sub baz { 'Bar::baz' }
17 sub gorch { 'Bar::gorch' }
26 default => sub { Bar->new },
27 handles => [qw[ baz gorch ]]
30 package Foo::Extended;
50 my $foo = Foo::Extended->new;
51 isa_ok($foo, 'Foo::Extended');
54 ok(!$foo->test, '... the test value has not been changed');
56 is($foo->baz, 'Bar::baz', '... got the right delegated method');
58 ok($foo->test, '... the test value has now been changed');