Re: Testing Hash with empty value in HoH

[dorward]

A reference to a hash, even an empty hash, is true. Try defreferencing it.

my $foo = {};
print "OK\n" if (scalar %{$foo});