package A;
use Moose;

has BBB => (
   is      => 'rw',
   lazy    => 1,
   builder => '_build_BBB',
   handles => [qw( get_node )],
);

sub _build_BBB
{
   my $self = shift;
   my $instance = tie(%ENV, 'BBB');
   return $instance;
}