31 has foo => ( is => 'ro', handles => [ qw(one two) ] );
32 has foo2 => ( is => 'ro', handles => { un => 'one' } );
33 has foo3 => ( is => 'ro', handles => 'Robot' );
34 has foo4 => ( is => 'ro', handles => {
35 eat_curry => [ yum => 'Curry!' ],
40 foo => Foo->new, foo2 => Foo->new, foo3 => Foo->new, foo4 => Foo->new
43 is $bar->one, 1, 'handles works';
44 is $bar->two, 2, 'handles works for more than one method';
46 is $bar->un, 1, 'handles works for aliasing a method';
48 is $bar->smash, 'smash', 'handles works for a role';
50 is $bar->eat_curry, 'Curry!', 'handles works for currying';