Exemplo de Role + Delegation

a.pm

package Closeable;
use Moose::Role;

requires 'close';

1;


package Connector;
use Moose;

has 'client' => (
    is => 'rw',
    isa => 'Client',
    required => 1,
    handles => 'Closeable',
);

with 'Closeable';

__PACKAGE__->meta->make_immutable;
no Moose;
1;

package Client;
use Moose;

sub close {
    print 666;
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;

my $c = Connector->new (client => Client->new);

$c->close;