Moose handles的一个例子

moose handles

package Person;
use Moose;

has name => (is => 'rw');
has age => (is => 'rw');


package Manager;
use Moose;

has name => (
    is => 'rw',
    isa => 'Str',
    default => 'Bob'
);

has staff => (
    is => 'ro',
    isa => 'ArrayRef',
    lazy => 1,
    default => sub { [qw(Bob Alice Tim)] },
);

package Employee;
use Moose;
extends qw(Person);

has manager => (
    is => 'ro',
    isa => 'Manager',
    handles => {
        manager_name => 'name',
        coworkers => 'staff',
    }
);

package main;
my $emp=Employee->new(manager =>Manager->new());
print $emp->manager_name,"\n";
print $emp->manager->name,"\n";
print $emp->coworkers->[1],"\n";
print $emp->manager->staff->[2],"\n";
print join('-',@{$emp->coworkers}),"\n";