use v5.14;

package MyRole {
	use Moose::Role;
	
	has nodes => (
		traits  => ['Hash'],
		is      => 'rw',
		isa     => 'HashRef[Item]',
		handles => {
			set_node    => 'set',
			get_node    => 'get',
			all_nodes   => 'keys',
		}
	);
}

package BBB {
	use Moose;
	with 'MyRole';
}

package A {
	use Moose;
	
	has BBB => (
		is      => 'rw',
		lazy    => 1,
		default => sub { BBB->new(nodes => \%ENV) },
		handles => [qw( get_node )],
	);
}

my $a = A->new;
say $a->get_node('TERM');