package NotHash;
use overload '%{}' => sub { {} };
sub new { bless [], shift }

package main;
my $not_hash = NotHash->new();
ok( ref $not_hash, '$not_hash is a reference' );
is( reftype $not_hash, reftype [],
    '$not_hash is an array reference' );
# Useless use of a variable in void context
ok( eval { %{$not_hash}; 1 },
    '$not_hash can be dereferenced as a hash' );