my %x = (@_ and ref($_[0]) eq 'HASH') ? %{ $_[0] } : ();