http://www.perlmonks.org?node_id=466855


in reply to Testing Hash with empty value in HoH

In your data structure change: 
'pk2' => {},

[download]

to: 
'pk2' => undef,

[download]


or 
if( $hoh->{$k} )

[download]
to: 
if( keys %{$hoh->{$k}} )

[download]



This is not a Signature...

In Section Seekers of Perl Wisdom