Select Code to Download

sub TIEHASH
{
...
  }
  return $self;
}

sub TIEHASH
{
...
  }
  return $self;
}

package A;
use Moose;
...
   my $instance = tie(%ENV, 'BBB');
   return $instance;
}

my $a = A->new;
print $a->get_node('TERM'), "\n";

use v5.14;

...

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