1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
use strictures 1;
use Test::More;
{
package Robot;
use Moo::Role;
requires 'smash';
}
{
package Foo;
use Moo;
with 'Robot';
sub one {1}
sub two {2}
sub smash {'smash'}
sub yum {$_[1]}
}
{
package Bar;
use Moo;
has foo => ( is => 'ro', handles => [ qw(one two) ] );
has foo2 => ( is => 'ro', handles => { un => 'one' } );
has foo3 => ( is => 'ro', handles => 'Robot' );
has foo4 => ( is => 'ro', handles => {
eat_curry => [ yum => 'Curry!' ],
});
}
my $bar = Bar->new(
foo => Foo->new, foo2 => Foo->new, foo3 => Foo->new, foo4 => Foo->new
);
is $bar->one, 1, 'handles works';
is $bar->two, 2, 'handles works for more than one method';
is $bar->un, 1, 'handles works for aliasing a method';
is $bar->smash, 'smash', 'handles works for a role';
is $bar->eat_curry, 'Curry!', 'handles works for currying';
done_testing;
|
