use Test::More tests => 2;
use strict;
{
package Spanish;
use Coat;
has uno => (
is => 'ro',
default => sub {
return 1;
}
);
has dos => (
is => 'ro',
default => sub {
return 2;
}
);
package English;
use Coat;
has translate => (
is => 'ro',
default => sub {
return Spanish->new;
},
handles => {
one => 'uno',
two => 'dos',
}
);
}
my $eng = English->new;
is $eng->one, 1, 'one';
is $eng->two, 2, 'two';