package Tie::IxHash::Easy;
use Tie::IxHash;

@ISA = 'Tie::IxHash';

sub STORE {
  my ($self, $key, $value) = @_;
  tie %$value, 'Tie::IxHash::Easy' if ref($value) eq "HASH";
  $self->SUPER::STORE($key, $value);
}

1;